UC知道急：VB为定义错误，
来源：百度知道 编辑：UC知道 时间：2024/05/12 15:09:26
这个出问题了：Dim rec As ADODB.Recordest
数据是access的不知道怎么办了
总程序：
Dim rec As ADODB.Recordest
Private Sub Command1_Click()
Select Case Index
Case 0
rec.AddNew
Command1(1).Enabled = True
Case 1
On Error GoTo err1
rec.UpdateBatch adAffectAllChapters
Command1(1).Enabled = False
Case 2
On Error GoTo err1
rec.CancelUpdate
End Select
Exit Sub
err1:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Left = 0
Top = 0
Me.Height = main.ScaleHeight
Me.Width = main.ScaleWidth
Set rec = DateEnvironment1.Recordsets(1)
rec.AddNew
End Sub
Private Sub Form_Unload(Cancel As Integer)
rec.CancelUpdate
End Sub
数据是access的不知道怎么办了
总程序：
Dim rec As ADODB.Recordest
Private Sub Command1_Click()
Select Case Index
Case 0
rec.AddNew
Command1(1).Enabled = True
Case 1
On Error GoTo err1
rec.UpdateBatch adAffectAllChapters
Command1(1).Enabled = False
Case 2
On Error GoTo err1
rec.CancelUpdate
End Select
Exit Sub
err1:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Left = 0
Top = 0
Me.Height = main.ScaleHeight
Me.Width = main.ScaleWidth
Set rec = DateEnvironment1.Recordsets(1)
rec.AddNew
End Sub
Private Sub Form_Unload(Cancel As Integer)
rec.CancelUpdate
End Sub
请在VB工程顶端的菜单栏按以下步骤操作：
工程->引用->Microsoft ActiveX Data Objects 2.X Library
这是使用ADODB连接数据库的首要步骤，不然光有代码是没用的。我当年学连数据库的时候也被一些光贴代码不说这事的搞得晕头转向。
Set rs = New ADODB.Recordset
set rs=server.CreateObject("adodb.recordset")