vb.text

Visual Basic连接数据库的源代码

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection                  '创建连接
Set rs = New ADODB.Recordset                    '创建记录集
On Error GoTo TransactSQL_Error
    strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\***.mdb"
    strArray = Split(SQL)
    con.Open strConnection                      '打开连接
    If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
        rs.Open Trim$(SQL), con, adOpenKeyset, adLockOptimistic
        Set TransactSQL = rs                   '返回记录集
        iflag = 1
    Else
        con.Execute SQL                        '执行命令
        iflag = 1
    End If
TransactSQL_Exit:
    Set rs = Nothing
    Set con = Nothing
    Exit Function
TransactSQL_Error:
    MsgBox "查询错误：" & Err.Description
    iflag = 2
    Resume TransactSQL_Exit
End Function

Public Sub TabToEnter(Key As Integer)
    If Key = 13 Then                            '判断是否为回车键
    SendKeys "{TAB}"                            '转换为Tab键
    End If
End Sub