SQL 语句 - Select(1): 指定表
生活随笔
收集整理的這篇文章主要介紹了
SQL 语句 - Select(1): 指定表
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
//選擇 country 表中的所有字段
SELECT * FROM country{雖然 SQL 并不區分大小寫, 但應習慣把關鍵字大寫}
本例效果圖:
代碼文件:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB;typeTForm1 = class(TForm)Panel1: TPanel;Button1: TButton;Button2: TButton;DBGrid1: TDBGrid;DataSource1: TDataSource;ADODataSet1: TADODataSet;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}{查看數據庫 dbdemos.mdb 中的 country 表} procedure TForm1.Button1Click(Sender: TObject); beginADODataSet1.Close;ADODataSet1.CommandText := 'SELECT * FROM country';ADODataSet1.Open; end;{查看數據庫 dbdemos.mdb 中的 customer 表} procedure TForm1.Button2Click(Sender: TObject); beginwith ADODataSet1 do beginClose;CommandText := 'SELECT * FROM customer';Open;end; end;{控件關聯、連接數據庫: dbdemos.mdb} procedure TForm1.FormCreate(Sender: TObject); varmdbFile: string; begin{獲取 CodeGear 共享安裝的數據文件: dbdemos.mdb 的路徑}mdbFile := GetEnvironmentVariable('COMMONPROGRAMFILES'); {C:\Program Files\Common Files}mdbFile := mdbFile + '\CodeGear Shared\Data\dbdemos.mdb';ADODataSet1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +mdbFile + ';Persist Security Info=False';DBGrid1.DataSource := DataSource1;DataSource1.DataSet := ADODataSet1; end;end.
窗體文件:
object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 407ClientWidth = 645Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object DBGrid1: TDBGridLeft = 0Top = 35Width = 645Height = 372Align = alClientDataSource = DataSource1TabOrder = 0TitleFont.Charset = DEFAULT_CHARSETTitleFont.Color = clWindowTextTitleFont.Height = -11TitleFont.Name = 'Tahoma'TitleFont.Style = []endobject Panel1: TPanelLeft = 0Top = 0Width = 645Height = 35Align = alTopCaption = 'Panel1'TabOrder = 1object Button1: TButtonLeft = 16Top = 4Width = 75Height = 25Caption = 'Button1'TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 97Top = 4Width = 75Height = 25Caption = 'Button2'TabOrder = 1OnClick = Button2Clickendendobject DataSource1: TDataSourceDataSet = ADODataSet1Left = 184Top = 112endobject ADODataSet1: TADODataSetCursorType = ctStaticParameters = <>Left = 232Top = 184end end 本文轉自萬一的博客
本例效果圖:
代碼文件:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB;typeTForm1 = class(TForm)Panel1: TPanel;Button1: TButton;Button2: TButton;DBGrid1: TDBGrid;DataSource1: TDataSource;ADODataSet1: TADODataSet;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}{查看數據庫 dbdemos.mdb 中的 country 表} procedure TForm1.Button1Click(Sender: TObject); beginADODataSet1.Close;ADODataSet1.CommandText := 'SELECT * FROM country';ADODataSet1.Open; end;{查看數據庫 dbdemos.mdb 中的 customer 表} procedure TForm1.Button2Click(Sender: TObject); beginwith ADODataSet1 do beginClose;CommandText := 'SELECT * FROM customer';Open;end; end;{控件關聯、連接數據庫: dbdemos.mdb} procedure TForm1.FormCreate(Sender: TObject); varmdbFile: string; begin{獲取 CodeGear 共享安裝的數據文件: dbdemos.mdb 的路徑}mdbFile := GetEnvironmentVariable('COMMONPROGRAMFILES'); {C:\Program Files\Common Files}mdbFile := mdbFile + '\CodeGear Shared\Data\dbdemos.mdb';ADODataSet1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +mdbFile + ';Persist Security Info=False';DBGrid1.DataSource := DataSource1;DataSource1.DataSet := ADODataSet1; end;end.
窗體文件:
object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 407ClientWidth = 645Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object DBGrid1: TDBGridLeft = 0Top = 35Width = 645Height = 372Align = alClientDataSource = DataSource1TabOrder = 0TitleFont.Charset = DEFAULT_CHARSETTitleFont.Color = clWindowTextTitleFont.Height = -11TitleFont.Name = 'Tahoma'TitleFont.Style = []endobject Panel1: TPanelLeft = 0Top = 0Width = 645Height = 35Align = alTopCaption = 'Panel1'TabOrder = 1object Button1: TButtonLeft = 16Top = 4Width = 75Height = 25Caption = 'Button1'TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 97Top = 4Width = 75Height = 25Caption = 'Button2'TabOrder = 1OnClick = Button2Clickendendobject DataSource1: TDataSourceDataSet = ADODataSet1Left = 184Top = 112endobject ADODataSet1: TADODataSetCursorType = ctStaticParameters = <>Left = 232Top = 184end end 本文轉自萬一的博客
轉載于:https://www.cnblogs.com/easypc/archive/2011/07/01/2096004.html
總結
以上是生活随笔為你收集整理的SQL 语句 - Select(1): 指定表的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 一个自己的tooltip
- 下一篇: Python docs