[VB2010 winform] INSERT INTO variabile con virgole e apici

[garzone]

Dim rsr As New OleDb.OleDbCommand
            rsr = New OleDb.OleDbCommand(
            "INSERT INTO regali (id, regalo) VALUES (" & current_id & ",'" & regalo & "')", con)
                        rsr.ExecuteNonQuery()
            con.Close()

dal codice che posto, salvo sul db senza problemi però se nella variabile regalo
inserisco un valore con apice o virgola non mi salva e mi va in errore.
mi ricordo sul vb6 che aggiungevo apici doppi o qualcosa del genere ma qui non riesco a capire cosa fare...

es. regalo = "orologio" 'salva bene
regalo = "orologio d'oro" ' non salva perchè c'è l'apice



grazie

[tas]

La soluzione migliore è utilizzare i parametri:

Dim rsr As New OleDb.OleDbCommand
rsr = New OleDb.OleDbCommand("INSERT INTO regali (id, regalo) VALUES (?, ?)", con)
rsr.Parameters.Add("?", OleDbType.Integer).Value = current_id
rsr.Parameters.Add("?", OleDbType.BSTR).Value = regalo
rsr.ExecuteNonQuery()
con.Close()

[garzone]

grande , funziona perfettamente
però ovviamente ora ho lo stesso problema quando carico i dati dal dataadapter

secondo me mi manca un passaggio fondamentale

puoi correggermi il codice.

con.Close()
        con.Open()
        dt.Clear()


        Dim rs1 As New OleDb.OleDbDataAdapter

        ' rs1 = New OleDb.OleDbDataAdapter("SELECT * FROM cmplnn WHERE nome LIKE '" & TextBox1.Text & "' AND data Like '" & TextBox3.Text & "' AND cognome Like '" & TextBox2.Text & "'", con)
        



        rs1.Fill(dt)

grazie mille

[tas]

Se hai capito il codice che ti ho riportato sopra non dovresti avere problemi: crei la stringa sql e metti un ? al posto di ogni parametro, poi carichi i vari parametri usando la collezione Parameters.

[garzone]

giusto e infatti ho provato in questo modo e mi funziona... dimmi se va bene così la scrittura

Dim rs1 As New OleDb.OleDbCommand(
         "SELECT * FROM cmplnn WHERE nome LIKE ? AND data Like ? AND cognome Like ? ", con)
        rs1.Parameters.Add("?", OleDbType.Integer).Value = varid
        rs1.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text
        rs1.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
        rs1.Parameters.Add("?", OleDbType.Date).Value = vardata

        Dim da As New OleDbDataAdapter(rs1)
        da.Fill(dt)

[mymovida.net]

Hai messo un parametro in + per ogni punto interrogativo devi mettere un parametro, poi devi eseguire la query e chiudere la connessione come da esempio sopra riportato.

[garzone]

si in effetti quello del varid non ce l'ho messo poi.. era di troppo.
poi ho fatto la query e ho chiuso



cmq funziona quindi ok

grazie per la dritta anche se l'avevo corretta... intanto è utile per gli altri lettori