something likePrivate cnnToDb As New ADODB.Connection
Private rst As New ADODB.RecordsetIn Form_Load event: Dim strDb As String
Dim strSQL As String strDb = "C:\SomePath\your.mdb" strSQL = "SELECT TblA.ID, TblA.ItmName, TblA.price, TblB.job_name " _
& "FROM TblA INNER JOIN TblB ON (TblA.ID = TblB.PART_ID)" cnnToDb.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & strDb & ";" rst.Open strSQL, cnnToDb, adOpenStatic, adLockReadOnly Set DataGrid1.DataSource = rst
in the Form_Unload event: If cnnToDb.State = 1 Then 'check if connection still open
rst.Close
cnnToDb.Close
End If
Private rst As New ADODB.RecordsetIn Form_Load event: Dim strDb As String
Dim strSQL As String strDb = "C:\SomePath\your.mdb" strSQL = "SELECT TblA.ID, TblA.ItmName, TblA.price, TblB.job_name " _
& "FROM TblA INNER JOIN TblB ON (TblA.ID = TblB.PART_ID)" cnnToDb.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & strDb & ";" rst.Open strSQL, cnnToDb, adOpenStatic, adLockReadOnly Set DataGrid1.DataSource = rst
in the Form_Unload event: If cnnToDb.State = 1 Then 'check if connection still open
rst.Close
cnnToDb.Close
End If
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货