Bonjour a tous,

Dans le cadre de mon stage de fin d'année de BTS, je dois réaliser une application VB/MySQL.

Toute l'année nous avons réaliser ce genre de programme avec des dsn, dataenvironment etc et j'ai lu qu'il est plus sérieux et propre de faire ca avec ADO.

Pour m'entrainer j'ai donc fait une base de données nommée test avec une table toto contenant NomToto et PrenomToto

Sur vb j'ai réaliser un formulaire contenant deux textbox, Text1 et Text2 et un bouton Command1.

Le but est de recuperer les infos dans les textbox et de les envoyer dans la base.

J'ai donc essayé ca :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
 
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
 
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                        & "SERVER=localhost;" _
                        & "DATABASE=test;" _
                        & "UID=root;" _
                        & "PWD=passroot;" _
                        & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 'Ne changer rien pour cette ligne!!
conn.Open
Set rs = New ADODB.Recordset
rs.Open "insert into toto values('Text1.Text','Text2.Text')", conn, adOpenStatic, adLockPessimistic
conn.Close
End Sub
Vous l'aurez compris, ce qui vas dans la base c'est Text1.text et Text2.text et non ce que contiennent les textbox.

J'espere avoir été clair, merci de m'aider