|
例
begin TitleQuery.Active := FALSE; TitleQuery.SQL.Clear; if IDRadioButton.Checked then begin TitleQuery.SQL.Add('select a.*, b.Description from Titles a, Categories b '); TitleQuery.SQL.Add('where CategoryID = Category '); TitleQuery.SQL.Add('order by a.TitleID'); end else begin TitleQuery.SQL.Add('select a.*, b.Description from Titles a, Categories b '); TitleQuery.SQL.Add('where CategoryID = Category '); TitleQuery.SQL.Add('order by a.Title'); end; TitleQuery.Active := TRUE; end;
Query1.Params[1] := 'Clyde'; Query1.Params[2] := '1234 First Street'; Query1.Params[3] := ''; Query1.Params[4] := 'Austin'; Query1.Params[5] := 'TX'; Query1.Params[6] := '78743'; Query1.Params[7] := '512-555-1234'; Query1.ExecSQL;
例
TitleUpdateQuery.SQL.Clear; TitleUpdateQuery.SQL.Add('UPDATE titles '); TitleUpdateQuery.SQL.Add('set TitleID = ' + intToStr(Titles.TitleQuery.FieldValues['TitleID']) + ', '); TitleUpdateQuery.SQL.Add('Title = ''' + TitleEdit.Text + ''', '); TitleUpdateQuery.SQL.Add('Category = ' + intToStr(CategoryDBComboBox.ItemIndex + 1) + ', '); TitleUpdateQuery.SQL.Add('Price = ' + PriceEdit.Text + ', '); TitleUpdateQuery.SQL.Add('Term = ' + TermEdit.Text + ' '); TitleUpdateQuery.SQL.Add('where TitleID = ' + intToStr(Titles.TitleQuery.FieldValues['TitleID']) + ' '); TitleUpdateQuery.ExecSQL;
例
TitleUpdateQuery.SQL.Clear; TitleUpdateQuery.SQL.Add('INSERT into titles values ('); TitleUpdateQuery.SQL.Add('0, ''' + TitleEdit.Text + ''', '); TitleUpdateQuery.SQL.Add(intToStr(CategoryDBComboBox.It emIndex + 1) + ', '); TitleUpdateQuery.SQL.Add(PriceEdit.Text + ', '); TitleUpdateQuery.SQL.Add(TermEdit.Text + ' )'); TitleUpdateQuery.ExecSQL;
例
Query1.Close; Query1.SQL.Add('select * from customers '); Query1.SQL.Add('where LastName = :LName and FirstName = :FName'); [ . . . ] Query1.Params[0] := 'Henderson'; Query1.Params[1] := 'Clyde'; Query1.Open;
例
Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('update customers '); Query1.SQL.Add('set LastName = :LName, FirstName = :FName '); Query1.SQL.Add('where CustID = :CustID'); [ . . . ] Query1.Params[0] := 'Henderson'; Query1.Params[1] := 'Clyde'; Query1.Params[2] := iCustID; Query1.ExecSQL;
例
Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('insert into customers '); Query1.SQL.Add('values (0, :LName, :FName, :Address1, :Address2, '); Query1.SQL.Add(':City, :State, :Zip, :Phone)); [ . . . ] Query1.Params[0] := 'Henderson';
|