[VB.NET] Salvare txt in database

[Mircodj]

raga vi chiedo un ultima cosa!
purtroppo sto imparando quindi per voi le mie domande possono sembrare stupide.
Vorrei sapere se sulla mia form ho il TextBox1 e un bottone salva
come faccio a salvare il contenuto del textBox1 inserito dall'utente nel campo Nomi del databese
cioè creare un nuovo record con il nome inserito nel textbox
Grazie

[power.mobile]

conosci l'SQL? devi utilizzare un Insert..

per esempio:

dim strInsert as string ="INSERT INTO tuatabella VALUES('" & textbox.text & "');"

dopo di che assegni la stringa al command ed esegui il metodo executenonquery...

[Mircodj]

scusa ma il mio db è fatto in accessora ti posto il codice

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salva.Click
        'apertura connessione'
        m_cnConnessioneADO.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        m_cnConnessioneADO.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Preventivi.mdb")
        'Controllo TextBox Trova'
        Dim sql As String
        sql = "select * from Ciampi where Nome='" & Trova.Text & "'"
        Nome.Text = ""
        Data.Text = ""
        Indirizzo.Text = ""
        Car1.Text = ""
        Car2.Text = ""
        Car3.Text = ""
        Car4.Text = ""
        Car5.Text = ""
        Car6.Text = ""
        Car7.Text = ""
        Car8.Text = ""
        Car9.Text = ""
        Car10.Text = ""
        Pre1.Text = ""
        Pre2.Text = ""
        Pre3.Text = ""
        Pre4.Text = ""
        Pre5.Text = ""
        Pre6.Text = ""
        Pre7.Text = ""
        Pre8.Text = ""
        Pre9.Text = ""
        Pre10.Text = ""
        m_rsCiampi.Open(sql, m_cnConnessioneADO, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        'a questo punto ho il record'
        If m_rsCiampi.RecordCount > 0 Then
            Nome.Text = m_rsCiampi.Fields("Nome").Value
            Data.Text = m_rsCiampi.Fields("Data").Value
            Indirizzo.Text = m_rsCiampi.Fields("Indirizzo").Value
            Car1.Text = m_rsCiampi.Fields("Caratteristica1").Value
            Car2.Text = m_rsCiampi.Fields("Caratteristica2").Value
            Car3.Text = m_rsCiampi.Fields("Caratteristica3").Value
            Car4.Text = m_rsCiampi.Fields("Caratteristica4").Value
            Car5.Text = m_rsCiampi.Fields("Caratteristica5").Value
            Car6.Text = m_rsCiampi.Fields("Caratteristica6").Value
            Car7.Text = m_rsCiampi.Fields("Caratteristica7").Value
            Car8.Text = m_rsCiampi.Fields("Caratteristica8").Value
            Car9.Text = m_rsCiampi.Fields("Caratteristica9").Value
            Car10.Text = m_rsCiampi.Fields("Caratteristica10").Value
            Pre1.Text = m_rsCiampi.Fields("Prezzo1").Value
            Pre2.Text = m_rsCiampi.Fields("Prezzo2").Value
            Pre3.Text = m_rsCiampi.Fields("Prezzo3").Value
            Pre4.Text = m_rsCiampi.Fields("Prezzo4").Value
            Pre5.Text = m_rsCiampi.Fields("Prezzo5").Value
            Pre6.Text = m_rsCiampi.Fields("Prezzo6").Value
            Pre7.Text = m_rsCiampi.Fields("Prezzo7").Value
            Pre8.Text = m_rsCiampi.Fields("Prezzo8").Value
            Pre9.Text = m_rsCiampi.Fields("Prezzo9").Value
            Pre10.Text = m_rsCiampi.Fields("Prezzo10").Value
        Else
            MessageBox.Show("Mi dispiace! nessun Cliente corrisponde al  Nome inserito")

        End If

        m_rsCiampi.Close()
        m_cnConnessioneADO.Close()
    End Sub

questa è la funzione cerca
adesso utilizzando tutti quei txtbox che ho vorrei permettere all'utente di salvare i dati nel db
come posso fare

[power.mobile]

premettendo che io non ho mai usato ado ma solo dao o ado.net...

Devi riaprire la connessione crearti un striga con INSERT
inserento fra le parentesi dopo VALUES tutte le tue caselle di testo in ordine come si trovato sul db. dopo di che assegni la stringa ad un command e lo esegui sulla connessione.
devi separare ogni valore con una virgola. x es:

strInsert= "INSERT into Ciampi Values('" & txt1 & "','" & txt2 & "')"