Delphi7.0中如何用代码访问数据库的方法

中如何用代码访问数据的方法Delphi

7.0

一、第一种方法、设计的界面如下

1、主要代码2启动窗口中的主要代码1动态取出系统文件的路径Se:=ExtractFilePathApplication.ExeName+data\jczk.mdb;//ADOADOQueryl.Connectionstring:=Provider=Microsoft.Jet.OLEDB.

4.0;Data Source=+Se+;PersistSecurity lnfo=False,;ADOADOQueryl.Close;ADOADOQueryl.SQL.CIear;ADOADOQueryl.SQL.Addselect*from yhz1;ADOADOQueryl.Open;〃ADOADOQueryLExecSQL;本句表示不返回值时的记录集合ADOADOQueryl.Active:=true;查询其它表时的代码2ADOADOQueryl.Close;ADOADOQueryl.SQL.CIear;ADOADOQueryl.SQL.Addselect*fromjfll;ADOADOQueryl.Open;ADOADOQueryl.Active:=true;提示窗口提示3Application.MessageBoxss/,64;说明必需要与连接在一起；必需要与连4DataSourcel ADOADOQuerylDBGridl DataSourcel接在一起取值5EDITl.Text-ADOADOQueryl.FieldByNameCyhzOAJ.AsStnng怎么运用给数据库添加数据？6ADOQuerylADOQueryl.Close;ADOQueryl.SQL.CIear;ADOQueryl.SQLAddinsert intoTab_Contron_record1;ADOQueryl.SQLAdd,,+str_V+,;ADOQueryl.SQL.Add,values,+str_T+,;用户名ADOQueryl.ParamByName.AsString:=admin’;ADOQueryl.ParamByName连接设备IP.AsString:=,

192.

168.

18.66,;用户类型管理员,；ADOQueryl.Param ByName.AsString:=连接时间ADOQueryl.Param ByName.AsString:=datetimetostrnow;ADOQueryl.ParamByNameJ7±,.AsString:=,^£,;ADOQueryl.ExecSQL;、怎么样查询数据库中表的值，即条件查询留意函数的运用7Quotedstr cnn:=*select*from sinfowhere sid=202301001;〃sid”字段为数值型可以干脆运用；高一一;〃字段为字符类型；〃cnn:=select*from sinfowhere sclass=+Quotedstr sclass”多条件进行查询的例子高一一+cnn:=select*from sinfowhere sclass=+Quotedstr andssex=+quotedstr;ADOQueryl.Close;ADOQueryl.SQL.CIear;ADOQueryl.SQL.Addcnn;ADOQueryl.Open;ADOQueryl.Active:=true;、与远程数据库相连接的方法8SQLServer2000〃计算机进入界面的时候就可以进入，留意密码为“1”；数据库名称为“TEST”；IP地址为,干脆法:cnstring:=,Provider=SQLOLEDB.l;Password=l;Persist Securitylnfo=True;User ID=sa;lnitialCatalog=test;Data Source=

127.

0.

0.1,;ADOQueryl.Connectionstring:=cnstring;方框法〃计算机进入界面的时候就可以进入cnstring:=,Provider=SQLOLEDB.l;Password=+Edit

3.Text4-,;Persist Securitylnfo=True;llserID=sa;lnitial Catalog=+Edit

2.Text+;Data Source=+Editl.Text;//

127.

0.

0.1,;ADOQueryl.Connectionstring:=cnstring;其它查询的例子和数据记录集的移动方法9高一一+cnn:=select*from sinfowhere sclass=+Quotedstr andssex=+quotedstrADOQueryl.Close;ADOQueryl.SQL.CIear;ADOQueryl.SQL.Addcnn;ADOQueryl.Open;ADOQueryl.Active:=true;if ADOQueryl.RecordCountoO thenbeginApplication.MessageBox,^已经查询到了相关的记录！’「提示64;ADOQueryl.Active:=true;『〃取出它的值Editl.Text:=ADOQueryl.FieldValues sname];end elsebegin您设有查询到了相关的记录，点击退出！「提示Application.MessageBoxC’,64;close;end;ADOQueryl.Active:=true;〃下——条己录ADOQueryl.Next;t取出它的值Editl.Text:=ADOQueryl.FieldValues[sname];//〃下一条ADODataSetl.Next;//ADODataSetl.Prior;//Rif-第一条//ADODataSetl.First;//〃ADODataSetl.Last;〃最终一条姓名记录的数据值如何进行修改editl.Text:=ADODataSetl.FieldVclues[10beginADOQueryl.Close;ADOQueryl.SQL.CIear;高一一;ADOQueryl.SQL.Addselect*from sinfowhere sclass=+QuotedstrADOQueryl.Open;ADOQueryl.Active:=true;if ADOQueryl.RecordCountoO thenbegin您已经查询到了相关的记录！提示Application.MessageBox,64;editl.text:=ADOQueryl・FieldVrlues[snvme];〃取出它的值〃以下是对取得的值进行修改〃进入修改模式ADOQueryl.Edit;廖裕〃修改的数值ADOQueryl.FieldValues[sname[:=10;//进行修改并写回数据库中去；ADOQueryl.Post;〃ADOQueryl.Cancel;〃不进行修改〃以下重新打开数据库并进行显示ADOQueryl.Close;ADOQueryl.SQL.CIear;ADOQueryl.SQL.Addselect*from sinfowhere sclass=+Quotedstr,iW——;ADOQueryl.Open;ADOQueryl.Active:=true;end;end;如何向数据库中追加记录的方法11beginADOQueryl.Close;ADOQueryl.SQL.CIear;ADOQueryl.SQL.Addselect*from sinfowhere sclass=+Quotedstr,ift——ADOQueryl.Open;ADOQueryl.Active:=true;,您已经查询到了相关的记录！？提示Application.MessageBox64;二〃取出它的值editl.text:ADOQueryl.FieldValues[sname];〃以下是对取得的值进行修改〃进入修改模式ADOQueryl.Edit;进行追力口——条记录ADOQueryl.Append;//ADOQueryl.FieldValues[,sname]:=^^30,;〃修改的数值ADOQueryl.FieldValuesrsidkZOZBOir，修改的数值//进行修改并写回数据库中去；ADOQueryl.Post;〃ADOQueryl.Cancel;〃不进行修改〃以下重新打开数据库并进行显示ADOQueryl.Close;ADOQueryl.SQL.CIear;ADOQueryl.SQ,LAddselect*from sinfo;ADOQueryl.Open;ADOQueryl.Active:=true;DBGridl.Refresh;end;其它模糊查询的例子

二、其次种方法ID、界面设计和控件的设计

1、的部分属性设置2“ADOConnectionl”1LoginPrompt:False2Provider:SQLOLEDB其它的控件必需要进行关联

3、“起先查询”代码3ADOConnectionl.ConnectionString:=Provider=Microsoft.Jet.OLEDB.

4.0;DataSource=C:\test\data\cjzk.mdb;Persist Securitylnfo=False,;ADODataSetl.Close;二ADODataSetl.CommandText:select*from sykl,;ADODataSetl.Open;ADODataSetl.Active:=true;二姓名];//取出它的值editl.Text:ADODataSetl.FieldValues[、窗口退出代码4ADODataSetl.Close;、取出字段的值5[姓名];//取出它的值editl.Text:=ADODataSetl.FieldValues、连接方法，其它的方法完全一样6SQLServer2000ADOConnectionl.ConnectionString:=Provider=SQLOLEDB.l;Password=yuanli;Persist Securitylnfo=True;User ID=liyuan;lnitial Catalog=pzhjyj;Data Source=

218.

89.

107.206,;、移动记录的访问7〃下一条ADODataSetl.Next;〃ADODataSetl.Prior;〃前一条一条//ADODataSetl.First;//^〃ADODataSetl.Last;〃最终一条二[姓名editl.Text:ADODataSetl.Fieldvalues、增加记录的方法8ADODataSetl.Append、修改记录的值其次种方法9〃进入修改模式ADODataSetl.Edit;『姓名ADODataSetl.FieldValues]:=zhang;〃进行修改和更新ADODataSetl.Post;ADODataSetl.Active:=False;ADODataSetl.Active:=True;操作月生利!;ShowMessage、删除当前记录的值10if notADODataSetl.Eof thenbegin你删除该条记录吗？「删除,If application.MessageBox MB_OKCANCEL=1thenADODataSetl.Delete;endelseshowmessageC已经到达记录末尾,）；、关于对文本控件的显示11请您运用中的中的控件就可以了，但是要留意关联相关的数据源IDE“DataContrle”“BDEdit”［］ADODataSetl、关于的帮助文件的调用方法12Delphi

7.0。