Private Sub Form_Load()
Dim conn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim cmd As New ADODB.Command
Me.Show
DoEvents
Dim strConnectionString As String
Dim mysql As String
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\test.mdb"
conn1.Open strConnectionString
mysql = "select * From prstyle"
rs1.Open mysql, conn1, adOpenKeyset, adLockPessimistic
Set Adodc1.Recordset = rs1
Set DataGrid1.DataSource = Adodc1
End Sub
如上的程式, 小弟的 datagrid 無法顯示出 text.mdb 的資料, Why?!請問哪裡出錯...
Dim conn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim cmd As New ADODB.Command
Me.Show
DoEvents
Dim strConnectionString As String
Dim mysql As String
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\test.mdb"
conn1.Open strConnectionString
mysql = "select * From prstyle"
rs1.Open mysql, conn1, adOpenKeyset, adLockPessimistic
Set Adodc1.Recordset = rs1
Set DataGrid1.DataSource = Adodc1
End Sub
如上的程式, 小弟的 datagrid 無法顯示出 text.mdb 的資料, Why?!請問哪裡出錯...
全站熱搜
留言列表