Set oRS = CreateObject("ADODB.RecordSet")
oRS.ActiveConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\db1.mdb"
oRS.Open "select * from zzz"
Do While Not oRS.EOF
MSGBOX oRs.Fields(1) & " " & oRs.Fields(2)
oRS.MoveNext
Loop
oRS.Close
Set oRS = Nothing
Как сделать выборку из dbf?
не могу сообразить как выбирать данные из bdf файла. с данными из аксеса вот например так:
а как обратиться к dbf? не могу сообразить что писать в запросе SQL какое там имя таблицы указывать? имя файла 0001, не подходит ....
Код:
а как обратиться к dbf? не могу сообразить что писать в запросе SQL какое там имя таблицы указывать? имя файла 0001, не подходит ....
Код:
Set oRS = CreateObject("ADODB.RecordSet")
oRS.ActiveConnection ="Driver={Microsoft dBase Driver (*.dbf)};Database=C:\0001.dbf"
oRS.Open "select * from <что здесь должно быть?>"
Do While Not oRS.EOF
MSGBOX oRs.Fields(1) & " " & oRs.Fields(2)
oRS.MoveNext
Loop
oRS.Close
Set oRS = Nothing
oRS.ActiveConnection ="Driver={Microsoft dBase Driver (*.dbf)};Database=C:\0001.dbf"
oRS.Open "select * from <что здесь должно быть?>"
Do While Not oRS.EOF
MSGBOX oRs.Fields(1) & " " & oRs.Fields(2)
oRS.MoveNext
Loop
oRS.Close
Set oRS = Nothing
проблема решена:
Код:
dim cn as ADODB.Connection
dim adoRS as ADODB.Recordset
pathDBF="C:\dbf\"
strSQL = "SELECT * FROM T2.dbf"
Sey cn= New ADODB.Connection
cn.Provider="Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source=" & pathDBF & "; Extended Properties=dBase III"
cn.Open
Set adoRS = New ADODB.Recordset
adoRS.CursorType=adOpenKeyset
adoRS.LockType=adLockOptimistic
adoRS.Open strSQL, cn
dim adoRS as ADODB.Recordset
pathDBF="C:\dbf\"
strSQL = "SELECT * FROM T2.dbf"
Sey cn= New ADODB.Connection
cn.Provider="Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source=" & pathDBF & "; Extended Properties=dBase III"
cn.Open
Set adoRS = New ADODB.Recordset
adoRS.CursorType=adOpenKeyset
adoRS.LockType=adLockOptimistic
adoRS.Open strSQL, cn