摘要:
用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少年
阅读(2675)
评论(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少年
阅读(1106)
评论(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少年
阅读(15687)
评论(0)
推荐(1)
浙公网安备 33010602011771号