摘要:
用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... 阅读全文
摘要:
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 阅读全文
摘要:
delphi Midas SQLServer的自增字段的处理1.新增时,表中有自增字段,但是不希望用Refresh,直接ApplyUpdates直接看见自增字段的值在DataSetProvider.AfterUpdateRecord写如下代码01.DataSetProvider.Options.poPropogateChanges:=True; 02.procedure TForm1.DataSetProvider1AfterUpdateRecord(Sender: TObject; 03.SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;.. 阅读全文