 |
Jihadalariqi Level: Protégé
 Registered: 18-12-2007 Posts: 7
|
Re: DataGride Vs Datareport
quote: Set DataReport1.DataSource =
set the record set
like this
Private Sub Command2_Click()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\small business.mdb;Persist Security Info=False"
rst.Open "SQL", cnn, adOpenStatic, adLockOptimistic
Set DataReport1.DataSource = rst
DataReport1.Show 1
End Sub
|
____________________________
vbboy
|
|
18-12-2007 at 10:29 PM |
|
|
|
|
 |
 |