Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:11:33 Delphi执行sql server普通查询
Delphi执行sql server普通查询
普通查询1.用SQL属性查询指定的数据用TADOQuery组件查询数据可以直接通过SQL语句进行查询,在使用SQL语句进行查询时,当查询字段的类型为字符或字符串时用单引号括起来;如果字段的类型为整型、单精度、双精度、货币时,则不需要用单引号括起来。下面用SQL属性对数据表中的数据进行查询。查询“姓名”为“林风”的学生信息,如图1所示。操作步骤如下:(1)运行Delphi,在窗体中添加TADOConnection、TADOQuery、TEdit、TComboBox、TDataSource、TButton和TDBGrid等组件。(2)主要程序代码如下:with ADOQuery1 dobeginclose;SQL.Clear;if a[Inp]=1 then //数组a用来判断当前字段用哪种SQL语句查询SQL.Add('Select * from MR_Student where '+ComboBox1.Text+ComboBox2.Text+''''+Edit1.Text+'''') //当字段类型为Varchar、char、nvarchar、text等用该SQL语句elseSQL.Add('Select * from MR_Student where '+ComboBox1.Text+ComboBox2.Text+Edit1.Text); //当字段类型为Int、float、double、money等用该SQL语句open;end;图1 用SQL属性查询指定的数据2.用Filter属性查询指定的数据用TTable组件对数据进行查询时主要用Filter方法来获取数据的查询条件,如果该方法为空时,将查询表中的所有记录。本示例是用Filter属性对数据表中的数据进行查询。操作步骤如下:(1)配置ODBC。(2)运行Delphi,在窗体中添加TTable、TEdit、TComboBox、TDataSource、TButton和TDBGrid等组件。(3)主要程序代码如下:procedure TForm1.Button1Click(Sender: TObject);begin//在Filter属性中输入查询的条件Table1.Filter := ComboBox1.Text+COmboBox2.Text+''''+Edit1.Text+'''';Table1.Filtered := True; //当Filtered属性为True时,Filter属性才有效DataSource1.DataSet := Table1;end;
赞