VB与SQL Server之ADO下的对象示例

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.ocx"
Begin VB.Form frmHwbmQuery
   Caption         =   "货物查询"
   ClientHeight    =   4335
   ClientLeft      =   2610
   ClientTop       =   2595
   ClientWidth     =   7545
   LinkTopic       =   "Form1"
   ScaleHeight     =   4335
   ScaleWidth      =   7545
   Begin MSFlexGridLib.MSFlexGrid FLEX
      Height          =   3315
      Left            =   60
      TabIndex        =   1
      Top             =   60
      Width           =   7305
      _ExtentX        =   12885
      _ExtentY        =   5847
      _Version        =   393216
      Cols            =   3
      FormatString    =   "|<货物分类码|<货物编码"
   End
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   555
      Left            =   120
      TabIndex        =   0
      Top             =   3690
      Width           =   2115
   End
End
Attribute VB_Name = "frmHwbmQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'定义连接对象变量、命令对象变量、记录集对象变量

Dim Conn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim Rs As ADODB.Recordset

Private Sub Command1_Click()
 '执行过程出现错误后，跳转到ErrorHandle语句执行
On Error GoTo Errorhandle

   '产生一个新的连接对象，并将连接对象指定连接到Erp002服务器的Fiterp数据库
  
   Set Conn = New ADODB.Connection
   Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=fiterp;Data Source=ERP002"
   Conn.Open
      
    '声明一个新的命令对象，将前面建立的连接对象赋值给命令对象，表示命令对象发出的命令都是针对Erp002的Fiterp数据库
   Set Cmd = New ADODB.Command
   Set Cmd.ActiveConnection = Conn
  
    '将列表控件的行清空，只保留一个标题行
   Flex.Rows = 1

   Cmd.CommandType = adCmdTable
   Cmd.CommandText = "HWBMREC"
   '将HWBMREC数据表中的所有记录返回到Rs记录对象中
   Set Rs = Cmd.Execute
  
  
   '如果记录集有数据，就循环将所有数据在列表中列出
   Do While Not Rs.EOF
      Flex.AddItem vbTab & Rs(0) & vbTab & Rs(1)
      '上面的语句可替换为 Flex.AddItem vbTab & Rs("HWBMFLCODE") & vbTab & Rs("HWBMCODE")
     
      Rs.MoveNext
   Loop
  
   Rs.Close
   Conn.Close
  
   Set Conn = Nothing
   Set Cmd = Nothing
   Set Rs = Nothing
  
'执行完成后退出过程
Exit Sub
Errorhandle:
   Set Conn = Nothing
   Set Cmd = Nothing
   Set Rs = Nothing
   MsgBox Err.Description
End Sub

Private Sub Flex_Click()

End Sub