Public Sub УстановитьСоединение()
Dim con As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Provider=MSDASQL.1;Extended Properties=""driver={Microsoft Visual FoxPro Driver};UID=;PWD=;SourceDB=" & strПуть & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"""
con.Open
' потом суем все в Recordset
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "НазваниеТаблицы", con, , , adCmdTable
End Sub
Excel$Access
..ese odna problema..
kak v Excele otkrit .dbf-file?
imeetsja vvidu dlja dalneisego schitivanija po jacheikam..
..s .mdb bes problem, a dbf ne hoset :(
kak v Excele otkrit .dbf-file?
imeetsja vvidu dlja dalneisego schitivanija po jacheikam..
..s .mdb bes problem, a dbf ne hoset :(
Цитата:
Originally posted by Olga
..ese odna problema..
kak v Excele otkrit .dbf-file?
imeetsja vvidu dlja dalneisego schitivanija po jacheikam..
..s .mdb bes problem, a dbf ne hoset :(
..ese odna problema..
kak v Excele otkrit .dbf-file?
imeetsja vvidu dlja dalneisego schitivanija po jacheikam..
..s .mdb bes problem, a dbf ne hoset :(
Думаю, лучше через ADO (конкретные параметры в строке connect зависят от подключ. файла)
Код:
Потом по RecordSet и данные в ячейки...
Вообщем, как-то так примерно.
Spasibo sa podskasku...
Teper soversenno drugaja problema. V nemeckom est osobennie snaki, tak nasivaemie - umlauti..Pri schitivanii v jacheiki vmesto etih snakov pokasivautsja ieroglifi..Mogu li ja kodirovku ili sto nibud podobnoe sadat?
Spasibo, Olga
Teper soversenno drugaja problema. V nemeckom est osobennie snaki, tak nasivaemie - umlauti..Pri schitivanii v jacheiki vmesto etih snakov pokasivautsja ieroglifi..Mogu li ja kodirovku ili sto nibud podobnoe sadat?
Spasibo, Olga