unit datam;
interface
uses
SysUtils, Classes, DB, ADODB,Dialogs;
type
Tdm = class(TDataModule)
dsstu: TDataSource;
student: TADOQuery;
dstea: TDataSource;
teacher: TADOQuery;
dscou: TDataSource;
course: TADOQuery;
banji: TADOTable;
xuesheng: TADOTable;
dsxsbb: TDataSource;
jiaoshi: TADOTable;
yixuan: TADOQuery;
suoyou: TADOQuery;
dsyixuan: TDataSource;
dssuoyou: TDataSource;
dsxuanke: TDataSource;
xuanke: TADOQuery;
wodexinxi: TADOQuery;
dswdxx: TDataSource;
con1: TADOConnection;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
dm: Tdm;
implementation
{$R *.dfm}
procedure Tdm.DataModuleCreate(Sender: TObject);
begin
try
dm.con1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='+ExtractFilePath(Paramstr(0))+'stu.mdb;Persist Security Info=True';
dm.con1.connected:=true;
dm.con1.Close;
dm.con1.Open;
showmessage('連接資料庫成功');
except
showmessage('資料庫連接錯誤');
end;
end;
end.
把靜態資料庫連接洗掉以后，換到別的地方就出錯了
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91674.html
標籤：數據庫相關