VB... Insert into... Probelema

[sara81it]

Ciao a tutti.

Devo inserire su un db access un nuovo record attraverso delle text in VB..
ora non riesco a capire perchè non lo fa.

Il codice è:

Dim db As Database
Dim sql As String
Dim rs As Recordset


Set db = OpenDatabase("C:\Documenti\rub.mdb")

Set rs = db.OpenRecordset(sql)

sql = "Insert into Rubrica(Cognome, Nome, Indirizzo, Città,) values('" & txtcogno.Text & "','" & txtnome.Text & "','" & txtind.Text & "','" & txtcit.Text & "')"

db.Execute (sql)

rs.Close


Sapreste aiutarmi?
Grazie Sara!

[sebamix]

Set rs = db.OpenRecordset(sql)

Innanzitutto è inutile aprire un recordset per l'operazione che vuoi fare (soprattutto perchè sql è ancora vuota come stringa);

... Città,) ..

Prova a togliere la virgola dopo città;

[doll@82]

Ciao Sara81iT
Allora intanto ti consiglierei di utilizzare non DAO ( come stai facendo ora ) ma ADO. Te lo consignlio perchè è da molto tempo che lo utilizzo ed è molto più flessibile e molto ma molto sicuro.
Comunque l'aperture della connessione va bene :

Set db = OpenDatabase("C:\Documenti\rub.mdb")

Ma poi per eseguire una semplice insert non importa aprire anche un recordset ( che l'hai aperto anche male.....prima devi valorizzare la stringa sql e poi creare il recordset) :

sql = "Insert into Rubrica(Cognome, Nome, Indirizzo, Città) values('" & txtcogno.Text & "','" & txtnome.Text & "','" & txtind.Text & "','" & txtcit.Text & "')"

Set rs = db.OpenRecordset(sql)

Ma basta utilizzare il metodo della connessione EXECUTE che ti permette di eseguire una query in aggiornamento :

db.Execute (sql)

Ciao

[sara81it]

Innanzitutto grazie !!

ora il codice è il seguente:

Set db = OpenDatabase("F:\Sara\visual basic\Rubrica\rub.mdb")

sql = "Insert into Rubrica(Cognome, Nome, Indirizzo, Città) values('" & txtcogno.Text & "','" & txtnome.Text & "','" & txtind.Text & "','" & txtcit.Text & "')"

Set rs = db.OpenRecordset(sql)

rs.MoveLast

db.Execute (sql)

rs.Close



Ora mi da un errore di run-time 3346 : Il numero dei valori nella query non corrisponde a quello dei campi di destinazione.


Ho controllato che sul Db i campi avessero proprio quel nome ed effattivamente è così.....Cosa può essere?
Grazie

Sara

[optime]

prova cosi'

Set db = OpenDatabase("F:\Sara\visual basic\Rubrica\rub.mdb") 

sql = "Insert into Rubrica(Cognome, Nome, Indirizzo, Città) values("

SQL = SQL & "'" & Replace(txtcogno.Text, "'", "''") & "',"
SQL = SQL & "'" & Replace(txtnome.Text, "'", "''") & "',"
SQL = SQL & "'" & Replace(txtind.Text, "'", "''") & "',"
SQL = SQL & "'" & Replace(txtcit.Text, "'", "''") & "')"
        
db.Execute (sql)