问个ado控件问题,在线等解决立结
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If
Dim cnstring As String '用于存放连接字符串的
cnstring = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=dytd;PassWord=dytd;Data Source=dytd_maipu"
Mycn.Open cnstring
Mycn.CursorLocation = adUseClient
Adodc2.Recordset.Open "select * from DJ_CSDJ_DJDCB_ZJBS where dcdz_bh='" & Trim(txt1.Text) & "'"
Mycn.Close
End Sub
问题是这样的,在一个窗体里有adodc1和adodc2两个控件,我要实现的功能是,点激下移的时候,adodc1的记录移动到下一条,而adodc2根据1所移的记录中的一条数据进行查询
现在错误是“3705 对象打开时,操作不被允许”!大家看看我的下移,和窗体的代码怎么修改一下,就能实现我 要的功能呢?!谢谢
Private Sub Form_Load()
If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
MsgBox "库里还没有记录请先填加再查询!!!", vbOKOnly + vbExclamation, "信息提示"
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Else
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
End If
End Sub