Delphi70中如何用代碼訪問數(shù)據(jù)庫的方法

Delphi7.0中如何用代碼訪問數(shù)據(jù)的方法一、第一種方法：1、設(shè)計(jì)的界面如下：2、主要代碼：（1）啟動窗口中的主要代碼：Se:=ExtractFilePath(Application.ExeName)+'data\jczk.mdb';//動態(tài)取出系統(tǒng)文件的路徑ADOADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+Se+';PersistSecurityInfo=False';ADOADOQuery1.Close;ADOADOQuery1.SQL.Clear;ADOADOQuery1.SQL.Add('select*fromyhz');ADOADOQuery1.Open;//ADOADOQuery1.ExecSQL;本句表示不返回值時(shí)的記錄集合ADOADOQuery1.Active:=true;（2）查詢其它表時(shí)的代碼：ADOADOQuery1.Close;ADOADOQuery1.SQL.Clear;ADOADOQuery1.SQL.Add('select*fromjf11');ADOADOQuery1.Open;ADOADOQuery1.Active:=true;（3）提示窗口：Application.MessageBox('ss','提示',64);（4）說明：DataSource1必須要與ADOADOQuery1連接在一起；DBGrid1必須要與DataSource1連接在一起。（5）取值：EDIT1.Text:=ADOADOQuery1.FieldByName('yhz04').AsString（6）怎么使用ADOQuery1給數(shù)據(jù)庫添加數(shù)據(jù)?ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('insertinto"Tab_Contron_record"');ADOQuery1.SQL.Add('('+str_V+')');ADOQuery1.SQL.Add('values('+str_T+')');ADOQuery1.ParamByName('用戶名').AsString:='admin';ADOQuery1.ParamByName('連接設(shè)備IP').AsString:='192.168.18.66';ADOQuery1.ParamByName('用戶類型').AsString:='管理員';ADOQuery1.ParamByName('連接時(shí)間').AsString:=datetimetostr(now);ADOQuery1.ParamByName('備注').AsString:='無';ADOQuery1.ExecSQL;（7）、怎么樣查詢數(shù)據(jù)庫中表的值，即條件查詢(注意：Quotedstr()函數(shù)的使用)：cnn:='select*fromsinfowheresid=200601001';//“sid”字段為數(shù)值型可以直接使用；cnn:='select*fromsinfowheresclass='+Quotedstr('高一一');//“sclass”字段為字符類型；//多條件進(jìn)行查詢的例子cnn:='select*fromsinfowheresclass='+Quotedstr('高一一')+'andssex='+quotedstr('男');ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(cnn);ADOQuery1.Open;ADOQuery1.Active:=true;（8）、與SQLServer2000遠(yuǎn)程數(shù)據(jù)庫相連接的辦法：//計(jì)算機(jī)進(jìn)入界面的時(shí)候就可以進(jìn)入，注意密碼為“1”；數(shù)據(jù)庫名稱為“TEST”；IP地址為“127.0.0.1”，直接法：cnstring:='Provider=SQLOLEDB.1;Password=1;PersistSecurityInfo=True;UserID=sa;InitialCatalog=test;DataSource=127.0.0.1';ADOQuery1.ConnectionString:=cnstring;方框法：//計(jì)算機(jī)進(jìn)入界面的時(shí)候就可以進(jìn)入cnstring:='Provider=SQLOLEDB.1;Password='+Edit3.Text+';PersistSecurityInfo=True;UserID=sa;InitialCatalog='+Edit2.Text+';DataSource='+Edit1.Text;//127.0.0.1';ADOQuery1.ConnectionString:=cnstring;（9）其它查詢的例子和數(shù)據(jù)記錄集的移動方法：cnn:='select*fromsinfowheresclass='+Quotedstr('高一一')+'andssex='+quotedstr('男');ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(cnn);ADOQuery1.Open;ADOQuery1.Active:=true;ifADOQuery1.RecordCount<>0thenbeginApplication.MessageBox('您已經(jīng)查詢到了相關(guān)的記錄！','提示',64);ADOQuery1.Active:=true;Edit1.Text:=ADOQuery1.FieldValues['sname'];//取出它的值endelsebeginApplication.MessageBox('您設(shè)有查詢到了相關(guān)的記錄，點(diǎn)擊退出！','提示',64);close;end;ADOQuery1.Active:=true;ADOQuery1.Next;//下一條記錄Edit1.Text:=ADOQuery1.FieldValues['sname'];//取出它的值A(chǔ)DODataSet1.Next;//下一條//ADODataSet1.Prior;//前一條//ADODataSet1.First;//第一條//ADODataSet1.Last;//最后一條edit1.Text:=ADODataSet1.FieldValues['姓名'];（10）記錄的數(shù)據(jù)值如何進(jìn)行修改。begin