[VB] inserire dati in un database

[Brigante]

Originariamente inviato da enrico999
nel mio pezzo di codice:

Private Sub ScriviRecord()

sSQL = "INSERT INTO Tabella1 VALUES(" & Text1.Text & "," & Text2.Text & ",'" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "'," & Text6.Text & ",'" & Text7.Text & "')"
db.Execute sSQL

End Sub


il debug si ferma qui:

db.Execute sSQL

La variabile db dove l'hai dichiarata? Per essere visibile in tutto il form la devi dichiarare su in alto (fuori da tutte le sub e function) sotto ad Option Explicit; manca anche la dichiarazione della variabile sSQL nella Sub in questione, che deve essere Dim sSQL as String.

[enrico999]

vi posto tutto il mio codice, perchè ho fatto un po' troppo casino e non ci capisco più niente





Private Sub ScriviRecord()

sSQL = "INSERT INTO Tabella1 VALUES(" & Text1.Text & "," & Text2.Text & ",'" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "'," & Text6.Text & ",'" & Text7.Text & "')"
db.Execute sSQL

End Sub

Private Sub Command1_Click()

ScriviRecord

End Sub

Private Sub Form_Load() 'cioè, ogni volta che aprirò il form

Set db = New ADODB.Connection
Set rs = New ADODB.Recordset

'instauro la connessione con il database

db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & App.Path & "\db97.mdb"

db.Open 'apro il database


End Sub ' Fine Funzione Form_Load()



potete per caso dirmi dove devo dichiarare db e come mettere a posto tutto il codice???

[Brigante]

...Infatti manca la dichiarazione della variabile db, l'hai soltanto istanziata tramite il Set..., quindi fuori dalla Form_Load, su su in alto nel codice della form, scrivi:Private db as ADODB.Connection

[enrico999]

ho fatto, ma mi da questo errore:

Il numero di valori nella query non corrisponde a quello dei campi di destinazione.


Cosa c'è ancora di sbagliato???

[Brigante]

Originariamente inviato da enrico999
ho fatto, ma mi da questo errore:

Il numero di valori nella query non corrisponde a quello dei campi di destinazione.


Cosa c'è ancora di sbagliato???

Significa che hai passato alla query un numero minore o maggiore del totale dei campi esistenti nella tabella a cui fai riferimento. Tu devi scrivere tutti i campi, o solo alcuni? Se li devi scrivere tutti, la sintassi della INSERT... è corretta, però ricontrolla che tutte le TextBox valorizzino correttamente il proprio campo corrispondente.