| Вопрос: Конкурс продолжается! - TrueDBGrid | Добавлено: 27.11.06 11:34 |
Автор вопроса:  nat-z
|
| Ответы | Всего ответов: 31 |
|
Номер ответа: 31 Автор ответа:  nat-z Вопросов: 13 Ответов: 85 |
Профиль | | #31 | Добавлено: 29.11.06 14:45 |
|
Ну и ничего там!
А как вообще пишется открытие файла для ADO (есть где в примерах открытие ADO входного и вых файлов для перезаписи)? У меня: Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset Dim cn1 As New ADODB.Connection Dim rs1 As New ADODB.Recordset cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0  ata Source=" & _
GBmenu.Pth0 & "\" & GBmenu.Xnamestat) ' cn.Open ("Provider=MSDataShape ata Provider=Microsoft.Jet.OLEDB.4.0ata Source=" & _
GBmenu.Pth0 & "\" & GBmenu.Xnamestat) rs.ActiveConnection = cn For i = 0 To ..... ttt = "SELECT * FROM ..." rs.Open ttt, cn ' îòêðûòèå ACCESS-ôàéëà cn1.ConnectionString = " river={Microsoft dBASE Driver (*.dbf)}riverID=277bq=" & _
"....." cn1.Open rs1.ActiveConnection = cn1 rs1.Open ttt & ".DBF", cn1 Do Until rs.EOF rs1.AddNew ........... Где здесь ошибка? |
||