Class TForm1 (unit DbUnit) |
TForm
Constructors |
Functions |
Properties |
Events |
Variables |
Constructors |
Functions |
sp.Prior; Edit1.Text := sp.Fields[0].AsString;} { sp.ParamByName('nParentKnot').AsInteger := 12; sp.Open; s := sp.FieldByName('sNameKnot').AsString; sp.Close;
sp := TSDStoredProc.Create(nil); sp.DatabaseName := 'TEST'; sp.StoredProcName := 'DWADM.INSERT_INF_KNOT'; try sp.Params.CreateParam(ftSqlInteger, 'nKnotID', ptSqlInputOutput); sp.Params.CreateParam(ftSqlString, 'sKnotName', ptSqlInput); sp.Params.CreateParam(ftSqlString, 'sDescribe', ptSqlInput); sp.Params.CreateParam(ftSqlInteger, 'nRubric', ptSqlInputOutput); sp.Params.CreateParam(ftSqlInteger, 'nPKnotID', ptSqlInput); sp.Params.CreateParam(ftSqlDateTime, 'dtModifyDate', ptSqlInputOutput); sp.Params.CreateParam(ftSqlInteger, 'nMode', ptSqlInput); sp.Params[0].AsInteger := 0; sp.Params[1].AsString := 'fcigyuoui'; sp.Params[2].AsString := 'tdjuykkkkkku'; sp.Params[3].AsInteger := 0; sp.Params[4].AsInteger := 0; sp.Params[5].AsDateTime := Now; sp.Params[6].AsInteger := 0; sp.Open; if not sp.EOF then begin i := sp.Fields[0].AsInteger; i := sp.Fields[1].AsInteger; s := sp.Fields[2].AsString; end; db.Commit; finally sp.Free; end; } { Q.SQL.Add('insert into AAA(A,B,C) values(:1,:2, :3)'); Q.Params[0].AsInteger := 10; Q.Params[1].AsString := 'aaaaaa'; Q.Params[2].AsDateTime := Now; Q.ExecSQL; db.Commit;
if not sp.EOF then begin sp.Next; s := sp.FieldByName('sNameKnot').AsString; Edit1.Text := s; end;
(Q.Fields[2] as TSqlBlobField).SaveToFile('e:\1.bmp');
Q.Params[0].LoadFromFile('e:\clouds.bmp');
Public declarations
Properties |
Events |
Variables |
Private declarations