Bonjour
Je suis débutant en VB6 j'ai réussi à connecter ma base de données Access 2003 qui contient deux tables
et je souhaiterais connecter la deuxième table je ne sais pas comment
Merci d'avance.
mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 'DECLARATION Dim con As New ADODB.Connection Dim RS As New ADODB.Recordset --------------------------------------------------- 'CONNECTION Private Sub Form_Load() Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2 con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PROJET\data.mdb;Persist Security Info=False" rs.CursorLocation = adUseClient rs.Open "select * from table1", con, adOpenDynamic, adLockBatchOptimistic Set Text1.DataSource = rs Text1.DataField = "id" Set Text2.DataSource = rs Text2.DataField = "Nom" Set Text3.DataSource = rs Text3.DataField = "PRENOM" Set Text4.DataSource = rs Text4.DataField = "ADRESSE" Set DataGrid1.DataSource = rs End Sub
Partager