VBNet - Форум - VB.Net - Подключение и добавление записи

Вопрос: VB.Net - Подключение и добавление записи Добавлено: 17.01.10 19:16

Автор вопроса: turBO | Web-сайт: blitz3d.at.ua | ICQ: 451232820

Коллеги,
необходимо подключиться к базе MS Access и добавить запись в таблицу Table1. Может connStr указан неверно.

На строке odbcConnection.Open() выдаёт ошибку: ERROR [IM002] [Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию

Вот часть листинга:

Imports System.Data
Imports System.Data.OleDb
...
Private Sub A4()
         Dim cn As OleDbConnection
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader
        Dim icount As Integer
        Dim str As String

        Dim strConnection As String = "PROVIDER=ODBC; DATA SOURCE=D:\base1.mdb"
        Dim strSelect As String = "SELECT * FROM Table1"
        Dim odbcConnection As New OdbcConnection
        Dim odbcdocuments As New OdbcCommand(strSelect, odbcConnection)
        odbcConnection.ConnectionString = strConnection
        odbcConnection.Open()
        odbcConnection.Close()
    End Sub

Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Aston Вопросов: 15 Ответов: 7	Профиль \| \| #1	Добавлено: 18.01.10 00:08
	Параметров указано мало. Вот моё старое подключение к аксес глянь может поможет, делал давненько. m_db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0ata Source=" & szDataBase & ";Persist Security Info=False" Ответить

Номер ответа: 2 Автор ответа: turBO ICQ: 451232820 Вопросов: 9 Ответов: 13	Web-сайт: blitz3d.at.ua Профиль \| \| #2	Добавлено: 18.01.10 00:55
	Спасибо. Решил проблему. Вот код: Dim oODBCConnection As OdbcConnection Dim sConnString As String = _ "Driver={Microsoft Access Driver (.mdb)};" & _ "Dbq=D:\base1.mdb;" oODBCConnection = New Odbc.OdbcConnection(sConnString) oODBCConnection.Open() Dim sql As String = "SELECT FROM Table1" Dim oOdbcCommand As OdbcCommand oOdbcCommand = New OdbcCommand(sql, oODBCConnection) Dim oOdbcAdapter As New OdbcDataAdapter sql = "insert into Table1 (Val1,Val2) values(9,6)" Try oOdbcAdapter.InsertCommand = New OdbcCommand(sql, oODBCConnection) oOdbcAdapter.InsertCommand.ExecuteNonQuery() MsgBox("Row inserted !! ") Catch ex As Exception MsgBox(ex.ToString) oODBCConnection.Close() dr.Close() oOdbcCommand.Dispose() oODBCConnection.Dispose() End Try Ответить

Страница: 1 |