| Вопрос: Paradox | Добавлено: 11.03.06 12:08 |
Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 |
| Подскажите как подключаются база Paradox в VB. Желательно примерчик. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 12.03.06 01:47 |
|
ADO
Драйвер ODBC для Paradox
oConn.Open "  river={Microsoft Paradox Driver (*.db)};" & _
" riverID=538;" & _
"Fil=Paradox 5.X;" & _ " efaultDir=c:\dbpath\;" & _
" bq=c:\dbpath\;" & _
"CollatingSequence=ASCII;" Примечание: MDAC 2.1 (и далее) требует Borland Database Engine (BDE) для обновления fDBF-файлов Paradox ISAM. (Q230126). |
||
|
Номер ответа: 2 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #2 | Добавлено: 12.03.06 14:02 |
|
Hacker я правильно понял?
Private Sub cmdLoad_Click()
Dim rsRec As ADODB.Recordset Set rsRec = OpenDatabase("TestM" 
End Sub Public Function OpenDatabase(sDatabase As String) As ADODB.Recordset Dim i As Long Dim sDBPath As String Dim sADOConnect As String sDBPath = App.Path On Error GoTo Hell: If adoCon.ConnectionString = "" Then ' Open ADO Connection to Database sADOConnect = " river={Microsoft Paradox Driver (*.db )};" & _
" riverID=538;" & _
"Fil=Paradox 5.X;" & _ " efaultDir=" & sDBPath & "\;" & _
" bq=" & sDBPath & "\;" & _
"UID=Admin;" & _ "PWD=14M4564JEEYPJG7;" & _ "CollatingSequence=ASCII" adoCon.Mode = adModeReadWrite adoCon.Open sADOConnect End If Set OpenDatabase = adoCon.Execute("SELECT * FROM " & sDatabase) Exit Function Hell: MsgBox (sADOConnect) MsgBox "Error accessing the Database [" & sDatabase & "]" & vbCrLf & vbCrLf & "Error [" & Err.Description & "]", vbCritical, App.Title End Function Если да, то вот, что я получаю Error accessing the Database [TestM] Error [[Microsoft][Драйвер ODBC Paradox]Внешняя таблица не имеет предпологаемый формат |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 12.03.06 21:06 |
|
А какая версия парадокса?
попробуй "Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;Extended Properties='DSN=Paradox
BQ=C:\myDbefaultDir=C:\myDbriverId=538;FIL=Paradox 7.X;MaxBufferSize=2048;PageTimeout=600;';Initial Catalog=C:\myDb" |
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 12.03.06 21:08 |
|
Чрез DAO нашёл
Dim db As DAO.Database
Dim rst As DAO.Recordset Set db = OpenDatabase(" :\FordPrice", False, False, "Paradox 3.X;"
Set rst = db.OpenRecordset("PART" Вообще полазь по форуму www.sql.ru И сюда загляни http://www.connectionstrings.com/ |
||
|
Номер ответа: 5 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #5 | Добавлено: 12.03.06 21:33 |
|
Спасибо Hacker, первый пример заработал, это я стормозил, у меня не был подключен BDE.
Я был http://www.connectionstrings.com, там и смотрел. |
||
Страница: 1 |