RE: Как на VB считать и дополнить БД с SQL Server'а
Ну друг мой, книжки никогда не пробовал читать или еще лучше MSDN'ом пользоваться.
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open 'Provider=sqloledb;DataSource=Server2000;InitialCa talog=myDB;UserId=UserTest;Password=;'
Set rstEmployees = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open 'AA', cnn1, , , adCmdTable
msgbox rst.fields('pole1').value & '<>' & rst.fields('pole2').value
rst.close
cn.close
set rst = nothing
set cn = nothing
только не забудь в Project/Reference ссылку на MS ADO поставить.
|