Добрый день.
Столкнулся с проблемой. Есть программа написанная на VFP. Необходимо чтобы она коннектилсь к FireBird базе и забирала данные. Программист, который поддерживает VFP отказывается что либо делать( говорит...переделайте сетевую базу в DBF).

Я не знаток VFP, но ИМХО тут делов на 5 минут.

Вот рабочий кусок кода на Delphi

<CODE>
var Obj,Command,Data:OleVariant;
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;
//
Command:=CreateOleObject('ADODB.Command');
Command.ActiveConnection:=Obj;
Command.CommandText :='SELECT * FROM COMMENT';
//
Data:=CreateOleObject('ADODB.Recordset');
Data:=Command.Execute();
while not Data.EOF do
begin
Memo1.Lines.Add( Data.Fields['ID'].Value );
Memo1.Lines.Add( Data.Fields['CASHID'].Value );
Data.MoveNext;
end;
//
finally
Command:=null;
Data:=null;
Obj.Close;
Obj:=null;
end;
end;
</CODE>

Подскажите , как это будет выглядеть в VFP???
Вот мой вариант :
<CODE>

Local vConnect, vCommand, vData

vConnect = CreateObject( 'ADODB.Connection' )
v='d:\kassa\'
vConnect.ConnectionString = 'driver={Firebird/InterBase(r) driver};uid=SYSDBA;pwd=masterkey;database=' + ForcePath( 'PRINT.GDB', v ) + ';CHARSET=WIN1251;'
vConnect.ConnectionTimeOut =1200
vConnect.CursorLocation = 3
vError = ''
On Error vError = Message()
vConnect.Open( vConnect.ConnectionString )
On Error
If !Empty( vError )
=UserMes( 'Error On Connect - ' + vError )
Return .F.
EndIf

vCommand = CreateObject( 'ADODB.Command' )
vCommand.ActiveConnection = vConnect
vCommand.CommandText = "SELECT * FROM COMMENT"

далее пошел код с ошибками ибо пишу впервые

vData = CreateObject('ADODB.RecordSet')
vData = vCommand.Execute
пока vData.EOF=0 делать
vData.Fields['ID'].Value
vData.Field['CASHID'].Value
vData.MoveNext
конец пока
</CODE>

Господа, а может ли кто-нибудь проверить кусок кода в действии ???

Local vConnect, vCommand, vData

vConnect = CreateObject( 'ADODB.Connection' )
v='d:\kassa\' {// путь к базе...укажите правильный}
vConnect.ConnectionString = 'driver={Firebird/InterBase(r) driver};uid=SYSDBA;pwd=masterkey;database=' + ForcePath( 'PRINT.GDB', v ) + ';CHARSET=WIN1251;'
vConnect.ConnectionTimeOut =1200
vConnect.CursorLocation = 3
vConnect.Open( vConnect.ConnectionString )


vCommand = CreateObject( 'ADODB.Command' )
vCommand.ActiveConnection = vConnect
vCommand.CommandText = "SELECT * FROM COMMENT"


vData = CreateObject('ADODB.RecordSet')
vData = vCommand.Execute
Do While vData.EOF = 0
vData.Fields['ID'].Value
vData.Field['CASHID'].Value
vData.MoveNext
EndDo

vData.Close()
vConnect.Close()

Единственное, что я не знаю...это как отобразить данные.
Т.е. данные
vData.Fields['ID'].Value
vData.Field['CASHID'].Value
нужно куда-то отобразить.

Сама БД во вложении. Ссылку на FireBird и ODBC сообщу.

mvictorodbc не пробовали ?
теоретически, там меньше возможностей, но для vfp это "роднее"


А я по Вашему как работаю ? Как раз через ODBC.
Или я что-то не понял ???