delphi7.0中如何用代碼訪問數據庫的方法

1、1Delphi7.0中如何用代碼訪問數據的方法中如何用代碼訪問數據的方法一、第一種方法：一、第一種方法：1、設計的界面如下：、設計的界面如下：2、主要代碼：、主要代碼：（1）啟動窗口中的主要代碼：）啟動窗口中的主要代碼：Se:=ExtractFilePath(Application.ExeName)datajczk.mdb動態(tài)取出系統(tǒng)文件的路徑ADOADOQuery1.ConnectionString:=Provider=Microso

2、ft.Jet.OLEDB.4.0DataSource=SePersistSecurityInfo=FalseADOADOQuery1.CloseADOADOQuery1.SQL.ClearADOADOQuery1.SQL.Add(fromyhz)ADOADOQuery1.OpenADOADOQuery1.ExecSQL本句表示不返回值時的記錄集合ADOADOQuery1.Active:=true（2）查詢其它表時的代碼：）查詢其它表時的

3、代碼：ADOADOQuery1.CloseADOADOQuery1.SQL.ClearADOADOQuery1.SQL.Add(fromjf11)ADOADOQuery1.OpenADOADOQuery1.Active:=true（3）提示窗口：）提示窗口：Application.MessageBox(ss提示64)（4）說明：）說明：DataSource1必須要與ADOADOQuery1連接在一起；DBGrid1必須要與DataSou

4、rce1連接在一起。（5）取值：）取值：EDIT1.Text:=ADOADOQuery1.FieldByName(yhz04).AsString（6）怎么使用）怎么使用ADOQuery1給數據庫添加數據給數據庫添加數據ADOQuery1.CloseADOQuery1.SQL.ClearADOQuery1.SQL.Add(into“Tab_Contron_recd“)ADOQuery1.SQL.Add((str_V))ADOQuery1.

5、SQL.Add(values(str_T))ADOQuery1.ParamByName(用戶名).AsString:=admin3Application.MessageBox(您設有查詢到了相關的記錄，點擊退出！提示64)closeendADOQuery1.Active:=trueADOQuery1.Next下一條記錄Edit1.Text:=ADOQuery1.FieldValues[sname]取出它的值ADODataSet1.Nex

6、t下一條ADODataSet1.Pri前一條ADODataSet1.First第一條ADODataSet1.Last最后一條edit1.Text:=ADODataSet1.FieldValues[姓名]（10）記錄的數據值如何進行修改。）記錄的數據值如何進行修改。beginADOQuery1.CloseADOQuery1.SQL.ClearADOQuery1.SQL.Add(fromsinfowheresclass=Quotedstr(

7、高一一))ADOQuery1.OpenADOQuery1.Active:=trueifADOQuery1.RecdCount0thenbeginApplication.MessageBox(您已經查詢到了相關的記錄！提示64)edit1.text:=ADOQuery1.FieldValues[sname]取出它的值以下是對取得的值進行修改ADOQuery1.Edit進入修改模式ADOQuery1.FieldValues[sname]:=

8、廖裕10修改的數值ADOQuery1.Post進行修改并寫回數據庫中去；ADOQuery1.Cancel不進行修改以下重新打開數據庫并進行顯示ADOQuery1.CloseADOQuery1.SQL.ClearADOQuery1.SQL.Add(fromsinfowheresclass=Quotedstr(高一一))ADOQuery1.OpenADOQuery1.Active:=trueendend（11）如何向數據庫中追加記錄的方法）