哪位可以帮忙写段小程序,主要是数据管理.

Question

以下是示例，有问题给我发邮件：[email protected] Function ExecuteSQL(ByVal sql _
   As String, MsgString As String) _
   As ADODB.Recordset
  
   ConnectString = "DBQ=" & DataBaseName & ";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(sql)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute sql
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(sql), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function

Answer 1

Public Function ExecuteSQL(ByVal sql _
   As String, MsgString As String) _
   As ADODB.Recordset
  
   ConnectString = "DBQ=" & DataBaseName & ";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(sql)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute sql
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(sql), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function

Answer 2

在VB工程里添加数据环境设计器，在这里操作和连接数据库非常方便，比上面提供的函数（上面的函数要在模块里添加，这只是起到查询作用，连接还要靠自己在各个窗体模块操作方可），同时还要初始化，使工程启动时自动连接数据库，代码如下：Private Sub DataEnvironment_Initialize()
    ''ADO中的数据连接所使用的字段
    Dim strConn As String
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source="
    strConn = strConn & App.Path & "\dormrent.mdb" & ";Persist Security Info=True"
    
    conHouses.ConnectionString = strConn
End Sub

Answer 3

发给我吧，我帮你改改
[email protected]

Answer 4

Dim sjk As ADODB.Connection
Dim sjkf As String
Set sjk = New ADODB.Connection
sjkf = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & "你的数据库路径和文件名;"
sjk.Open sjkf这是最简单实用的连接方法。当然，你要在“引用”中引用“ADO”。