héritage sur 2 combobox

Question

Bonjour 
J'ai le code suivant: 


Code:,
----

Set RsRef = New Recordset
Set RsType = New Recordset

RsRef.Open "Select RefCartes from Modification group by RefCartes ", db_Cmde, adOpenStatic, adLockOptimistic
RsType.Open "Select TypeCartes from Modification order by TypeCartes", db_Cmde, adOpenStatic, adLockOptimistic

While RsType.EOF = False
CmoTypeCarte.AddItem RsType.Fields(0), 0
RsType.MoveNext
Wend

Mon probl&#233;me est que j'ai une erreur quand je fais mes SET, &#231;a me met "autorisation incorect du mot cl&#233; NEW", je ne comprends pas d'ou vien l'erreur. De plus j'ai essay&#233; sur un autre PC et la ca bloc au requ&#233;te SQL, et j'ai "cette op&#233;ration n'est pas autoris&#233; vers un objet ayant une r&#233;f&#233;rence vers une connexion non valide ou ferm&#233;". Ma connexion est bonne, non valide, je vois pas pourquoi. 
Si quelqu'un peu m'aider ce serait super cool. 
Merci d'avance.  JIMM

jpleroisse · Answer

Je ne sais pas quelle m&#233;thode tu utilises, mais moi quand j'utilise la m&#233;thode ADO, je suis oblig&#233; de d&#233;clarer comme ceci:

Dim RsRef As ADODB.Recordset
Set RsRef = New ADODB.Recordset
Dim RsType As ADODB.Recordset
Set RsType = New ADODB.Recordset 

jpleroisse

jimluis · Answer

j'utilise bien ADO mais le truc c'est que j'ai un module de fait, y'a &#231;a dedans :

Public db_Cmde As New ADODB.Connection
Global rs As Recordset
Public Sub Main()
Set db_Cmde = New Connection
db_Cmde.CursorLocation = adUseClient
db_Cmde.Mode = adModeReadWrite


 db_Cmde.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=d:\LUISETTI J stagiaire\PROG FINAL\bdd access smd.mdb ;Jet OLEDB:Database Password=skyburns"
  Form1.Show
End Sub

Et avec &#231;a je fais comme j'avais &#233;crit ci dessus, mais &#231;a marche pas, et m&#233;me en faisant comme tu me dis, &#231;a va pas.

  JIMM

jpleroisse · Answer

J'ai voulu essayer ton code, mais comme je n'ais pas les r&#233;f&#233;rences, je l'ai modifi&#233; pour acc&#233;der &#224; la BD Biblio.mdb qui se trouve dans VB. Comme cela &#231;a marche, je rempli ma Combo avec les donn&#233;es du champ Name de la table Publishers.
Peut-&#234;tre pourras-tu modifier ton code pour qu'il fonctionne.

Public db_Cmde As New ADODB.Connection
Global rs As Recordset
Public Sub Main()
Set db_Cmde = New ADODB.Connection
db_Cmde.CursorLocation = adUseClient
db_Cmde.Mode = adModeReadWrite
db_Cmde.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb "
  Form1.Show
End Sub

Private Sub Command2_Click()
Dim RsRef As ADODB.Recordset
Dim RsType As ADODB.Recordset
Set RsRef = New ADODB.Recordset
Set RsType = New ADODB.Recordset
RsRef.Open "Publishers", db_Cmde
RsType.Open "Publishers", db_Cmde
While RsType.EOF = False
  CmoTypeCarte.AddItem RsType.Fields(1), 0
  RsType.MoveNext
Wend
End Sub

jpleroisse

Héritage sur 2 combobox

3 réponses

Discussions similaires