Сборка ConnectionString

← →
Bolek © (2007-01-16 23:14) [0]

Доброго времени суток. Решил с АДО немного повозиться, да что-то затуп вышел. Обращаюсь к dbf файлу через адо. Хочу строку программно собрать. вот процедура
procedure TForm1.FormCreate(Sender: TObject); begin Form1.ADOConnection1.ConnectionString := "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" + ExtractFileDir(ParamStr(0)) + ";"; Form1.ADOConnection1.Connected := true; Form1.ADOTable1.Active := true; end;
при запуске дельфа мне выдает

Project group.exe raised exception class EVariantTypeCastError with message "Could not convert variant of type (Null) into type (String)". Process stopped. Use Step or Run to continue.

чего не так сделал?

← →
vlad-mal © (2007-01-16 23:17) [1]

Еще бы ты сказал, как у тебя ADOTable1 настроен, да на какой строчке эксцепшн вылетает...

← →
vlad-mal © (2007-01-16 23:21) [2]

А не хочешь Ole DB Provider для доступа к dbf использовать?

object Connect: TADOConnection ConnectionString = "Provider=VFPOLEDB.1;Data Source=E:\WRK\NIKONOFF\BASE;Mode=Share " + "Deny None;Extended Properties="";User ID="";Password="";Mask Pas" + "sword=False;Cache Authentication=False;Encrypt Password=False;Co" + "llating Sequence=RUSSIAN;DSN=""" LoginPrompt = False Mode = cmShareDenyNone Provider = "VFPOLEDB.1" end

И вообще, чего это ты в "Треп" запостил, а не в "Базы"? :)

← →
Bolek © (2007-01-16 23:21) [3]

Form1.ADOConnection1.Connected := true; Form1.ADOTable1.TableName := "grouplist"; Form1.ADOTable1.Active := true; {а вот тут ексепт вылез}

← →
Bolek © (2007-01-16 23:23) [4]

> И вообще, чего это ты в "Треп" запостил, а не в "Базы"?
> :)

поскромничал :)

← →
vlad-mal © (2007-01-16 23:25) [5]

Form1.ADOTable1.Connection на указывает?

← →
Bolek © (2007-01-16 23:27) [6]

да. в свойствах компонента написал

← →
Bolek © (2007-01-16 23:34) [7]

> vlad-mal © (16.01.07 23:21) [2]

ВФП юзать не берусь ибо вряд ли на конечной машине ВФ установлен.

← →
vlad-mal © (2007-01-16 23:37) [8]

А я не говорил про ВПФ.
Эта штука называется vfp ole db provider.

Поищи в и-нете "vfpoledb.exe", его и нужно инсталлировать.

← →
Bolek © (2007-01-16 23:45) [9]

это понятно. в общем не для себя пишу. да и провайдера там ставить не будут

← →
Bolek © (2007-01-16 23:55) [10]

да ну его на ночь глядя... скажу чтобы положили куда надо, помазали йодом, намотали бинт, надели презик и НИКАКИХ ПОЛОВЫХ СВЯЗЕЙ! :)
лениво ночью копать :shuffle:

Это правильно!
Спать пора.

ужо спать намылился, а не тут то было =/
все связки навязал, вдизайне даже записи в гриде появились. дал гриду рид-онли и при запуске

Project group.exe raised exception class EOleException with message "[Microsoft][Драйвер ODBC dBase] Непредвиденная ошибка драйвера внешней базы данных (15877)". Process stopped. Use Step or Run to continue.

а мож ну его нафик АДО энто... старый добрый бде заюзать...

PS. после рид-онли фальш эксепт все равно сохраняется

> Непредвиденная ошибка драйвера внешней базы данных (15877)
http://delphimaster.net/view/15-1167910472/

особое внимание на то где говорится о двойных запусках, BDE + Jet/BDE + ODBC(dBase)/ODBC(dBase) + ODBC(dBase) и блокировках при этом.

> а мож ну его нафик АДО энто... старый добрый бде заюзать...
ты от него (доброго старого) и не уходил никуда, просто добавил парочку посредников в доступе.

Сборка ConnectionString Найти похожие ветки