摘要: 用TQuery: Query1.Close; Query1.SQL.Clear; Query1.SQL.Add(Insert Into MyTable Values(1,23,aa)); Query1.ExecSQL;如果是Select 语句则把Query1.ExecSQL改为Query1.Open. 用TADOQuery同上.用TADODataset(只能Select): ADODataset1.Close; ADODAtaset1.CommandText:=Select * from MyTable; ADODataset1.Open;for i:=0 to ds1... 阅读全文
posted @ 2013-02-23 20:22 IT少年 阅读(2654) 评论(0) 推荐(0) 编辑
摘要: 01.procedure TForm1.Button1Click(Sender: TObject); 02.begin 03. ADOConnection1.Open('xj','123456'); 04. ADOQuery1.Close; 05. ADOQuery1.SQL.Clear; 06. ADOQuery1.SQL.Add('insert into UserInfo(UserName, UserPwd, Address, RoleID, IsDel, CreateDate) values(:UserName, :UserPwd, :Addres 阅读全文
posted @ 2013-02-23 15:25 IT少年 阅读(1089) 评论(0) 推荐(0) 编辑
摘要: delphi Midas SQLServer的自增字段的处理1.新增时,表中有自增字段,但是不希望用Refresh,直接ApplyUpdates直接看见自增字段的值在DataSetProvider.AfterUpdateRecord写如下代码01.DataSetProvider.Options.poPropogateChanges:=True; 02.procedure TForm1.DataSetProvider1AfterUpdateRecord(Sender: TObject; 03.SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;.. 阅读全文
posted @ 2013-02-23 15:24 IT少年 阅读(15478) 评论(0) 推荐(1) 编辑