adddrv.frm

一套经典的asp教程 本人受益颇多 特推荐之 直接解压无密码

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "检查 ODBC/OLE DB 驱动程式"
   ClientHeight    =   3450
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5340
   LinkTopic       =   "Form1"
   ScaleHeight     =   3450
   ScaleWidth      =   5340
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   " 检 查 "
      Height          =   375
      Left            =   4320
      TabIndex        =   0
      Top             =   0
      Width           =   975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Dim ConnStr As String, Path As String
    Dim conn As Connection, rs As Recordset
    Dim Driver As String
    
    Cls
    Path = App.Path
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    
    On Error Resume Next
    Set rs = New ADODB.Recordset
    
    Driver = "Microsoft.Jet.OLEDB.4.0"
    ConnStr = "Provider=" & Driver & ";Data Source=" & Path & "Sample.mdb"
    rs.Open "Sample", ConnStr
    Print "OLE DB ... '" & Driver & "' ... " & IIf(Err.Number = 0, "OK!", "未安装!")
    rs.Close
    
    Driver = "{Microsoft Access Driver (*.mdb)}"
    ConnStr = "Driver=" & Driver & ";DBQ=" & Path & "Sample.mdb"
    rs.Open "Sample", ConnStr
    Print "ODBC ...'" & Driver & "' ..." & IIf(Err.Number = 0, "OK!", "未安装!")
    rs.Close
    
    Driver = "{Microsoft dBase Driver (*.dbf)}"
    ConnStr = "Driver=" & Driver & ";DBQ=" & Path
    rs.Open "Select * From Sample", ConnStr
    Print "ODBC ...'" & Driver & "' ..." & IIf(Err.Number = 0, "OK!", "未安装!")
    rs.Close
    
    Driver = "{Microsoft Excel Driver (*.xls)}"
    ConnStr = "Driver=" & Driver & ";DBQ=" & Path & "Sample.xls"
    rs.Open "Sample", ConnStr
    Print "ODBC ...'" & Driver & "' ..." & IIf(Err.Number = 0, "OK!", "未安装!")
    rs.Close
    
    Driver = "{Microsoft Text Driver (*.txt; *.csv)}"
    ConnStr = "Driver=" & Driver & ";DBQ=" & Path
    rs.Open "Sample.txt", ConnStr
    Print "ODBC ...'" & Driver & "' ..." & IIf(Err.Number = 0, "OK!", "未安装!")
    rs.Close
    
    Driver = "{Microsoft Visual FoxPro Driver}"
    ConnStr = "Driver=" & Driver & ";SourceType=DBF;SourceDB=" & Path
    rs.Open "Select * From Sample", ConnStr
    Print "ODBC ...'" & Driver & "' ..." & IIf(Err.Number = 0, "OK!", "未安装!")
    rs.Close
    
    
End Sub