Подключение к БД

[Чудик]

Пытаюсь прочитать данные из БД следующим путем

Код: Выделить всё

Imports System.Data.SqlClient
    Dim sConnectionString As String = "database=С:\RemBase.mdb"
        Dim objDataTable As New DataTable
        Dim objConnection As New SqlConnection(sConnectionString)

        Dim sSQL As String
        sSQL = "select * from Persons"

        Dim objCommand As New SqlCommand(sSQL, objConnection)
        objCommand.CommandType = CommandType.Text

        Dim objDataAdapter As New SqlDataAdapter(objCommand)
        Try
            objDataAdapter.Fill(objDataTable)

            DataGrid1.DataSource = objDataTable
        Catch MyExeption As Exception
            MsgBox(MyExeption.Message)
            End
        End Try


Объясните, что я не допонимаю?

[GSerg]

www.connectionstrings.com

[Чудик]

Изменил на

Код: Выделить всё

    Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\RemBase.mdb;UserId=Andrey;Password=123;"


Выходит ошибка - Ключевое слово не поддерживается: 'provider'

[GSerg]

OleDBConnection
OleDBCommand
И всё остальное замени на OleDB.

[Чудик]

Изменил

Код: Выделить всё

        Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\RemBase.mdb;UserId=Andrey;"
        Dim objDataTable As New System.Data.DataTable
        Dim objConnection As New OleDb.OleDbConnection(sConnectionString)

        Dim sSQL As String
        sSQL = "select * from Persons"

        Dim objCommand As New OleDb.OleDbCommand(sSQL, objConnection)
        objCommand.CommandType = CommandType.Text

        Dim objDataAdapter As New OleDb.OleDbDataAdapter(objCommand)

        Try
            objDataAdapter.Fill(objDataTable)
            DataGrid1.DataSource = objDataTable

        Catch MyExeption As Exception
            MsgBox(MyExeption.Message)
            End
        End Try


Выдает - Невозможно найти устанавливаемый ISAM.
Похоже я полностью не догоняю.

[Dmitriy Solomnikov]

Если база не запаролена - убери UserId из connection string

[Чудик]

Та же ошибка!

[Sebas]

Data<пробел>Source

[Чудик]

Пошло! Огромное спасибо!
Но появилась еще заковырка - на

Код: Выделить всё

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        OleDb.OleDbDataAdapter.Update(objDataTable, "Persons")
    End Sub


Выходит ошибка: Reference to a non-shared member requires an object reference.
Не могу сам понять!

[Sebas]

OleDb.OleDbDataAdapter.Update(objDataTable, "Persons")

За это убивать надо ещё в детстве!
Вот это: OleDb.OleDbDataAdapter надо сначало создать, а потом ещё и грамотно уничтожить...

[Чудик]

Код: Выделить всё

       Dim objConnection As New OleDb.OleDbConnection(sConnectionString)

        Dim objCommand As New OleDb.OleDbCommand(sSQL, objConnection)
        objCommand.CommandType = CommandType.Text

        Dim objDataAdapter As New OleDb.OleDbDataAdapter(objCommand)

        Dim xDataSet As DataSet
        xDataSet = objDataTable.GetChanges(DataRowState.Modified)

        objDataAdapter.Update(xDataSet, "Persons")


Ошибка: Для обновления требуется действительный UpdateCommand при передачи колекции DataRow с измененными строками.
Признаю, что я - чайник. Не объясните ли чайнику причину ошибки? Или киньте ссылку, где это разжевывается .....

[Sebas]

Анархия!

Объясни СЛОВАМИ что требуется?

[Чудик]

Пытаюсь добиться следеющее:
1. считываем данные из бд в DataGrid
2. изменяем данные в DataGrid (в какой-то ячейке, допустим)
3. записываем измененные данные в бд.

Не получается третий пункт.
Считывание и запись данных осуществляется по событию Click.

[Sebas]

перед da.update надо сделать
db=new oleDb.OleDbCommandBuilder(da)
прибить его тоже потом не забудь..

[Чудик]

Спасибо! Пошло, наконец-то!
Правда, так и недопонял, зачем здесь OleDbCommandBuilder? Уточните?

[Dmitriy Solomnikov]

Спасибо! Пошло, наконец-то!
Правда, так и недопонял, зачем здесь OleDbCommandBuilder? Уточните?

http://msdn.microsoft.com/library/rus/d ... stopic.asp

[Чудик]

Благодарю!