cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
9 août 2005 à 16:13
cs_globule
Messages postés327Date d'inscriptionmardi 8 octobre 2002StatutMembreDernière intervention 6 octobre 2010
-
11 mai 2006 à 15:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_globule
Messages postés327Date d'inscriptionmardi 8 octobre 2002StatutMembreDernière intervention 6 octobre 2010 11 mai 2006 à 15:36
J'ai testé ca et ca plante le VB
CONNEX_DB_CMD "select * from MaTable"
Set rs = New ADODB.Recordset
Set rs.Source = cmd
rs.CursorType = adOpenStatic
rs.Open
MsgBox rs.Fields("MonChamp").Value
Pourtant j'arrive a lire les enregistrements avec Access 2002
cs_globule
Messages postés327Date d'inscriptionmardi 8 octobre 2002StatutMembreDernière intervention 6 octobre 2010 11 mai 2006 à 15:34
J'ai testé votre source avec Omnis, j'arrive a me connecter, mais ensuite comment fait-on pour lire les enregistrements. Chez moi ca plante le VB
Set cn = New ADODB.Connection
'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ibsmg.db;Persist Security Info=False"
cn.ConnectionString = "DSN=ODBC_OMNIS"
cn.Open
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 9 août 2005 à 16:21
... et dans le projet, il manque la référence à Microsoft ActiveX Data Objects (ADO)
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 9 août 2005 à 16:13
Salut
Oui, c'est vraiment basique ... pas de commentaire sur l'utilité des paramètres de la ConnectionString (la clé de la connextion), ni de gestion d'erreur. Dommage.
Sais-tu que 'Global' a été remplacé par 'Public' depuis VB3 ?
11 mai 2006 à 15:36
CONNEX_DB_CMD "select * from MaTable"
Set rs = New ADODB.Recordset
Set rs.Source = cmd
rs.CursorType = adOpenStatic
rs.Open
MsgBox rs.Fields("MonChamp").Value
Pourtant j'arrive a lire les enregistrements avec Access 2002
11 mai 2006 à 15:34
Set cn = New ADODB.Connection
'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ibsmg.db;Persist Security Info=False"
cn.ConnectionString = "DSN=ODBC_OMNIS"
cn.Open
9 août 2005 à 16:21
9 août 2005 à 16:13
Oui, c'est vraiment basique ... pas de commentaire sur l'utilité des paramètres de la ConnectionString (la clé de la connextion), ni de gestion d'erreur. Dommage.
Sais-tu que 'Global' a été remplacé par 'Public' depuis VB3 ?