A voir également:
- Connexion à une base MySQL dans VB !?
- Gmail connexion - Guide
- Vb - Télécharger - Langages
- Gmail connexion autre compte - Guide
- Base de registre - Guide
- Vb cable - Télécharger - Audio & Musique
3 réponses
Se connecter : (connecter a quoi?)
connect to <nom de ta base> user <nom_user> using <pwd>;
Pour les mises a jour il faut créer des declencheurs (TRIGGER).
connect to <nom de ta base> user <nom_user> using <pwd>;
Pour les mises a jour il faut créer des declencheurs (TRIGGER).
zekris
Messages postés
143
Date d'inscription
mercredi 16 janvier 2002
Statut
Membre
Dernière intervention
1 février 2011
1
11 févr. 2002 à 15:32
11 févr. 2002 à 15:32
Slt,
'******************************************************
'* Création de l'environnement
'* Connexion à SQL par le nom d'accès
'****************************************************** GA_nom_base = "TA_BASE"
Set EnvTA_BASE = rdoCreateEnvironment(GA_nom_base, ConxUser, ConxPassword)
EnvTA_Base.CursorDriver = rdUseOdbc ' curseur ODBC
'****************************************************** '* Création de la connexion au serveur SQl Server *
'****************************************************** Set ConxTA_Base = EnvTA_BASE.OpenConnection(GA_nom_base, rdDriverNoPrompt, True)
ConxTA_BASE.QueryTimeout = 30 ' 30 secondes maxi
voilà mais c pour SQL Serveur, ensuite tu te serts de ConxTA_Base pour faire les reqêtes. exemple:
Dim Rs As rdoResultset
SQLQuery = "Select ...."
Set Rs = ConxTA_BASE.OpenResultset(SQLQuery, rdOpenStatic)
Bye. ;o)
Kris©2002
'******************************************************
'* Création de l'environnement
'* Connexion à SQL par le nom d'accès
'****************************************************** GA_nom_base = "TA_BASE"
Set EnvTA_BASE = rdoCreateEnvironment(GA_nom_base, ConxUser, ConxPassword)
EnvTA_Base.CursorDriver = rdUseOdbc ' curseur ODBC
'****************************************************** '* Création de la connexion au serveur SQl Server *
'****************************************************** Set ConxTA_Base = EnvTA_BASE.OpenConnection(GA_nom_base, rdDriverNoPrompt, True)
ConxTA_BASE.QueryTimeout = 30 ' 30 secondes maxi
voilà mais c pour SQL Serveur, ensuite tu te serts de ConxTA_Base pour faire les reqêtes. exemple:
Dim Rs As rdoResultset
SQLQuery = "Select ...."
Set Rs = ConxTA_BASE.OpenResultset(SQLQuery, rdOpenStatic)
Bye. ;o)
Kris©2002