|
|
|
новичок
участник
Last Login: 11.07.2000 1:06
Сообщ.: 1,
Visits: 12
|
|
| Кто-нибудь помогите с примером открытия БД на ADO и открытие таблицы. Большое спасибо.
|
|
|
|
|
Junior Member
участник
Last Login: 17.07.2000 18:54
Сообщ.: 14,
Visits: 155
|
|
Вот пример из MSDN:
Sub ADOOpenRecordset()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
'' Open the connection
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=.\NorthWind.mdb;"
'' Open the forward-only,
'' read-only recordset
rst.Open "SELECT * FROM Customers " & _
"WHERE Region = ''WA''", cnn, _
adOpenForwardOnly, adLockReadOnly
'' Print the values for the fields in
'' the first record in the debug window
For Each fld In rst.Fields
Debug.Print fld.Value & ";";
Next
Debug.Print
''Close the recordset
rst.Close
End Sub
|
|
|
|
|
Junior Member
участник
Last Login: 17.07.2000 18:54
Сообщ.: 14,
Visits: 155
|
|
| Почему-то одинарные кавычки, отмечавшие комментарии, превратились в двойные. Но, я думаю, все и так понятно.
|
|
|
|