我寫了一段代碼，運行不了，求幫忙運行解決一下，代碼如下-有解無憂

Dim Conn As New ADODB.Connection
Dim rs_reader As New ADODB.Recordset

Sub Data()
On Error GoTo Err
Dbpath = App.Path & "\book.mdb"
ConnectionString = "provider=Microsoft.Jet.oledb.4.0;data source=" & Dbpath
Conn.Open ConnectionString
Err:
If Err.Number Then
MsgBox "資料庫出錯"
End
End If

End Sub

Private Sub Command1_Click()
Dim answer As String
On Error GoTo cmdmodify
cmddel.Enabled = False
cmdmodify.Enabled = False
cmdupdate.Enabled = True
cmdcancel.Enabled = True
DataGrid1.AllowUpdate = True
cmdmodify:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub

Private Sub Command2_Click()
Dim answer As String
On Error GoTo delerror
answer = MsgBox("確定要洗掉嗎？", vbYesNo, "")
If answer = vbYes Then
    DataGrid1.AllowDelete = True
    rs_reader.Delete
    rs_reader.Update
    DataGrid1.Refresh
    MsgBox "成功洗掉!", vbOKOnly + vbExclamation
    DataGrid1.AllowDelete = False
    Else
    Exit Sub
    End If
delerror:
    If Err.Number <> 0 Then
    MsgBox Err.Description
    End If
End Sub

Private Sub Command3_Click()
If Not IsNull(DataGrid1.Bookmark) Then
    rs_reader.Update
    End If
    cmddel.Enabled = True
    cmdmodify.Enabled = True
    cmdupdate.Enabled = False
    cmdcancel.Enabled = False
    DataGrid1.AllowUpdate = False
    MsgBox "修改成功！", vbOKOnly + vbExclamation, ""
End Sub

Private Sub Command4_Click()
rs_reader.CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
cmdmodify.Enabled = True
cmdcancel.Enabled = False
cmdupdata.Enabled = False
End Sub

Private Sub Form_Load()
Call Data
Dim sql As String
On Error GoTo loaderror
aql = "select * from 書刊類別"
rs_reader.CursorLocation = adUseClient
rs_reader.Open sql, Conn, adOpenKeyset, adLockPessimistic
cmdupdate.Enable = False
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
If userpow = "guest" Then
    Frame2.Enabled = False
    End If
Set DataGrid1.DataSource = rs_reader
Exit Sub
loaderror:
MsgBox Err.Description

End Sub

Private Sub Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = noting
rs_reader.Close
End Sub

uj5u.com熱心網友回復：

哪里出錯了? 錯誤資訊呢?

uj5u.com熱心網友回復：

連接字串出錯的話,可以用odbdc控制元件生成一個.

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/150539.html

標籤：數據庫(包含打印安裝報表)

上一篇：VB

下一篇：【跪求指點】VB中是否支持用SslStream.write發送資訊？