Query1.close; query1.SQL.text := 'select * from '+edtTBLName.text+' where field1 = ''' + edit1.text + '''';//字符串 query1.Open;Query1.close; query1.SQL.text := 'select * from '+edtTBLName.text+' where field2 = ' + edit1.text ;//整型 query1.Open;
with index.Query_index do begin close; sql.Clear; sql.Add('select * from [user] where username='''+username.Text+''' and pwd='''+pwd.Text+''''); open; end;
with Query do begin close; sql.Clear; sql.Add('select * from '+tablename+'where.......'); open; end; tablename应该在这段以前赋值吧
Query1.SQL.Clear; Query1.SQL.Add('insert into student (name,age)');//student为表,name,age为字段 Query1.SQL.Add('values (:name,:age)') ;
query1.SQL.text := 'select * from '+edtTBLName.text+' where field1 = ''' + edit1.text + '''';//字符串
query1.Open;Query1.close;
query1.SQL.text := 'select * from '+edtTBLName.text+' where field2 = ' + edit1.text ;//整型
query1.Open;
begin
close;
sql.Clear;
sql.Add('select * from [user] where username='''+username.Text+''' and pwd='''+pwd.Text+'''');
open;
end;
begin
close;
sql.Clear;
sql.Add('select * from '+tablename+'where.......');
open;
end;
tablename应该在这段以前赋值吧
Query1.SQL.Add('insert into student (name,age)');//student为表,name,age为字段
Query1.SQL.Add('values (:name,:age)') ;
Query1.Params[0].AsString:=Edit1.text;
Query1.Params[1].AsInteger:=strtoint(Edit2.text);
Query1.ExecSQL;
已测试通过!
query1.SQL.text := 'select * from '+edtTBLName.text+' where field1 = ''' + edit1.text + '''';//字符串
query1.Open;Query1.close;
query1.SQL.text := 'select * from '+edtTBLName.text+' where field2 = ' + edit1.text ;//整型
query1.Open