Delphi通过ADO方式访问数据库

Delphi通过ADO方式访问数据库

1. ADO组件--àADOConnection -----à双击----àBuild--à建立数据源(得Connection String)

                 -----Connected属性为True

2. ADO组件---àADODataSet--à选择Connection为刚才建立的Connection1

           ----àConnectionText ---à点击属性栏左侧的“三个点”，显示Tables和Fields数据。---à在SQL栏中输入自己设计好的SQL语句---àActive属性设为True

//下面是为了立即看到数据而做的操作，数据关联

3.DataAccess组件------àDataSource--à选择Dataset属性的值为刚建立的ADODataSet1

4.DataControls组件-----àDBGrid---à选择DataSource属性为刚建立的DataSource1

               -------à这时可以看到查询出来的数据  

object Form1: TForm1
  Left = 240
  Top = 208
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style. = []
  ldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 48
    Top = 216
    Width = 320
    Height = 120
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style. = []
  end
  object DBEdit1: TDBEdit
    Left = 464
    Top = 160
    Width = 121
    Height = 21
    DataField = 'stuName'
    DataSource = DataSource1
    TabOrder = 1
  end
  object Edit1: TEdit
    Left = 464
    Top = 240
    Width = 121
    Height = 89
    TabOrder = 2
    nChange = Edit1Change
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString =
      'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' +
      'ID=sa;Initial Catalog=test;Data Source=127.0.0.1'
    Provider = 'SQLOLEDB.1'
    Left = 120
    Top = 40
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select stuName  from StuInfo'
    Parameters = <>
    Left = 120
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 120
    Top = 160
  end
end