DAO... tra insert delete e update...

[sara81it]

Raga che c'è che non va qui???
non mi da errori, ma non esegue il salvataggio sul Db!

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

Set db = OpenDatabase("C:\Documents and Settings\Administrator\Desktop\Sara\Pcsystem\Tati\ Bar.mdb")
'Inserimento nel DataBase
sql = "Insert into Fornitore (Ragso,Indirizzo,Cap,Città,Provincia,PIva,Telefono ,Fax,RifInterno,Email,Sito) values('" & txtnome.Text & "', '" & txtind.Text & "', '" & txtcap.Text & "', '" & txtcitta.Text & "', '" & txtprov.Text & "', '" & txtpiva.Text & "','" & txttel.Text & "', '" & txtfax.Text & "', '" & txtRifint.Text & "', '" & txtemail.Text & "', '" & txtsito.Text & "')"
db.Execute (sql)


r = MsgBox("Inserimento avvenuto correttamentre", vbInformation, "Inserimento")

la msgbox... compare, ma se guardo poi sul db non c'è nulla!


Grazie sara

[Markho]

L'sql sembra giusto, per in fatto che non ti da errore non è che hai dichiarate un resume next? se così fosse il db potrebbe essere chiuso e anche se ti da l'errore non te ne accorgi :P

[Mychy]

Prova anche a controllare i valori delle textbox.

P.S. le altre cose (update e delete) andavano bene?

[sara81it]

TYutto corretto, ma non jfunziona e non c'è alcun resume next...

come mai non funziona la stringa

Sara

[sara81it]

Ragazzi io sul db ho un campo contatore...

dopo aver eseguito il pgm e aver inserito un fornitore, nel db non c'è, ma se io dal db stesso provo a inserire un nuovo record....ecco che l'id mi salta un numero, come se avesse registreato il nuovo fornitore... ma sul cmq non lo visualizza..


HELPPPPPP
sara

[darkblOOd]

hai provato a fare db.close ?

[Markho]

il campo contatore io lo toglierei... la maggior parte delle volte porta solo casini... prova a toglierlo e a rifare girare il tutto, controlla la stringa sql completa che viene passata al database e verifica che tutti i valori delle text siano validi,
fammi sapere
ciao ciao

[darkblOOd]

se i valori non corrispondo avrebbe dato errore il comando sql durante l'update

il fatto che gli compaia la msgbox m isembra strano se non trova i dati

[Markho]

r = MsgBox("Inserimento avvenuto correttamentre", vbInformation, "Inserimento")

Non credo darkblOOd, la msgbox non è legata al fatto che la transazione sia avvenuta o meno..... almeno con questo codice...

L'errore secondo me sta sul db...

[Mychy]

No, secondo me non è il campo contatore.
E' un problema con il passaggio dei dati, prova a controllare così:

msgbox(txtnome.text &" "& txtind.text"...ecc)
'Inserimento nel DataBase
sql = "Insert into Fornitore (Ragso,Indirizzo,Cap,Città,Provincia,PIv
a,Telefono,Fax,RifInterno,Email,Sito) values('" & txtnome.Text & "', '" & txtind.Text & "', '" & txtcap.Text & "', '" & txtcitta.Text & "', '" & txtprov.Text & "', '" & txtpiva.Text & "','" & txttel.Text & "', '" & txtfax.Text & "', '" & txtRifint.Text & "', '" & txtemail.Text & "', '" & txtsito.Text & "')"
db.Execute (sql)