foumulaire insert to bdd Résolu/Fermé

Question

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

incaout · Answer

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

Polux31 · Answer

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)

Foumulaire insert to bdd

2 réponses

Discussions similaires