Foumulaire insert to bdd
Résolu
idefixjd
-
idefixjd -
idefixjd -
Bonjour,
je veux recupere la valeut d'un textbox pour la rentre dans une base de données (access).j'y suis arrive le seul probleme que la valeur rentre n'est pas le texte mais son nom
voici le code
Label1.Text = TextBox1.Text
Dim obj_ConnectADODB
Dim fsFichierAccess
Dim str_ACCESSConnectCmd
Dim obj_DBACCESS_tbl_ComputerList
obj_ConnectADODB = CreateObject("ADODB.Connection")
fsFichierAccess = "C:\Users\Idefix\Documents\Visual Studio 2008\Projects\WindowsApplication2\WindowsApplication2\Base de données1.mdb"
str_ACCESSConnectCmd = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & fsFichierAccess
obj_ConnectADODB.Open(str_ACCESSConnectCmd, fsFichierAccess, "")
obj_DBACCESS_tbl_ComputerList = CreateObject("ADODB.Recordset")
obj_DBACCESS_tbl_ComputerList.Open("INSERT INTO Presse (nom)VALUES ('TextBox1.Text')", obj_ConnectADODB, )
la valeur enregistre est : TextBox1.Text
comment mettre sa valeur texte ?
merci d'avance
PS/ sous VB2008
je veux recupere la valeut d'un textbox pour la rentre dans une base de données (access).j'y suis arrive le seul probleme que la valeur rentre n'est pas le texte mais son nom
voici le code
Label1.Text = TextBox1.Text
Dim obj_ConnectADODB
Dim fsFichierAccess
Dim str_ACCESSConnectCmd
Dim obj_DBACCESS_tbl_ComputerList
obj_ConnectADODB = CreateObject("ADODB.Connection")
fsFichierAccess = "C:\Users\Idefix\Documents\Visual Studio 2008\Projects\WindowsApplication2\WindowsApplication2\Base de données1.mdb"
str_ACCESSConnectCmd = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & fsFichierAccess
obj_ConnectADODB.Open(str_ACCESSConnectCmd, fsFichierAccess, "")
obj_DBACCESS_tbl_ComputerList = CreateObject("ADODB.Recordset")
obj_DBACCESS_tbl_ComputerList.Open("INSERT INTO Presse (nom)VALUES ('TextBox1.Text')", obj_ConnectADODB, )
la valeur enregistre est : TextBox1.Text
comment mettre sa valeur texte ?
merci d'avance
PS/ sous VB2008
2 réponses
-
Salut
Essaye cela :
obj_DBACCESS_tbl_ComputerList.Open("INSERT INTO Presse (nom)VALUES (" & TextBox1.Text & ")", obj_ConnectADODB, )
Si cela ne fonctionne pas, il faut alors ajouter un ' avant le guillemet fermant et après le guillemet ouvrant.
Cdlt
IC -
Bonjour,
Il faut mettre des apostrophes pour inclure une variable :
obj_DBACCESS_tbl_ComputerList.Open("INSERT INTO Presse (nom)VALUES (' " & TextBox1.Text & " ')", obj_ConnectADODB, )
;o)
