VBA/Excel/Access/Word/Access/dBASE ADO — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:46, 26 мая 2010
Open dBase file and query data
<source lang="vb">
Sub Open_dBase_DSNLess()
Dim conn As ADODB.Connection Dim rst As ADODB.Recordset Set conn = New ADODB.Connection conn.Open "DRIVER={Microsoft dBase Driver (*.dbf)};" & "DBQ=" & CurrentProject.Path & "\" Debug.Print conn.ConnectionString Set rst = New ADODB.Recordset rst.Open "Select * From Customer.dbf", conn, adOpenStatic, adLockReadOnly, adCmdText Do Until rst.EOF Debug.Print rst.Fields(1).Value rst.MoveNext Loop rst.Close Set rst = Nothing conn.Close Set conn = Nothing
End Sub
</source>
Opening a dBASE file with ADO
<source lang="vb">
Sub Open_dBaseFile()
Dim conn As ADODB.Connection Dim rst As ADODB.Recordset Set conn = New ADODB.Connection conn.Open "Provider=MSDASQL;DSN=MyDbaseFile;" Set rst = New ADODB.Recordset rst.Open "Customer.dbf", conn, , , adCmdTable Do Until rst.EOF Debug.Print rst.Fields(1).Value rst.MoveNext Loop rst.Close Set rst = Nothing conn.Close Set conn = Nothing
End Sub
</source>