U programu imam Form1 na kojoj je MSHFlexGrid1, veza s bazom je ovako uspostavljena.
Na koji nacin da povezem Form2 i MSHFlexGrid2 s istom bazom ali DRUGOM TABELOM?
Code:
Private Sub Form_Load()
Dim strConnect As String
Dim strProvider As String
Dim strDataSource As String
Dim strDataBaseName As String
strProvider = "Provider= Microsoft.Jet.OLEDB.4.0;"
strDataSource = App.Path
strDataBaseName = "\Baza.mdb;"
strDataSource = "Data Source=" & strDataSource & strDataBaseName
strConnect = strProvider & strDataSource
Set connConnection = New ADODB.Connection
connConnection.CursorLocation = adUseClient
connConnection.Open strConnect
Set rsRecordSet = New ADODB.Recordset
rsRecordSet.Source = "Select * From PRVA TABELA"
rsRecordSet.ActiveConnection = connConnection
rsRecordSet.Open
lblBOF.Caption = rsRecordSet.BOF
lblEOF.Caption = rsRecordSet.EOF
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=" _
& App.Path & "\Baza.mdb;DefaultDir=" & App.Path & " ;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Private Sub Form_Load()
Dim strConnect As String
Dim strProvider As String
Dim strDataSource As String
Dim strDataBaseName As String
strProvider = "Provider= Microsoft.Jet.OLEDB.4.0;"
strDataSource = App.Path
strDataBaseName = "\Baza.mdb;"
strDataSource = "Data Source=" & strDataSource & strDataBaseName
strConnect = strProvider & strDataSource
Set connConnection = New ADODB.Connection
connConnection.CursorLocation = adUseClient
connConnection.Open strConnect
Set rsRecordSet = New ADODB.Recordset
rsRecordSet.Source = "Select * From PRVA TABELA"
rsRecordSet.ActiveConnection = connConnection
rsRecordSet.Open
lblBOF.Caption = rsRecordSet.BOF
lblEOF.Caption = rsRecordSet.EOF
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=" _
& App.Path & "\Baza.mdb;DefaultDir=" & App.Path & " ;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Na koji nacin da povezem Form2 i MSHFlexGrid2 s istom bazom ali DRUGOM TABELOM?