[VB6] ADO + MySQL Ajouter un enregistrement
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:
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
