声明部分:
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New Command
Dim strSelect As String
Dim strConnection As String
代码部分:
Private Sub Form_Load() strConnection = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & App.Path & "\MBA.mdb;"
cnn.Open strConnection
@ cnn.CursorLocation = aduserclient
strSelect = "Select * from 交易"
rs.Open strSelect, cnn
Set DataGrid1.DataSource = rsEnd Sub
打@那行总出错,为什么????
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New Command
Dim strSelect As String
Dim strConnection As String
代码部分:
Private Sub Form_Load() strConnection = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & App.Path & "\MBA.mdb;"
cnn.Open strConnection
@ cnn.CursorLocation = aduserclient
strSelect = "Select * from 交易"
rs.Open strSelect, cnn
Set DataGrid1.DataSource = rsEnd Sub
打@那行总出错,为什么????
cnn.Open strConnection
cnn.CursorLocation = aduseclient
cnn.Open strConnection
Dim rs As New ADODB.Recordset
Dim cmd As New Command
Dim strSelect As String
Dim strConnection As String'代码部分:Private Sub Form_Load()
strConnection = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & App.Path & "\MBA.mdb;"
cnn.Open strConnection
cnn.CursorLocation = adUseClient
strSelect = "Select * from 交易"
rs.Open strSelect, cnn
Set DataGrid1.DataSource = rs
End Sub