bedowin
Nov 20th, 2000, 02:58 PM
I am using a datagrid to return information to me when I click a button on a form. Can anyone provide help from the code below?
Option Explicit
Dim cn As New ADODB.Connection
Private Sub Form_Load()
Set cn = New ADODB.Connection
' The ConnectionString contains the path of the 'database.
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source= C:\Inetpub\wwwroot\main\db\service.mdb"
.Open
End With
End Sub
Private Sub cmdRun_Click()
Dim rsState As New ADODB.Recordset
Dim sSql As String
sSql = "Select * from tblRequests"
' Open recordset.
rsState.Open sSql, cn, adOpenStatic, adLockOptimistic
Debug.Print rsState.RecordCount
Set DataGrid1.DataSource = rsState
DataGrid1.Refresh
End Sub
Option Explicit
Dim cn As New ADODB.Connection
Private Sub Form_Load()
Set cn = New ADODB.Connection
' The ConnectionString contains the path of the 'database.
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source= C:\Inetpub\wwwroot\main\db\service.mdb"
.Open
End With
End Sub
Private Sub cmdRun_Click()
Dim rsState As New ADODB.Recordset
Dim sSql As String
sSql = "Select * from tblRequests"
' Open recordset.
rsState.Open sSql, cn, adOpenStatic, adLockOptimistic
Debug.Print rsState.RecordCount
Set DataGrid1.DataSource = rsState
DataGrid1.Refresh
End Sub