发新话题
打印

在VB里面如何打开.dbf库啊

Private Sub ConnDBF()
    '连接数据库
    Dim StrConnect As String
    Dim myexit As Long
    StrConnect = "PROVIDER=MSDASQL;DRIVER={Microsoft Visual Foxpro Driver};SourceDB=C:\RepTasks2006\2006年度北京市部门决算.TSK\PARA;SourceType=DBF"
    If ConnectDbase(StrConnect) Then
        'myexit = MsgBox("数据库连接成功! ", vbOKOnly, "连接提示:")
        Exit Sub
    Else
        myexit = MsgBox("数据库连接失败!请检查连接设置信息。", vbOKOnly, "错误提示:")
        Unload Me
    End If
End Sub
Public Function ConnectDbase(StrConnect As String) As Boolean
    On Error GoTo ErrHandle
    'cndbase.ConnectionString = "PROVIDER=MSDASQL;DRIVER={Microsoft Visual Foxpro Driver};SourceDB=E:\久其格式\;SourceType=DBF"
    cndbase.ConnectionString = StrConnect
    cndbase.Open
    cndbase.CursorLocation = adUseClient
    ConnectDbase = True
    Exit Function
ErrHandle:
    ConnectDbase = False
End Function

'调用数据
    rsdbase.Open "Select index,bbbs,bblx,zbt,bbbh From BBBT", cndbase, adOpenDynamic, adLockPessimistic, adCmdText
zhouln2008

TOP

发新话题