form1.frm

VB连接SQL实例,对初学者很有帮助,帮助大大滴有

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "ConnectionString属性的典型设置"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5460
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   5460
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "开始测试Connection对象"
      Height          =   615
      Left            =   1560
      TabIndex        =   0
      Top             =   960
      Width           =   2415
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 定义过程ConnectionStringX()
Public Sub ConnectionStringX()
'定义4个连接对象
   Dim cnn1 As ADODB.Connection
   Dim cnn2 As ADODB.Connection
   Dim cnn3 As ADODB.Connection
   Dim cnn4 As ADODB.Connection
   '不使用数据源名DSN打开连接
   Set cnn1 = New ADODB.Connection
   cnn1.ConnectionString = "driver={SQL Server};" & _
      "server=(Local);uid=sa;pwd=12345678;database=DB_STUDENT"
   cnn1.ConnectionTimeout = 30
   '连接时弹出对话框输入账户和密码
   cnn1.Properties("Prompt") = adPromptAlways
cnn1.Open
   '使用DSN和ODBC接口打开连接
   Set cnn2 = New ADODB.Connection
   cnn2.ConnectionString = "DSN=StudentDSN;UID=sa;PWD=12345678;"
   cnn2.Open
   '使用 DSN 和 OLE DB接口打开连接
   Set cnn3 = New ADODB.Connection
   cnn3.ConnectionString = "Data Source=StudentDSN;User ID=sa;Password=12345678;"
   cnn3.Open
   '使用DSN和单个参数而非连接字符串打开连接
   Set cnn4 = New ADODB.Connection
   cnn4.Open "StudentDSN", "sa", "12345678"
    ' 显示连接的状态
   MsgBox "cnn1 state: " & GetState(cnn1.State) & vbCr & _
      "cnn2 state: " & GetState(cnn2.State) & vbCr & _
      "cnn3 state: " & GetState(cnn3.State) & vbCr & _
      "cnn4 state: " & GetState(cnn4.State)
   cnn4.Close
   cnn3.Close
   cnn2.Close
   cnn1.Close
End Sub
'定义函数GetState返回连接对象的状态值
Public Function GetState(intState As Integer) As String
   Select Case intState
      Case adStateClosed
         GetState = "adStateClosed"
      Case adStateOpen
         GetState = "adStateOpen"
   End Select
End Function


Private Sub Command1_Click()
  Call ConnectionStringX
End Sub