一个简单的数据连接问题

2007-09-28 11:22:59 224 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PyQt5学习总结（一个简单的数据库查询系统）基于PyQt5的GUI开发流程：将一个窗口控件拖入窗口中并放在预设的大致位置。对于要用代码引用的窗口控件，应指定一个名字：对于需要微调的窗口控件，可以设置其对应属性。重复步骤1和2，直到所需的所有窗口控件都放在窗口中。根据自己预设的界面，为便于布局可以添加Vertical Spacer、Horizontal Spacer、Horizontal Line、Vertical Line控件隔开。选择需布... 阅读详情

我是新手，我想做一个执行数据库的类，下面是我的类内容：
unit clstheAccess;

interface

Uses
SysUtils, Classes, DB, ADODB, Forms, Dialogs;

type
theAccess=class(TDataModule)
AdoConn: TADOConnection;
private
{ Private declarations }
public
procedure Conn;
function ExecuteSQL(strSQL:String;var strMsg:String):integer;
function ExecuteSQL1(strSQL:String;var strMsg:String;var rsReturn:TADOQuery):integer;
{ Public declarations }
end;

var
gtheAccess:theAccess;

implementation

procedure theAccess.Conn;
var
ConnectionString:String;
begin
ConnectionString:='User ID=sa;Password=123456;Data Source=;Initial Catalog=master';
AdoConn.Provider:='SQLOLEDB';
AdoConn.ConnectionString:=ConnectionString;
AdoConn.LoginPrompt:= False;
AdoConn.Mode:= cmShareDenyNone;
AdoConn.Connected:= True;
end;

function theAccess.ExecuteSQL(strSQL: String;var strMsg:String):Integer;
begin
try
if not AdoConn.Connected then Conn;
AdoConn.Execute(strSQL);
strMsg:='执行ＳＱＬ语句成功';
result:=1;
except
strMsg:='执行ＳＱＬ语句失败';
result:=0;
end;
end;

function theAccess.ExecuteSQL1(strSQL:String;var strMsg:String;var rsReturn:TADOQuery):integer;
var rs:TADOQuery;
begin
try
rs:=TADOQuery.Create(Application);
rs.Connection:=AdoConn; //这句有错误提示
if not AdoConn.Connected then Conn;
rs.SQL.Clear;
rs.SQL.Add(strSQL);
rs.Open;
rsReturn:=rs;
strMsg:='执行ＳＱＬ语句成功';
result:=1;
rs.Free;
except
strMsg:='执行ＳＱＬ语句失败';
result:=0;
end;
end;

end.

请大家帮我看看，这是哪里的错

...全文