Vishal Tiwari - 2009-04-26

Hi,

I am using ADO connection component and ADO Query component to connect to Firebird Database. I have installed Firebird ODBC driver also.

I have following code which is written on PHPExtension, can anybody suggest me what exactly i am missing.

I am new for PHP, but using Delphi from long time.

code is very simple.

Idea behind this code is that to return an employee name as a result from a database.

As a result i am getting nothing.

What could be the problem and what is needed to get the empname as a result.

Thanks in advance.

************************************************** *******

unit Unit1;

interface

uses
Windows,
Messages,
SysUtils,
Classes,
Forms,
zendTypes,
zendAPI,
phpTypes,
phpAPI,
phpFunctions,
PHPModules,
IBODataset,

StdCtrls,
ADODB,
DB, ActiveX;

type

TPHPExtension1 = class(TPHPExtension)
procedure PHPExtension1Functions0Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: Variant;
ZendVar: TZendVariable; TSRMLS_DC: Pointer);
private
{ Private declarations }
public
{ Public declarations }

end;

var
PHPExtension1: TPHPExtension1;

implementation

{$R *.DFM}

procedure TPHPExtension1.PHPExtension1Functions0Execute(Send er: TObject;
Parameters: TFunctionParams; var ReturnValue: Variant;
ZendVar: TZendVariable; TSRMLS_DC: Pointer);
var
DataBaseADOConnection: TADOConnection;
DataBaseQuery1: TADOQuery;
DataBaseQuery2: TADOQuery;
DataBasedataSource1: TDataSource;

begin
CoInitialize(nil);
DataBaseADOConnection := TADOConnection.Create(Self);

DataBaseADOConnection.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;User ID=sysdba;Data Source=C_PSTC';

DataBaseADOConnection.LoginPrompt := False;

DataBaseQuery1 := TADOQuery.Create(Self);

DataBaseQuery1.Active := False;
DataBaseQuery1.Connection := DataBaseADOConnection;
DataBaseQuery1.SQL.Clear;
DataBaseQuery1.SQL.Add('select empname from employeemaster');

DataBaseQuery1.Active := True;
couninitialize();
ReturnValue := DataBaseQuery1.FieldByName('empname').AsString;
end;

end.
************************************************** *******