WGLProcstat2Query.Close; WGLProcstat2Query.SQL.Clear; WGLProcstat2Query.SQL.Add(’select * from dbo.gdsinfomt, dbo.procstat’); WGLProcstat2Query.SQL.Add(’where ((dbo.gdsinfomt.gdsno=:E_gdsno) and (dbo.procstat.gdsno=:E_gdsno))’); //Roger 20091201 動態參數若使用相同的參數名稱兩個以上,請改用陣列方式,並把每個參數都當成獨立參數 WGLProcstat2Query.Parameters[0].Value:= Trim(GdsNoEdit.Text); WGLProcstat2Query.Parameters[1].Value:= Trim(GdsNoEdit.Text); WGLProcstat2Query.Open; [...]
建立ACCESS資料庫
檔名123.mdb,資料表格如下:
隨便手動給兩三筆測試資料。
將資料庫設定密碼123:
須使用開啟舊檔方式開起獨占模式,才可設定密碼。
開啟DELPHI,在Form表單上拉 TADOConnection 元件,並點選ConnectionString設定連線資料
選 Jet 4.0 OLE DB Provider
資料庫可以設檔名即可,不用設定目錄,但是必需要跟應用程式執行檔放在同個目錄下。
設定連線密碼。
可按測試連線,若可正常連線即可看到成訊息。
Delphi簡易連線測試:
拉入元件
DBGrid1:TDBGrid
ADOQuery1:TADOQuery
DataSource1:TDataSource
設定ADOQuery1:
將Connection屬性設為ADOConnection1(TADOConnection元件)
設定DataSource1:
將DataSet屬性設為ADOQuery1
設定DBGrid1資料表:
點選DBGrid1元件,將DataSource屬性設定為DataSource1
程式碼撰寫測試連線資料庫:
讓程式視窗建立時就順便執行SQL查詢
procedure TForm1.FormCreate(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(’select * from userdata’); ADOQuery1.Open; end;
執行程式會要求輸入資料庫帳號密碼的問題:
將ADOConnection1 [...]
近期迴響