[VB6]Connection à une base de données Oracle

Version imprimable

30/03/2004, 20h47
Zoilus

[VB6]Connection à une base de données Oracle

Bonjour,

je suis nouveau avec VB6, et je me pose deux petites questions probablement très simples pour vous tous...

J'ai réussi à communiquer avec VB à une base de donnée Oracle avec ADO (grâce aux superbes tutoriaux sur ce site), mais je n'ai pas trouvé un moyen de demander à l'utilisateur qu'il rentre lui-même son nom d'utilisateur et son mot de passe (je dois présentement l'écrire directement dans l'objet de connection, ce qui n'est pas idéal comme je dois gérer différents privilèges selon l'utilisateur Oracle). Quelqu'un peut-il m'aider?

Second problème, j'ai réussi à trouver que je peux mettre des '?' dans une requête SQL pour ensuite passer en paramètre (supposément) les données en mode exécution, mais je ne vois pas où et comment passer ces paramètres. J'ai bien regardé MSDN et les différents tutoriaux sur le site, mais rien à faire, je ne trouve pas. (Pour être plus précis, j'ai un combobox branchée à Oracle avec certaines valeurs, et je désire qu'il exécute une autre requête SQL avec dans la clause WHERE un filtre sur l'élément du premier combobox...)

Merci beaucoup, et j'espère avoir été assez clair dans mes explications,

Mathieu

Rebonjour...

je crois avoir réussi à me connecter grâce au code suivant...

---
Code:

1 2 3 4 5 6 7 Dim Conn As New ADODB.Connection Dim Rs As ADODB.Recordset Dim strSQL As String 'Oracle Connection Conn.Open "Provider=MSDAORA.1;User ID=monLogin;Data Source=maSource;Persist Security Info=False", text1.text, text2.text
---

Maintenant j'essaie d'associer un recordset à une composante dataCombo, et cela me donne une erreur... je ne comprend pas trop pourquoi...

---
Code:

1 2 3 4 5 6 7 8 9 10 strSQL = "SELECT Distinct(initiales) FROM cjt_cn_tb_employe" Set Rs = New ADODB.Recordset Rs.Open strSQL, Conn, adOpenStatic, adLockReadOnly DataCombo1.RowSource = Rs <-- Erreur ici DataCombo1.ListField = "Initiales" DataCombo1.BoundColumn = "Initiales" DataCombo1.Refresh
--

Est ce que c'est possible d'associer un recordset a un rowsource...? Sinon comment procéder?

Désolé de poser tant de question, mais j'essaie de comprendre...

Merci encore!

Mathieu

[Balise "Code" rajoutée par Khany]
[Pensez-y vous-même à l'avenir. Merci.:wink: ]

31/03/2004, 09h02
khany
:D Il te manque le SET :
Code:

1 2 3 Set datacomb1.Datasource = Set datacombo1.Rowsource =
Obligatoire ces 2 là :wink:

Merci beaucoup pour la réponse...

j'ai réussi à beaucoup avancer... je n'ai plus d'erreur, et j'ai même un résultat visible qu'il lit dans la base de données. Le seul problème c'est qu'il me montre seulement le 1er enregistrement de mon SELECT dans la propriété .Text, et quand je clique sur mon combobox aucune donnée n'apparaît.

Coici mon code:
Code:

1 2 3 4 5 6 DataCombo1.ListField = "Initiales" DataCombo1.BoundColumn = "Initiales" DataCombo1.DataField = "Initiales" Set DataCombo1.RowSource = Rs Set DataCombo1.DataSource = Rs
Je suspecte que je ne dois pas mettre la même chose dans le rowsource et le datasource (et listfield vs datafield je crois), mais ne sachant trop la différence je ne réussi pas à résoudre mon problème.

Merci encore!

Mathieu

31/03/2004, 19h29
khany

:D Si dans Datasource et rowsource, c'est ton Rs, pas de prob !

Par contre attention : si tu mets dans Datafield le champ "Initiales", dès que tu vas cliquer sur le datacombo, il va mettre à jour ta BD

donc, tu mets seulement le champ "Initiales" dans ListField :wink:

tu peux récupérer l'enregistrement sélectionné dans la datacombo via la propriété Bookmark du Rs et SelectedItem de la DataCombo.
31/03/2004, 20h19
Zoilus

Je me posais la question... dois-je remplir un a un les champs d'un combobox pour le remplir des valeurs d'un Recordset? Je vois les méthodes moveFirst et moveNext, et je dois peut-être remplir manuellement les valeurs? En ce moment, rien n'apparaît dans la liste déroulante du combobox.

Ça serait bien si je pouvais associer tout un recordset à un datacombo...

Merci encore,

Mathieu
31/03/2004, 20h25
khany

:D Euh c'est ce que tu fais quand tu remplis rowsource, datasource et lisfield 8O

Là, je te suis plus :wink:

Hehehe. désolé si je ne suis pas clair...

En ce moment, avec le code complet suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim Conn As New ADODB.Connection Dim Rs As ADODB.Recordset Dim strSQL As String 'Oracle Connection Conn.Open "Provider=MSDAORA.1;User ID=cj;Data Source=adop;Persist Security Info=False", Text1.Text, Text2.Text 'Oracle Connection strSQL = "SELECT Distinct(initiales) FROM cjt_cn_tb_employe WHERE initiales is not null" Set Rs = New ADODB.Recordset Rs.Open strSQL, Conn, adOpenStatic, adLockReadOnly DataCombo1.ListField = "Initiales" DataCombo1.BoundColumn = "dispensateur" 'DataCombo1.DataField = "Initiales" Set DataCombo1.RowSource = Rs Set DataCombo1.DataSource = Rs DataCombo1.Refresh
où "dispensateur" est ma clé unique, et "initiales" est le champs à afficher, dans le DataCombo1.Text je vois les initiales "AB" d'écrit (le premier enregistrement de ma requête).

Or, si je clique sur le combobox pour sélectionner d'autres enregistrements, la liste qui apparaît est vide... il n'y a même pas le champ "AB" qui apparaît.

Une idée pourquoi ça n'apparaît pas?

31/03/2004, 20h58
khany

:D Ah là, je comprends mieux !

tu dois utiliser un autre rs car le select distinct ne sélectionne que la colonne qui intéresse pour afficher les clés uniques :wink:
01/04/2004, 16h25
Zoilus

Rebonjour!

J'ai beau tenter de créer un autre rs, je ne suis pas sûr de ce que je dois faire exactement... je sais que j'en demande beaucoup (vraiment désolé!), mais est-ce que je pourrais vous demander une partie de code pour illustrer votre point?

Merci mille fois encore,

Mathieu
01/04/2004, 18h13
khany

:D Attends, on reprend et on fait une synthèse :

1) tu as un datacombo avec un select distinct
2) tu parles de combobox, c un autre composant dans lequel tu sélectionnes qque chose ?

Fias un ti plan stp simple et court pour que je puisse suivre, à mon avis tu n'es pas loin mais on ne se comprends pas à 100 % :lol:
01/04/2004, 18h32
Zoilus

Hehehe :P

Pour l'instant, j'ai un seul datacombo que je tente d'initialiser à l'exécution à l'aide d'ADO, en voulant l'associer à un recordsource avec comme sql associé: "SELECT distinct(initiales), max(dispensateur), dispensateur FROM cjt_cn_tb_employe WHERE initiales is not null" (j'avais oublié auparavant de faire afficher la clé unique "dispensateur" pour l'associer au boudcolumn). Je désire afficher chacune des initiales, mais en ce moment rien n'apparaît (j'ai réalisé qu'il affichait le 1er élément de la requête seulement si j'indique "initiales" à l'intérieur du datafield).

J'ai pour l'instant un seul recordsource associé au datacombo.

Merci! :)
01/04/2004, 18h35
khany

:D oki je relis à tête reposée et je vais voir !

je suis pas sure que le select distinct accepte plus d'un champ je dois vérifier :wink:
01/04/2004, 18h38
Zoilus

oops, j'ai mal recopié le select...

SELECT distinct(initiales), dispensateur FROM cjt_cn_tb_employe WHERE initiales is not null;

désolé... :(
01/04/2004, 19h11
elifqaoui

Citation:

Envoyé par Zoilus

oops, j'ai mal recopié le select...

SELECT distinct(initiales), dispensateur FROM cjt_cn_tb_employe WHERE initiales is not null;

désolé... :(

comme l'a dit déjà khany, le Select DISTINCT n'accepte qu'un seul champ.

même sans le distinct, je n'obtient aucun résultat...
Code:

1 2 SELECT initiales, dispensateur FROM cjt_cn_tb_employe WHERE initiales is not null

01/04/2004, 20h00
elifqaoui

je doute un peu avec le IS NOT NULL, essaye de supprimer dans un premier temps la clause WHERE, si ca marche alors ca vient du IS NOT ..
01/04/2004, 20h10
Zoilus

J'ai enlevé la clause WHERE, et ça ne marche toujours pas...

(j'ai testé mes requêtes dans SQL*PLUS, et elles fonctionnent à cet endroit)
01/04/2004, 20h17
elifqaoui

Citation:

Envoyé par Zoilus

J'ai enlevé la clause WHERE, et ça ne marche toujours pas...

(j'ai testé mes requêtes dans SQL*PLUS, et elles fonctionnent à cet endroit)

c quoi le message d'erreur exactement et es-tu sur que ca vient de la requete :? :? :?
01/04/2004, 20h18
Zoilus

Je ne reçois aucun message d'erreur, c'est seulement que le datacombo demeure vide (si j'inscrit un datafield, le 1er champ de la requête apparaît dans le champs texte, mais pas dans le menu déroulant).
01/04/2004, 20h22
elifqaoui

Citation:

Envoyé par Zoilus

Je ne reçois aucun message d'erreur, c'est seulement que le datacombo demeure vide (si j'inscrit un datafield, le 1er champ de la requête apparaît dans le champs texte, mais pas dans le menu déroulant).

oublie le DataCombo pour le moment, vérifie que ton Recordset contient déjà des éléments.
un simple MsgBox Rs.RecordCount suffira pour voir s'il y a des éléments ou non (biensur il faut vérifier dans ta bdd si tu as bel et bien saisis des éléments ou non) :wink:

Merci pour l'astuce, j'ai effectivement un erreur avec mon recordset, comme il me retourne -1...

Je ne comprend pas pourquoi par exemple...

Voici la dernière version de mon programme:

Code:

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
Private Sub Command1_Click()
 
      Dim Conn As New ADODB.Connection
      Dim Rs As ADODB.Recordset
      Dim Rs2 As ADODB.Recordset
      Dim strSQL As String
 
      'Oracle Connection
      Conn.Open "Provider=MSDAORA.1;User ID=cj;Data Source=adop;Persist Security Info=False", Text1.Text, Text2.Text
 
      'Oracle Connection
      strSQL = "SELECT initiales, dispensateur FROM cjt_cn_tb_employe"
      'strSQL2 = "SELECT initiales FROM cjt_cn_tb_employe WHERE initiales is not null"
 
      Set Rs = New ADODB.Recordset
      'Set Rs2 = New ADODB.Recordset
      Rs.Open strSQL, Conn, adOpenStatic, adLockReadOnly
      'Rs2.Open strSQL, Conn, adOpenStatic, adLockReadOnly
 
      MsgBox Rs.RecordCount
 
      DataCombo1.ListField = "Initiales"
      DataCombo1.BoundColumn = "dispensateur"
      DataCombo1.DataField = "Initiales"
 
      Set DataCombo1.RowSource = Rs
      Set DataCombo1.DataSource = Rs
 
      DataCombo1.Refresh
 
End Sub

Merci beaucoup pour toute l'aide que vous me donnez, c'est vraiment apprécié :)

Citation:

Envoyé par Zoilus

Merci pour l'astuce, j'ai effectivement un erreur avec mon recordset, comme il me retourne -1...

Je ne comprend pas pourquoi par exemple...
Merci beaucoup pour toute l'aide que vous me donnez, c'est vraiment apprécié :)

ben déjà maintenant on est fixé sur l'origine du problème, voilà un petit d'ex de connection et d'utilisation de requetes PL/SQL

Code:

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
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
Private mCnn As ADODB.Connection
Private mrsSelect As ADODB.Recordset
Private mCmd As ADODB.Command
Private msSelect As String
Private mCmdPrmGender As New ADODB.Parameter
 
Private Sub Form_Load()
 
Dim sConnect As String 'Declare our connection string
sConnect = "Data Source=" & ";" & _
           "User ID=scott" & ";" & _
           "Password=tiger" & ";"
 
Set mCnn = New ADODB.Connection
With mCnn
    .CommandTimeout = 10
    .CursorLocation = adUseClient
    .Provider = "MSDAORA"
    .Open sConnect
End With
 
'resultset is a keyword, fname the name of the table in the proc.
 
msSelect = "{call human_resources.first_names(?, {resultset 1000, fname})}"
 
Set mCmd = New ADODB.Command
 
With mCmd
    .CommandText = msSelect
    .CommandType = adCmdText
    .ActiveConnection = mCnn
    Set mCmdPrmGender = .CreateParameter("pGender", adVarChar, _
                        adParamInput, 1, "M")
    .Parameters.Append mCmdPrmGender
End With
 
Set mrsSelect = New ADODB.Recordset
 
mCmdPrmGender = "M"
Set mrsSelect = mCmd.Execute
MsgBox mrsSelect.Fields(0)
 
End Sub

autre ressource :
http://support.microsoft.com/default.aspx?scid=kb;en-us;q176936

Ça fonctionne!

J'ai utilisé le dernier exemple pour reconstruire mon code, et tout fonctionne maintenant!

Merci pour tout à vous deux, je vous suis éternellement reconnaissant! :lol:

Pour bien terminer la discussion, voici ma dernière version de code:

Code:

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
34
35
36
37
38
39
40
41
42
43
44
Private mCnn As ADODB.Connection
Private mrsSelect As ADODB.Recordset
Private mCmd As ADODB.Command
Private msSelect As String
 
 
Private Sub Command1_Click()
 
  Dim sConnect As String 'Declare our connection string
  sConnect = "Data Source=adop" & ";" & _
             "User ID=login" & ";" & _
             "Password=passwd" & ";"
 
  Set mCnn = New ADODB.Connection
  With mCnn
      .CommandTimeout = 10
      .CursorLocation = adUseClient
      .Provider = "MSDAORA"
      .Open sConnect
  End With
 
  'resultset is a keyword, fname the name of the table in the proc.
  msSelect = "SELECT initiales, dispensateur FROM cjt_cn_tb_employe"
 
  Set mCmd = New ADODB.Command
 
  With mCmd
      .CommandText = msSelect
      .CommandType = adCmdText
      .ActiveConnection = mCnn
  End With
 
  Set mrsSelect = New ADODB.Recordset
 
  Set mrsSelect = mCmd.Execute
 
  MsgBox mrsSelect.RecordCount
 
  DataCombo1.ListField = "Initiales"
  DataCombo1.BoundColumn = "dispensateur"
 
  Set DataCombo1.RowSource = mrsSelect
  Set DataCombo1.DataSource = mrsSelect
End Sub

02/04/2004, 09h43
khany

:D Il y en a toujours plus dans 2 têtes que dans une !
C'est pour ca que l'équipe existe :wink:

Bonne continuation