VB6 и Paradox

[SKYS]

Имеется база данных (предположительно paradox *.db) При подключении в VB при помощи data выдает ошибку при запуске программы 'external table isn't in the expected format' а при использовании adodc выдает <[microsoft][Драйвер ODBC Paradox ] ошибка синтаксиса в предложении FROM > . И никак не получается может кто поможет.[/syntax]

[dr.MIG]

Пиши подробнее -- как подключаешься. Какой запрос (в котором та самая ошибка синтаксиса)?

[SKYS]

Пытаюсь подключиться через св-ва контролов . При подключении через DATA
Connect Paradox 5.x;
databasename 'Место расположения БД'
recordsource 'имя таблицы'

через adodc
Создаю подключение к БД paradox 5.0

Код: Выделить всё

connectionstring
Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;Extended Properties="DSN=1;DBQ=C:\D30\DATA;DefaultDir=C:\NDSD30\DATA;DriverId=538;FIL=Paradox 5.X;MaxBufferSize=2048;PageTimeout=600;"


в закладре recordsource
commandtype = table
выбираю таблицу нажимаю ОК и получаю ошибку также пробовал с помощью sql запроса вида select * from 'имя таблицы '
Через Delphi конектится все нормально но на delphi програмить не умею.

[SKYS]

Может это поможет кому нибудь мне помоч Очень Нужно

[SKYS]

ХМ Странно некоторые таблицы открываютсмя а некоторые нет. ВСЕ голова взрывается.

[alibek]

Дельфи работает с базами Paradox через BDE.
Ты же используешь ODBC-драйвер. Возможно этот драйвер не умеет понимать имена таблиц, в которых есть символ $.
Попробуй переименовать таблицы.

[SKYS]

Дельфи работает с базами Paradox через BDE.
Ты же используешь ODBC-драйвер. Возможно этот драйвер не умеет понимать имена таблиц, в которых есть символ $.
Попробуй переименовать таблицы.

действительно спасибо КАК я понимаю файлы с $ ODBC не поймет . Придется програмно копровать куданибуть необходимые таблицы переименововать и пользоваться.

[alibek]

Попробуй поискать другой драйвер (ODBC или OLEDB), возможно в более свежих версиях эта проблема решена.

[SKYS]

Да я решил сделать следующим образом

Код: Выделить всё

Dim NewFSO As New FileSystemObject
Private Sub Command1_Click()
Co.ShowOpen
Set File = NewFSO.GetFile(Co.FileName)
File.Copy ("C:\ПИК\gtd.db")
Dim ad As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 5.X;DefaultDir=c:\;dbq=C:\ПИК\;CollatingSequence=ASCII;"""
ad.Open str
rs.Open "gtd", ad, adOpenDynamic, adLockReadOnly
Set DataGrid1.DataSource = ad
While Not rs.EOF
Text1.Text = Text1.Text & rs.Fields(2) & Chr(13) & Chr(10)
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
ad.Close
Set ad = Nothing
End Sub


Но Одна проблема
строка

Код: Выделить всё

Set DataGrid1.DataSource = ad

выдает ошибку type mismatch

[iGrok]

Хм.. А что оно по твоему должно выдавать, если DataSource - это Recordset, а ты ему суешь Connection?

[SKYS]

Хм.. А что оно по твоему должно выдавать, если DataSource - это Recordset, а ты ему суешь Connection?

Я уже понял и исправил
Еще вопрос как определить открыт connect или нет .

[alibek]

Проверять свойство State.

[SKYS]

СПС все заработало А может кто подскажет как узнать как идут связи таблиц в paradox .

[HandKot]

[quote SKYS]связи таблиц в paradox [/quote]
а такое разве существует?

ЗЫЖ
помню в ДБФ для установления связей ВСЕГДА надо было давать команду SET RELATION ...TO ...и это действовало только во время работы этой программы и информация о связях нигде не хранилась

вероятно здесь тоже так

[Денис]

попробуй забить на вб и сделать все это в дельфи. искренне тебе рекомендую

[SKYS]

попробуй забить на вб и сделать все это в дельфи. искренне тебе рекомендую

Я работаю над программой уже более 2 месяцев она почти завершена , и переписывать её на delphi займет много времени (При условии что я знаю delphi не то что бы плохо но и не отлично) . А тут просто необходимо подцепить эти базы , а выторку необходимо делать с нескольких таблиц вот я и задал вопрос про связи узнать стоитли пробовать sql запрос для связанных таблиц

[SergT]

У меня как-то была похожая проблемка. Я ее решал с помощью Access, путем линковки таблиц. А потом уже работал с *.mdb.

[Денис]

SergT
О да! Я тоже... Обидно только, что не все таблици линкуются в mdb

[SKYS]

У меня как-то была похожая проблемка. Я ее решал с помощью Access, путем линковки таблиц. А потом уже работал с *.mdb.

А линковал Програмно или руками

[Денис]

SKYS
руками. (жмешь "создать связь с таблицами" в закладке таблиц, выбираешь нужный формат в окне открытия и ищешь где она у тебя там лежит)
з.ы. я сам не делал - нужды не было, но уверен, что программно тоже можно