Hallo friends!
like I ask you befor I try to use both the connection but highlite this code
Call Adodc1.Recordse t.ActiveConnect ion
I need to open this query by using button click. like usual I need your support please .
Thank you in advance
[code=vb]
Dim cn As New ADODB.connectio n
Dim rs As New ADODB.Recordset
Private Sub cmdnext_Click()
rs.MoveNext
If rs.BOF Then rs.MoveNext
rs.EOF = rs.MoveFirst
MsgBox "go to next record", vbInformation
Call Adodc1.Recordse t.ActiveConnect ion
End Sub
Private Sub cmdshow_Click()
Set cn = New ADODB.Connectio n
cn.Provider = "Microsoft.jet. oledb.4.0; "
cn.Open "C:\HRMS\RT AHR "
Set rs = New ADODB.Recordset
rs.Open "select*fro m qryage", cn, adOpenDynamic, adLockOptimisti c
Show
Call Adodc1.Recordse t.ActiveConnect ion
End Sub[/code]
like I ask you befor I try to use both the connection but highlite this code
Call Adodc1.Recordse t.ActiveConnect ion
I need to open this query by using button click. like usual I need your support please .
Thank you in advance
[code=vb]
Dim cn As New ADODB.connectio n
Dim rs As New ADODB.Recordset
Private Sub cmdnext_Click()
rs.MoveNext
If rs.BOF Then rs.MoveNext
rs.EOF = rs.MoveFirst
MsgBox "go to next record", vbInformation
Call Adodc1.Recordse t.ActiveConnect ion
End Sub
Private Sub cmdshow_Click()
Set cn = New ADODB.Connectio n
cn.Provider = "Microsoft.jet. oledb.4.0; "
cn.Open "C:\HRMS\RT AHR "
Set rs = New ADODB.Recordset
rs.Open "select*fro m qryage", cn, adOpenDynamic, adLockOptimisti c
Show
Call Adodc1.Recordse t.ActiveConnect ion
End Sub[/code]
Comment