Discussion :

[Tatoine]

Cette question a été abordée plusieurs fois...mais j'ai pas reussi a trouver et à comprendre les solutions.

je veux faire deux requetes SQL vers deux tables differentes sur une base orcale.
L"une rempli mon datagrid
l'autre mon datacombo.

(les infos seront liées par la suites ).

Voici 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
 
Private Sub Form_Load()
    Dim strConnectionString As String
    strConnectionString = "Driver={Microsoft ODBC pour Oracle};SERVER=" & frmLogin.txtAlias & ";UID=" & frmLogin.txtLogin & ";PWD=" & frmLogin.txtPassword & ";"
  ' premiere requete pour remplir mon datagrid1  
    Adodc1.ConnectionString = strConnectionString
    Adodc1.RecordSource = "SELECT t1.numero_compose, t1.COULEUR, t1.Libelle ..... bla bla bla from DIA_DNIS where bla bla bla bla ...'"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    SorSor = False
 
' deuxieme requete pour remplir mon datacombo1
 
  Adodc1.RecordSource = "SELECT COMPETENCE_PRIMAIRE FROM DIA_COMPETENCES"
Adodc1.Refresh
      Set Datacombo1.DataSource = Adodc1
    Set Datacombo1.RowSource = Adodc1
    Datacombo1.DataField = "COMPETENCE_PRIMAIRE"
    Datacombo1.ListField = "COMPETENCE_PRIMAIRE"
 
   End Sub

voila, bien entendu...la requete 1 est ecrasée par la requete 2.
Comment faire?
(2 adodc1? 2 recordsources...?)

en fait, j'ai lu un peu les tutoriaux et le forum...mais je crois que je pige pas le mecanisme d'Adodc , recordsource, recordset...

voila, desole si il y'a de la redite

[Tatoine]

alors j'ai trouvé la réponse comme un grand:

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
23
24
25
26
27
28
29
30
31
32
33
Private Sub Form_Load()
    Dim strConnectionString As String
   Dim SQL As String
   Dim i As Integer
   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
 
 
   strConnectionString = "Driver={Microsoft ODBC pour Oracle};SERVER=" & frmLogin.txtAlias & ";UID=" & frmLogin.txtLogin & ";PWD=" & frmLogin.txtPassword & ";"
cn.Open strConnectionString
 
    Adodc1.ConnectionString = strConnectionString
 
  Adodc1.RecordSource = "SELECT t1.numero_compose, t1.COULEUR, t1.Libelle, t1.phrase_accueil, t1.Competence_primaire, t1.Competence_secondaire, bla bla blaFROM DIA_DNIS where bla bla bla'"
   Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
 
    SorSor = False
 
 
 
SQL = "SELECT DISTINCT COMPETENCE_PRIMAIRE FROM DIA_COMPETENCES"
rs.CursorLocation = adUseClient
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
 
      Set ListCompetence.DataSource = rs
    Set ListCompetence.RowSource = rs
    ListCompetence.DataField = "COMPETENCE_PRIMAIRE"
    ListCompetence.ListField = "COMPETENCE_PRIMAIRE"
 
End Sub

j'avais aps saisi la difference entre adodc1 et adodb