走过路过不要错过,谁能帮我看看这个问题是怎么回事
创建如下动态连接库,如果数据库是sql server,调用此动态连接库可以显示数据
如果是oracle调用此动态连接库却不能显示数据,why?
//////////////////////////
library Project1;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};
exports
showdate;
{$R *.res}
begin
end.
////////////////////////////
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
procedure showdate(s_connect,s_sql:string) stdcall;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure showdate(s_connect,s_sql:string) stdcall;
begin
form1:=TForm1.Create(nil);
showmessage(s_connect);
form1.ADOQuery1.ConnectionString:=s_connect;
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Text:=s_sql;
form1.ADOQuery1.Open;
form1.ShowModal;
end;
end.