Discussion :

[kiwi42]

Bonjour,

Je voulais savoir si il était possible d'utiliser une base de données créée sous EasyPhp avec Visual Basic 6 ?
Je voudrais réaliser un programme en visual basic 6 qui pourrait se connecter à une de mes base de données (sous EasyPhp) afin de l'alimenter.
Si cela est possible, faut il que je mette un composant Vb particulier afin de pouvoir faire une connexion ?

Merci.

[jacko842]

Bonsoir kiwi42,

Regarde dans la doc sur le site au sujet de ADO et vb6.

Bonne soirée.

[kiwi42]

Bonjour,

J'ai regardé dans la documentation ADO vb6 de ce site http://drq.developpez.com/vb/tutoriels/ADO/ mais je ne vois pas comment je dois utiliser mes pilotes/drivers pour la connexion avec EasyPhp.
Je suppose que je dois utiliser la connexion à une base de données SQL Server sans DSN.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
...
 
'Définition de la chaîne de connexion
cnx.ConnectionString = "UID=" & NomUtilisateur &";PWD=" & MotDePasse & ";" & "DRIVER={SQL Server};Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"
 
'Ouverture de la base de données
cnx.Open

Mais je ne sais pas ce qu'il faut mettre dans la variable "DRIVER=".

Merci de m'aiguiller encore un petit peu

[kiwi42]

Re-bonjour,

Ca y est j'ai réussi la connexion mais j'ai une liaison avec un datagrid que je n'arrive pas à faire.
Sur une textbox j'arrive à récupérer les données de ma base mais ma datagrid reste vide. J'ai ceci en code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
rst.Open "SELECT id_t FROM toto", cnx
While Not (rst.EOF)
  Text1.Text = Trim("" & rst("id_t"))
  Set DataGrid1.DataSource = rst
  rst.MoveNext
Wend

Text1.Text reçois bien mon enregistrement de la BDD mais mon datagrid1 ne reçois rien. (aucun message d'erreur). Ai je zappé une propriété de ma datagrid ?

[jacko842]

Quelle est ton résultat si tu fais juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
rst.Open "SELECT * FROM toto", cnx
Set DataGrid1.DataSource = rst