666Alucard666
Messages postés14Date d'inscriptionsamedi 27 novembre 2004StatutMembreDernière intervention18 juillet 2008
-
12 mai 2008 à 11:37
666Alucard666
Messages postés14Date d'inscriptionsamedi 27 novembre 2004StatutMembreDernière intervention18 juillet 2008
-
14 mai 2008 à 09:37
Bonjour à tous,
je débute en visual basic et je rencontre le problème suivant:
je voudrai tester si la connection a ma base de donnée est établi en passant une variable a 1 si oui ou 0 si non et afficher le résultat.
la base de donnée est PROGRESS (qui n'est traiter que dans très peu de forum)
le code de connection est le suivant:
Dim sConnstring As String = "DRIVER={DATADIRECT 4.10 32-BIT Progress SQL92 v9.1E};host name=******;user id=******; password=*******; port number=*****;database=******;"
Dim oConn As Odbc.OdbcConnection
oConn = New Odbc.OdbcConnection(sConnstring)
oConn.Open()
je voudrai savoir si la connection est effectuer et afficher un message pour être sûre de la connection.
Merci d'avance.
A voir également:
PB verification de connection a une base de donnée progress
666Alucard666
Messages postés14Date d'inscriptionsamedi 27 novembre 2004StatutMembreDernière intervention18 juillet 2008 12 mai 2008 à 15:29
Merci pour la réponse j'ai changer deux trois chose et je tombe sur cette erreur:
ERROR [HY000] [DataDirect][ODBC PROGRESS driver]Insufficient information to connect to the data source. ERROR [HY000] [DataDirect][ODBC PROGRESS driver]Insufficient information to connect to the data source.
le code est le suivant:
Dim sConnstring As String = "DRIVER={DATADIRECT 4.10 32-BIT Progress SQL92 v9.1E};server=*******;uid=********;pwd=********; port=****;database=******;"
sConnstring = "DRIVER={DATADIRECT 4.10 32-BIT Progress SQL92 v9.1E};Dsn=MsPressV01SS;host=*******;port=****;db=*****;uid=******"
sConnstring = "DRIVER={DATADIRECT 4.10 32-BIT Progress SQL92 v9.1E};Dsn=MsPressV01SS;uid=******;host=******;pwd=*******;"
'Dim oConn As Odbc.OdbcConnection
oConn = New Odbc.OdbcConnection(sConnstring)
oConn.Open()
Dim eta_co As Boolean
If oConn.State = ConnectionState.Open Then
eta_co = 1
Else
eta_co = 0
End If
affich_etat_connect(eta_co)
666Alucard666
Messages postés14Date d'inscriptionsamedi 27 novembre 2004StatutMembreDernière intervention18 juillet 2008 13 mai 2008 à 07:20
Salut alors l'erreur apparait quand la ligne oConn.Open() est exécuter.
Les lignes sConnstring pour la connection si je met que la première ligne j'ai trois fois plus d'erreur de "Insufficient information to connect to the data source." alors qu'avec le code là j'en ai que deux.
666Alucard666
Messages postés14Date d'inscriptionsamedi 27 novembre 2004StatutMembreDernière intervention18 juillet 2008 14 mai 2008 à 09:37
Bon ba j'ai réussi! j'ai retiré le dsn changer deux paramètres de connection et sa fonctionne. Merci de l'aide en tous cas le message de vérification de connection fonctionne aussi grâce au state et la variable en plus est parti aussi :)