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?!請問哪裡出錯...
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()