inserire valori in db ricevuti da un combo

[jh4cky]

Ciao raga ho il seguente problema, nn riescoad inserire dati ricevuti da un combo in un db mysql vi illustro oslo la queri di inserimento...
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim autore_libr, editore_libr, titolo_libr As String

autore_libr = cmbAutori.SelectedItem
editore_libr = cmbEditori.SelectedItem
titolo_libr = cmbTitoli.SelectedItem

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;DATABASE=biblio;UID=root; OPTION=3"

conn.Open()
rs.Open("insert into prenotato values('',autore_libr,editore_libr,titolo_libr)", conn)
rs.Close()
rs = Nothing
conn.Close()
conn = Nothing

Provando a fare un inserimento del genere i valori inseriti nel db sono vuoti ma l'id viene incrementato...

Provando a fare una query del genere invece:

rs.Open("insert into prenotato values('','Trilussa','Mondadori','Pinocchio')", conn)

L'inserimento ha successo ed i valori inseriti sono appunto Trilussa,Mondadori,Pinocchio....

Sapete aiutarmi grazie e ciao

[Mychy]

"insert into prenotato (nomecampo1,autore, editore,titolo)values('','autore_libr','editore_li br','titolo_libr')"

Devi indicare i campi in cui vuoi inserire i dati.
E occhio agli apici

[jh4cky]

Ti ringrazio ho risolto in questomodo:

nome_utente = txtNome.Text
cognome_utente = txtCognome.Text
username_utente = txtUsername.Text
password_utente = txtPassword.Text

sql = "insert into utente (nome, cognome, username,password ) "
sql = sql & "values ('" & nome_utente & "', '" & cognome_utente & "', '" & username_utente & "','" & password_utente & "')"
rs.Open(sql, conn)

Solo che adesso vorrei verificare se i campi sono stati tutti sottomessi e creo un costrutto if con la seguente sintassi:
If ((txtNome.Text = "") and (txtCognome.Text = "")) Then

solo chenn mi funge, sai darmi qaulche suggerimento...

[Mychy]

If Me.TextBox1.Text = "" And Me.TextBox2.Text = "" Then
MsgBox("Vuoti")
End If

[jh4cky]

Ho provato così ma niente ancora...
If ((Me.txtNome.Text = "") And (Me.txtCognome.Text = "")) Then
MsgBox("Dati non completi")

Cioè se ometto il nome mi dice dati nn completi, se metto il nome e ometto il cognome, non mi dice dati non completi, da cosa può dipendere?

[Mychy]

Togli le parentesi

[jh4cky]

niente nemmenolevando le parentesi ho provatoin tutti i modi-....mah

[Mychy]

Originariamente inviato da jh4cky
Ho provato così ma niente ancora...
If ((Me.txtNome.Text = "") And (Me.txtCognome.Text = "")) Then
MsgBox("Dati non completi")

Cioè se ometto il nome mi dice dati nn completi, se metto il nome e ometto il cognome, non mi dice dati non completi, da cosa può dipendere?

A te non serve AND ma OR
if textdox1.text="" or textbox2.text="" then
msgbox("I dati non sono completi")
else
msgbox("Bravo! Dati completati"
end if