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

Version imprimable

Voir 40 message(s) de cette discussion en une page

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