delphi ，sql，， 数据库 ，求助~~~~ 急~~~~~

delphi 对SQL数据库 导入数据，查询数据，添加数据比较成熟点的高手，最好能把插件的属性详细列举，谢谢~~~~

答案：大概整理了一下，MSSQL直接用自带控件就成，MYSQL要第三方的，
连接，查询，写入，修改，删除 代码都在下面。
连接是MYSQL的，其他的都是MSADO的，但用法基本上一样，如果还是看不懂，建议你直接找别人帮你写程序吧。
mysql:

连接
var
  Connection: TSQLConnection;
begin
  Connection := TSQLConnection.Create(nil);
  Connection.DriverName := 'dbxmysql';
  Connection.GetDriverFunc := 'getSQLDriverMYSQL50';
  Connection.LibraryName := 'dbxopenmysql50.dll';
  Connection.VendorLib := 'libmysql.dll';
  Connection.Params.Append('Database=NAME_OF_DATABASE);
  Connection.Params.Append('User_Name=NAME_OF_USER');
  Connection.Params.Append('Password=PASSWORD');
  Connection.Params.Append('HostName=localhost');
  Connection.Open;

  // ... do stuff

  Connection.Free;
end;

查询：
  dm.adoquery1.SQL.Clear;
  dm.adoquery1.SQL.Add('select * from czzh where 用户名="'+trim(edit_yhm.text)+'"');
  dm.adoquery1.ExecSQL;
  dm.adoquery1.Open;
  dm.adoquery1.First;
  if dm.adoquery1.Eof then begin
    showmessage('用户名不存在，请确认！');
    exit;
  end;

写入：
  dm.adoquery1.SQL.Clear;
  dm.adoquery1.parameters.clear;
  dm.adoquery1.SQL.Add('insert into rcwh(条形码,维护周期,最近维护日期,维护员,维护说明,设备名称) values (:a,:b,:c,:d,:e,:f)');
  dm.adoquery1.Parameters.ParamByName('a').Value:=trim(edit_txm.Text);
  dm.adoquery1.Parameters.ParamByName('b').Value:=strtoint(edit_whzq.Text);
  dm.adoquery1.Parameters.ParamByName('c').Value:=date;
  dm.adoquery1.Parameters.ParamByName('d').Value:=trim(edit_czy.Text);
  dm.adoquery1.Parameters.ParamByName('e').Value:='设备入库';
  dm.adoquery1.Parameters.ParamByName('f').Value:=trim(edit_sbmc.Text);
  dm.adoquery1.ExecSQL;

更新
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('update gzwx set 维修人="'+trim(edit_wxr.text)+'",维修日期="'+wxrq+'",维修说明="'+trim(edit_wxsm.text)+'" where 条形码="'+trim(edit_txm.text)+'" and 故障原因="'+trim(edit_sbgz.text)+'"');
  adoquery1.ExecSQL;


删除：
 if application.messagebox('当前选中的采购订单记录是否删除','记录删除',MB_YESNO)=IDNo then exit;
  adoquery3.Close;
  adoquery3.SQL.Clear;
  adoquery3.SQL.Text:='delete from db_cgdd where 订单编号="'+ddbh+'"';
  try
    adoquery3.ExecSQL;
  except
    showmessage('记录删除失败！');
    exit;
  end;

其他：不知道你在求助什么？
不如把你要干的活叫高手代劳算了。 QQ:502943096 没有插件。直接用 TADOQuery 不行吗？

上一个：关于delphi 操作EXcel的问题
下一个：delphi变体记录问题