form1.frm

vb源码大全

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2295
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6615
   LinkTopic       =   "Form1"
   ScaleHeight     =   2295
   ScaleWidth      =   6615
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "连接 SQL SERVER数据库"
      Height          =   615
      Left            =   960
      TabIndex        =   0
      Top             =   600
      Width           =   3975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
ProviderX
End Sub

Public Sub ProviderX()

   Dim cnn1 As ADODB.Connection
   Dim cnn2 As ADODB.Connection
   Dim cnn3 As ADODB.Connection
   On Error GoTo errhandle
   
   '使用 Microsoft ODBC提供者打开连接
   Set cnn1 = New ADODB.Connection
   cnn1.ConnectionString = "driver={SQL Server};" & _
      "server=bigsmile;uid=sa;pwd=pwd"
   cnn1.Open strCnn
   cnn1.DefaultDatabase = "pubs"
   
   '显示提供者
   MsgBox "Cnn1 provider: " & cnn1.Provider
   '使用Microsoft Jet提供者打开连接
   Set cnn2 = New ADODB.Connection
   cnn2.Provider = "Microsoft.Jet.OLEDB.3.51"
   cnn2.Open "C:\Samples\northwind.mdb", "admin", ""
   '显示提供者
   MsgBox "Cnn2 provider: " & cnn2.Provider
   '使用SQL服务器提供者打开连接
   Set cnn3 = New ADODB.Connection
   cnn3.Provider = "sqloledb"
   cnn3.Open "Data Source=srv;Initial Catalog=pubs;", "sa", ""
   '显示提供者
   MsgBox "Cnn3 provider: " & cnn3.Provider
   cnn1.Close
   cnn2.Close
   cnn3.Close
   Exit Sub
errhandle:
 MsgBox Err.Description, vbOKOnly, "错误"
End Sub