form1.frm

数字查找系统 vb环境开发 界面做的非常好 是vb学习的绝佳素材 this vbsystem is very useful

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
   On Error GoTo errhandle
   
   '使用 Microsoft ODBC提供者打开连接
   Set cnn1 = New ADODB.Connection
   cnn1.ConnectionString = "driver={SQL Server};" & _
      "server=LUZHB;uid=sa;pwd=123"
   cnn1.Open strCnn
   cnn1.DefaultDatabase = "pubs"
   
   '显示提供者
   MsgBox "提供者: " & cnn1.Provider
     cnn1.Close
     Exit Sub
errhandle:
 MsgBox Err.Description, vbOKOnly, "错误"
End Sub