adolink2.frm

vb数据库编程资料

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1125
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5940
   LinkTopic       =   "Form1"
   ScaleHeight     =   1125
   ScaleWidth      =   5940
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "建立到Access 教学数据库的连接"
      Height          =   495
      Left            =   2880
      TabIndex        =   1
      Top             =   240
      Width           =   2895
   End
   Begin VB.CommandButton Command1 
      Caption         =   "建立到SQL Pubs数据库的连接"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   2655
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim CnA As New ADODB.Connection
Dim CnB As New ADODB.Connection
Private Sub Command1_Click()
  Dim Cnastring As String
  Cnastring = "Driver={SQL Server};Server=BENQ-GTK38WPBWI\TONGAIHONG;Database=Pubs;" _
    & "uid =sa;pwd=tongaihong"   'SQL Server普通安全模式建立到Pubs数据库的连接的连接字符串
  With CnA
     .ConnectionString = Cnastring
     .ConnectionTimeout = 10
     .Open   '给连接的ConnectionString属性赋值，然后使用求带参数的Open方法打开连接
  End With
  MsgBox ("连接成功1")
  CnA.Close  '关闭连接
  Cnastring = "Driver={SQL Server};Server=BENQ-GTK38WPBWI\TONGAIHONG;Database=Pubs;" _
    & "uid =;pwd="   'SQL Server信任安全模式建立到Pubs数据库的连接的连接字符串
  CnA.Open Cnastring
  MsgBox ("连接成功2")
  CnA.Close
End Sub

Private Sub Command2_Click()
  Dim Cnbstring As String
  With CnB
     .ConnectionTimeout = 10
     .Open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & App.Path & "\教学.mdb;" & "User ID=;Password="
     '使用求带参数的Open方法打开连接
  End With
  MsgBox ("连接成功3")
  ConnString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\教学.mdb"
  CnB.Close  '关闭连接
  CnB.Open Cnbstring  '打开连接
  MsgBox ("连接成功4")
  CnB.Close
End Sub