Работа с DBF файлами через ADO - История изменений

SYSDBA в 13:26, 10 марта 2011

2011-03-10T13:26:00Z

SYSDBA в 13:19, 10 марта 2011

2011-03-10T13:19:48Z

SYSDBA: /* С использованием библиотеки gsdbquery.dll */

2011-03-10T13:11:37Z

‎С использованием библиотеки gsdbquery.dll

SYSDBA: переименовал «Работа с DBF-файлами» в «Работа с DBF файлами через ADO»

2011-03-10T13:09:56Z

переименовал «Работа с DBF-файлами» в «Работа с DBF файлами через ADO»

SYSDBA: /* При помощи ADO */

2010-02-14T15:59:58Z

‎При помощи ADO

Flake: Создана новая страница размером Файлы DBF представляют собой таблицы файловой базы данных dBase. Часто использ...

2010-02-11T11:20:22Z

Создана новая страница размером Файлы DBF представляют собой таблицы файловой базы данных dBase. Часто использ...

Новая страница

Файлы DBF представляют собой таблицы файловой базы данных dBase. Часто используются для передачи данных от одного приложения к другому.
== С использованием библиотеки gsdbquery.dll ==

Создание списка датасетов:
<source lang="vbnet">
set gsql = CreateObject("gsdbquery.gsdb_rpQueryList")
</source>
Создание датасета и указание пути расположения файла DBF:
<source lang="vbnet">
set qryDBF = gsql.Query(gsql.Add("qrydbf", 2))
qryDBF.Database = Path
</source>
Запрос к файлу DBF:
<source lang="vbnet">
qryDBF.SQL = _
" SELECT " & _
" t.kod_plat, t.debet, t.kredit " & _
" FROM '" & _
Filename & "' t " & _
" ORDER BY " & _
" t.kod_plat "
qryDBF.Open
qryDBF.First
do while not qryDBF.Eof
FieldValue = qryDBF.FieldByName(“FIELDNAME”).AsString
qryDBF.Next
loop
qryDBF.Close
</source>
== При помощи ADO ==

Драйвер ADO уже встроен в систему Windows, и дополнительно устанавливать его не нужно. Он представляет собой всего лишь удобную Active-X оболочку для доступа к данным, которую можно использовать почти из любых языков и сред программирования.

Тот же самый драйвер ADO можно применять для доступа к самым разным источникам данных (например, к базе Oracle), с небольшими отличиями в строке подключения. Строки подключения для разных источников данных можно найти здесь: http://www.connectionstrings.com/

Создание подключения:
<source lang="vbnet">
set ADOConnection = CreateObject("ADODB.Connection")
call ADOConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FilePath & ";" & _
"Extended Properties=""dBASE IV;"";")
</source>
где FilePath – путь к папке с файлом DBF

Создание объекта-комманды:
<source lang="vbnet">
set ADOCommand = CreateObject("ADODB.Command")
ADOCommand.ActiveConnection = ADOConnection
</source>
Выполнение запроса и получение результата:
<source lang="vbnet">
ADOCommand.CommandText = " SELECT COUNT(*) as c_all FROM [" & Filename & "]"
set ADODataset = ADOCommand.Execute
</source>
Запрос на создание таблицы в папке указанной в подключении:
<source lang="vbnet">
ADOCommand.CommandText = " CREATE TABLE NEW.DBF (kod_plat CHAR(4), debet decimal(10), kredit decimal(10))"
ADOCommand.Execute
</source>
Пример работы:
<source lang="vbnet">
' Создадим подключение к файлу DBF
set ADOConnection = CreateObject("ADODB.Connection")
call ADOConnection.Open("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=d:\;")

' Создадим объект ADODB.Command и подключим его к файлу DBF
set ADOCommand = CreateObject("ADODB.Command")
ADOCommand.ActiveConnection = ADOConnection

' Запрос на получение всех данных файла
ADOCommand.CommandText = " SELECT * FROM [" & Filename & "]"
set ADODataset = ADOCommand.Execute

ADODataset.MoveFirst

do while not ADODataset.EOF
if ADODataset.Fields.Item("DEBET").Value = ADODataset.Fields.Item("KREDIT").Value then
call MsgBox("Нулевое сальдо")
end if
ADODataset.MoveNext
loop

' Закрыть подключение
ADOConnection.Close
</source>
Схема используемых классов:

<source lang="delphi">
Connection = class
методы:
BeginTrans: Integer
Cancel
Close
CommitTrans
Execute(CommandText: String; RecordsAffected: Variant; Options: Integer): _Recordset
Open(ConnectionString: String; UserID: String; Password: String; Options: Integer)
OpenSchema(Schema: Integer(перечисление); Restrictions: Variant; SchemaID; Variant): _Recordset
RollbackTrans
свойства:
Attributes: Integer
CommandTimeout: Integer
ConnectionString: String
ConnectionTimeout: Integer
CursorLocation: Integer(перечисление)
DefaultDatabase: String
Errors: Errors
IsolationLevel: Integer(перечисление)
Mode: Integer(перечисление)
Properties: Properties
Provider: String
State: Integer
Version: String
</source>

<source lang="delphi">
Command = class
методы:
Cancel
CreateParameter(Name: String; Type: Integer(перечисление); Direction: Integer(перечисление); Size: Integer(перечисление); Value: Variant): Variant
Execute(RecordsAffected: Variant; Parameters: Variant; Options: Integer): _Recordset
свойтва:
ActiveConnection: _Connection
CommandStream: Variant
CommandText: String
CommandTimeout: Integer
CommandType: Integer(перечисление)
Dialect: String
Name: String
NamedParameters: Boolean
Parameters: unknown
Prepared: Boolean
Properties: Properties
State: Integer
</source>
<source lang="delphi">
Recordset = class
методы:
_xClone: _Recordset
_xResync(AffectRecords: Integer(перечисление))
_xSave(FileName: String; PersistFormat: Integer(перечисление))
AddNew(FieldList: Variant; Values: Variant)
Cancel
CancelBatch(AffectRecords: Integer(перечисление))
CancelUpdate
Clone(LockType: Integer(перечисление)): _Recordset
Close
CompareBookmarks(Bookmark1: Variant; Bookmark2: Variant): Integer(перечисление)
Delete(AffectRecords: Integer(перечисление))
Find(Criteria: String; SkipRecords: Integer(перечисление); SearchDirection: Integer(перечисление); Start: Variant)
GetRows(Rows: Integer; Start: Variant; Fields: Variant): Variant
Move(NumRecords: Integer(перечисление); Start: Variant)
MoveFirst
MoveLast
MoveNext
MovePrevious
NextRecordset(RecordsAffected: Variant): _Recordset
Open(Source: Variant; ActiveConnection: Variant; CursorType: Integer(перечисление); LockType: Integer(перечисление); Options: Integer)
Requery(Options: Integer)
Resync(AffectRecords: Integer(перечисление); ResyncValues: Integer(перечисление))
Save(Destination: Variant; PersistFormat: Integer(перечисление))
Seek(KeyValues: Variant; SeekOption: Integer(перечисление))
Supports(CursorOptions: Integer(перечисление)): Boolean
Update(Fields: Variant; Values: Variant)
UpdateBatch(AffectRecords: Integer(перечисление))
свойства:
AbsolutePage: Integer(перечисление)
AbsolutePosition: Integer(перечисление)
ActiveCommand: IDispatch
ActiveConnection: Variant
BOF: Boolean
Bookmark: Variant
CacheSize: Integer
Collect: Variant
CursorLocation: Integer(перечисление)
CursorType: Integer(перечисление)
DataMember: String
DataSource: Неопределен
EditMode: Integer(перечисление)
EOF: Boolean
Fields: _Fields
Filter: Variant
Index: String
LockType: Integer(перечисление)
MarshalOptions: Integer(перечисление)
MaxRecords: Integer(перечисление)
PageCount: Integer(перечисление)
PageSize: Integer
Properties: unknown
RecordCount: Integer(перечисление)
Sort: String
Source: Variant
State: Integer
Status: Integer
StayInSync: Boolean
</source>
<source lang="delphi">

Fields = class
методы:
_Append(Name: String; Type: Integer(перечисление); DefinedSize: Integer(перечисление); Attrib: Integer(перечисление))
Append(Name: String; Type: Integer(перечисление); DefinedSize: Integer(перечисление); Attrib: Integer(перечисление); FieldValue: Variant)
CancelUpdate
Delete(Index: Variant)
Refresh
Resync(ResyncValues: Integer(перечисление))
Update
свойства:
Count: Integer
Item(Index: Variant): _Field default

</source>
<source lang="delphi">
Field = class
методы:
AppendChunk(Data: Variant)
GetChunk(Length: Integer): Variant
свойства:
ActualSize: Integer(перечисление)
Attributes: Integer
DataFormat: Неопределен
DefinedSize: Integer(перечисление)
Name: String
NumericScale: Unsigned char
OriginalValue: Variant
Precision: Unsigned char
Properties: unknown
Status: Integer
Type: Integer(перечисление)
UnderlyingValue: Variant
Value: Variant

</source>

<source lang="delphi">
Properties = class
методы:
Refresh
свойства:
Count: Integer
Item(Index: Variant): Property default
</source>
<source lang="delphi">

Property = class
свойства:
Attributes: Integer
Name: String
Type: Integer(перечисление)
Value: Variant

</source>

[[Category:Учебный курс]] [[Category:Импорт\экспорт данных]]

@@ Строка 1: / Строка 1: @@
 Файлы DBF представляют собой таблицы [http://en.wikipedia.org/wiki/DBase СУБД dBase] и часто используются для передачи данных от одного приложения к другому. Драйвер [http://en.wikipedia.org/wiki/ActiveX_Data_Objects ADO] встроен в систему Windows и не нуждается в отдельной установке.
 ==== Создание подключения ====
@@ Строка 12: / Строка 10: @@
 </source>
-где FilePath –- путь к папке с файлом DBF.
+где FilePath –- путь к папке с файлом DBF. Строки подключения для разных источников данных можно найти [http://www.connectionstrings.com/ здесь].
 ==== Создание объекта-комманды ====
@@ Строка 28: / Строка 26: @@
 </source>
-Запрос на создание таблицы в папке указанной в подключении:
+==== Создание новой таблицы ====
 <source lang="vbnet">
@@ Строка 35: / Строка 33: @@
 </source>
-Пример работы:
+==== Пример работы с DBF файлами через ADO ====
 <source lang="vbnet">
@@ Строка 217: / Строка 215: @@
 </source>
-[[Category:Учебный курс]] [[Category:Импорт/экспорт данных]]
+=== См. также ===

← Предыдущая		Версия 13:11, 10 марта 2011
Строка 1:		Строка 1:

	Файлы DBF представляют собой таблицы файловой базы данных dBase. Часто используются для передачи данных от одного приложения к другому.		Файлы DBF представляют собой таблицы файловой базы данных dBase. Часто используются для передачи данных от одного приложения к другому.
−	~~== С использованием библиотеки gsdbquery.dll ==~~
−
−	~~Создание списка датасетов:~~
−	~~<source lang="vbnet">~~
−	~~set gsql = CreateObject("gsdbquery.gsdb_rpQueryList")~~
−	~~</source>~~
−	~~Создание датасета и указание пути расположения файла DBF:~~
−	~~<source lang="vbnet">~~
−	~~set qryDBF = gsql.Query(gsql.Add("qrydbf", 2))~~
−	~~qryDBF.Database = Path~~
−	~~</source>~~
−	~~Запрос к файлу DBF:~~
−	~~<source lang="vbnet">~~
−	~~qryDBF.SQL = _~~
−	~~" SELECT " & _~~
−	~~" t.kod_plat, t.debet, t.kredit " & _~~
−	~~" FROM '" & _~~
−	~~Filename & "' t " & _~~
−	~~" ORDER BY " & _~~
−	~~" t.kod_plat "~~
−	~~qryDBF.Open~~
−	~~qryDBF.First~~
−	~~do while not qryDBF.Eof~~
−	~~FieldValue = qryDBF.FieldByName(“FIELDNAME”).AsString~~
−	~~qryDBF.Next~~
−	~~loop~~
−	~~qryDBF.Close~~
−	~~</source>~~
	== При помощи ADO ==		== При помощи ADO ==

← Предыдущая		Версия 15:59, 14 февраля 2010
Строка 252:		Строка 252:
	</source>		</source>

−	[[Category:Учебный курс]] [[Category:Импорт\экспорт данных]]	+	[[Category:Учебный курс]] [[Category:Импорт/экспорт данных]]

@@ Строка 1: / Строка 1: @@
-Файлы DBF представляют собой таблицы файловой базы данных dBase. Часто используются для передачи данных от одного приложения к другому.
+Строки подключения для разных источников данных можно найти [http://www.connectionstrings.com/ здесь].
-== При помощи ADO ==
-Драйвер ADO уже встроен в систему Windows, и дополнительно устанавливать его не нужно. Он представляет собой всего лишь удобную Active-X оболочку для доступа к данным, которую можно использовать почти из любых языков и сред программирования.
+==== Создание подключения ====
 <source lang="vbnet">
 set ADOConnection = CreateObject("ADODB.Connection")
@@ Строка 14: / Строка 11: @@
 "Extended Properties=""dBASE IV;"";")
 </source>
-Создание объекта-комманды:
+где FilePath –- путь к папке с файлом DBF.
 <source lang="vbnet">
 set ADOCommand = CreateObject("ADODB.Command")
 ADOCommand.ActiveConnection = ADOConnection
 </source>
-Выполнение запроса и получение результата:
 <source lang="vbnet">
 ADOCommand.CommandText = " SELECT COUNT(*) as c_all FROM [" & Filename & "]"
 set ADODataset = ADOCommand.Execute
 </source>
 Запрос на создание таблицы в папке указанной в подключении:
 <source lang="vbnet">
 ADOCommand.CommandText = " CREATE TABLE NEW.DBF (kod_plat CHAR(4), debet decimal(10), kredit decimal(10))"
 ADOCommand.Execute
 </source>
 Пример работы:
 <source lang="vbnet">
 ' Создадим подключение к файлу DBF
@@ Строка 57: / Строка 62: @@
 ADOConnection.Close
 </source>
-Схема используемых классов:
 <source lang="delphi">
@@ Строка 84: / Строка 90: @@
    State: Integer
    Version: String
 Command = class
 методы:
@@ Строка 105: / Строка 109: @@
    Properties: Properties
    State: Integer
-</source>
-<source lang="delphi">
 Recordset = class
 методы:
@@ Строка 166: / Строка 169: @@
    Status: Integer
    StayInSync: Boolean
 Fields = class
@@ Строка 182: / Строка 183: @@
    Item(Index: Variant): _Field default
 Field = class
 методы:
@@ Строка 203: / Строка 202: @@
    Value: Variant
 Properties = class
 методы:
@@ Строка 212: / Строка 208: @@
    Count: Integer
    Item(Index: Variant): Property default
 Property = class
@@ Строка 221: / Строка 215: @@
    Type: Integer(перечисление)
    Value: Variant
 </source>
 [[Category:Учебный курс]] [[Category:Импорт/экспорт данных]]