23.01.2007, 13:59
общий
это ответ
Здравствуйте, Wino Veritas!
Одним из вариантов для решения данного вопроса может быть связка VB6+ADO, для этого в референсах подключаем библиотеку Microsoft ActiveX Data Objects 2.7 Library ну или другой версии которую имеем, важно чтоб на компьютере клиента она присутствовала, установить можно с помощью MDAC соответствующей версии
Далее создаем три объекта adocon as new ADODB.connection; adocoM as new ADODB.command; adoRS as new ADODB.Recordset; через них и работаем, adocon объект доступа к базе данных, adocoM используется в тех случаях, когда не требуется возвращать источник данных; adoRS возвращает источник данных в котором можно добавлять, удалять и редактировать записи, а так же выводить на экран в различные гриды (есть специальные для АДО и отдельно для ДАО) ну и т.д.
Ниже примерчик, думаю разберёшся. В принцепе идея работает, проверял, главное творческий подход...
Приложение:
Private Sub Command1_Click()Dim FSO As New FileSystemObjectDim AdoDBFCon As New ADODB.ConnectionDim AdoDBFCom As New ADODB.CommandDim AdoDBFRS As New ADODB.RecordSetAdoDBFCon.Open "Provider=MSDASQL.1;" & _ "Persist Security Info=False;" & _ "Data Source=Файлы dBASE;" & _ "Initial Catalog=" & App.Path If AdoDBFCon.State = adStateOpen Then With AdoDBFCom Set .ActiveConnection = AdoDBFCon .CommandText = " CREATE TABLE MMM.DBF _ ( Lf_LoadID int, _ CodeCarrier int )" .Execute End With If FSO.FileExists(MMM.DBF) = True Then With AdoDBFRS Set .ActiveConnection = AdoDBFCon .Source = "SELECT * FROM MMM.DBF" .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockOptimistic .Open *************.ADD новая запись.Fields ("FieldName").value = 10.update зафиксироват запись**************** End With End IfEnd IfSet AdoDBFCom = NothingSet AdoDBFRS = NothingSet AdoDBFCon = NothingSet FSO = NothingEnd Sub