|
a. コンポーネントをフォーム上に配置します。
b. AliasName プロパティを ODBC DSN に設定します。
c. DatabaseName プロパティを覚えやすい値に設定します。
d. LoginPrompt プロパティを適切な値に設定します。
a. コンポーネントをフォーム上に配置します。
b. DatabaseName プロパティを TDatabase に指定した名前に設定します。
c. SQL プロパティを有効な SQL ステートメント(パラメーターの有無は無関係)に設定します。
d. SQL でパラメーターが使用されている場合は、Params 文字列を設定します。
e. 設計時にクエリを実行できるよう、Active プロパティを True に設定します。 例
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.ItemIndex + 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';
|