ADO & FireBird

← →
Цукор5 (2009-05-18 13:28) [0]

Добрый день.

Необходимо в качестве примера показать код выборки данных из FireBird через ADO. Т.е. есть программист FoxPro , который должен выполнить эту задачу. Меня же попросили показать как это делается в принципе...

Думал, что просто. Но оказалось иначе (

var Obj,Table:OleVariant; I:Integer; Res:Variant; begin Obj:=CreateOleObject("ADODB.Connection"); try Obj.CursorLocation := 3; Obj.ConnectionTimeOut :=1200; Obj.ConnectionString := "driver={Firebird/InterBase(r) driver};uid=SYSDBA;pwd=masterkey;database=D:\IB\Print.gdb;CHARSET=WIN1251;"; Obj.Open; // Table := CreateOleObject("ADODB.RecordSet"); try I:=5; Table.Open(format("select * from pluwrite where code=%d",[I]),Obj,adOpenStatic,adLockOptimistic, adCmdText); if not Table.Eof then begin Memo1.Lines.Add( Table.Fields["Code"].Value ); Memo1.Lines.Add( Table.Fields["Name"].Value ); end; finally Table:=null; end; // finally Obj.Close; Obj:=null; end; end;

Собственно, в этом коде коннект проходит, но таблица пуста(хотя она не пуста). Подскажите...может я что-то делаю не так ?

Заранее спасибо !

← →
Palladin © (2009-05-18 13:42) [1]

а если условие убрать?

← →
Цукор5 (2009-05-18 14:18) [2]

Результат тот же.
Пробовал select * from таблица

← →
Медвежонок Пятачок © (2009-05-18 14:25) [3]

http://www.ibprovider.com/rus/examples/example_pas_04.html

← →
sniknik © (2009-05-18 14:28) [4]

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

и еще кстати, кто учит писать вот так
> I:=5; format("select * from pluwrite where code=%d",[I])
вместо простого
"select * from pluwrite where code=5"
?

всегда раздражало в чужом коде который вынужден был разбирать. вот какая тут реальная необходимость в формате с аргументом? это же не параметр и не полноценная его замена, а на таком принципе такое наворачивают, смотреть страшно. хотя суть - элементарный запрос.

p.s. будь проще, и люди к тебе потянутся...

← →
Цукор5 (2009-05-18 15:15) [5]

2 sniknik © (18.05.09 14:28) [4]

О какой крутизне идет речь ? Вы вообще вменяемы ?
Вы [0] читали ? Я объяснил для чего это мне...в своих приложениях я использую компоненты прямого доступа. Есть человек , который подобное будет делать в VFP (нет там компонет...есть ADO).

> всегда раздражало в чужом коде который вынужден был разбирать. вот какая тут реальная необходимость в формате с аргументом?

Нет тут никакой необходимости. Это был copy/paste.
Если это Вас ОЧЕНЬ СИЛЬНО задело, то извеняюсь.

>p.s. будь проще, и люди к тебе потянутся...

ИМХО, это и Вас касается !

> Я объяснил для чего это мне...
а я сказал что нужно идти от простого к сложному, а не наоборот. а раз уж полез, то смотри на ошибки в соответствии с используемым "стилем".
а уж "для чего это тебе" совершенно не противоречит сказанному.

> Нет тут никакой необходимости. Это был copy/paste.
вот вот, вместо того чтобы разобраться в простом варианте, и только после лезть в дебри - copy/paste и пусть разбираются другие.
тоже раздражает.

> Необходимо в качестве примера показать код выборки данных
> из FireBird через ADO.

Ну и как?
И что ты специально решил запутать фокспрошника.

← →
Цукор5 (2009-05-18 16:36) [8]

2 Anatoly Podgoretsky © (18.05.09 16:14) [7]

>Ну и как?

Успех. Уже сам разобрался ))

>И что ты специально решил запутать фокспрошника.

Нет. Но просто фокспрошник с этим работает впервые...просит помощи.

ADO &amp; FireBird Найти похожие ветки

ADO & FireBird Найти похожие ветки