[ADO] MoveNext non funziona

[dops]

e dai xegallo mica volevo offendere qualcuno.. può capitare che uno si impressiona e chiude il post.. ho pensato di fare bene

[Markho]

fai come ti ho detto sopra...
i record del DB non hai bisogno di resettarli a null...

l'update va messo quando hai aggiunto dei valori validi sul record, altrimenti che ti aggiunge sul DB, la riga vuota? (e ti da errore di null)
quindi prima .addnew, poi svuoti le textbox della form, valorizzi il recordset con i dati che l'utente ha messo nelle textbox, e fai l'update
Chiaro?

[dops]

capito.. ma nel pulsante "salva record" allora che ci metto?

[dops]

cioè io adesso ciò questo pulsante per aggiungere un nuovo record con questo codice dentro:

Private Sub b_nuovocliente_Click()
If b_nuovocliente.Caption = "NUOVO CLIENTE" Then
rsonn.AddNew
scrivivaluevuoto
b_nuovocliente.Enabled = False
avanti.Enabled = False
indietro.Enabled = False
b_salva.Enabled = True
rsonn.Update
End If
End Sub

adesso come faccio a salvare i dati immessi nelle textBox?
con una istruzine sql? una INSERT INTO ? si ma come?

[vonkranz]

Originariamente inviato da dops
cioè io adesso ciò questo pulsante per aggiungere un nuovo record con questo codice dentro:

Private Sub b_nuovocliente_Click()
If b_nuovocliente.Caption = "NUOVO CLIENTE" Then
rsonn.AddNew
scrivivaluevuoto
b_nuovocliente.Enabled = False
avanti.Enabled = False
indietro.Enabled = False
b_salva.Enabled = True
rsonn.Update
End If
End Sub

adesso come faccio a salvare i dati immessi nelle textBox?
con una istruzine sql? una INSERT INTO ? si ma come?

...ma scusa se tu colleghi i textbox alla tua fonte dati, non fai prima?...ti basta fare un rsonn.Update e sei a posto..
...leggi l'help della prop. datasource e datafiled per maggiori info..

[dops]

sarebbe bello avere l'msdn
questa è un'altra cosa che non riesoc a capire.. cioè mntre con l'oggetto ADO (intendo il componente) assegno ad ogni txtbox un datafield, manualmente come si fà? mi fai un esempio?

[vonkranz]

set text1.datasource = [nome del recordset]
text1.dafield = [nome campo del record set]

...prima di fare questo, il recordset deve essere stato istanziato

[dops]

cioè in questo modo?:

Private Sub Form_Load()

'connessione al datbase
Set cnonn = New ADODB.Connection
cnonn.CursorLocation = adUseServer
cnonn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=ONN97.mdb"

'recordset
Set rsonn = New ADODB.Recordset
rsonn.CursorLocation = adUseServer
rsonn.Open "SELECT * FROM Clienti;", _
cnonn, adOpenKeyset, adLockOptimistic, adCmdText

'collego le txtbox ai campi
set t_nome.datasource=rsonn
t_nome.datafield = nome

..e così per tutti i campi..

così vero?

[dops]

uffa manco non mi funziona
dopo aver scritto questo nel formLoad:

Set cnonn = New ADODB.Connection
cnonn.CursorLocation = adUseServer
cnonn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=ONN97.mdb"

'recordset
Set rsonn = New ADODB.Recordset
rsonn.CursorLocation = adUseServer
rsonn.Open "SELECT * FROM Clienti;", _
cnonn, adOpenKeyset, adLockOptimistic, adCmdText

'collego le txtbox ai campi
Set t_nome.DataSource = rsonn
t_nome.DataField = Nome

nel pulsante aggiungi scrivo questo:

Private Sub b_nuovocliente_Click()
rsonn.AddNew
End Sub

e nel pulsante salva scrivo questo:

Private Sub b_salva_Click()
rsonn.Update
End Sub

perchè non mi funziona cosa sbaglio ??
nel database vedo il nuovo record creato ma senza contenuto

[Markho]

mi server 1a info: le text non sono collegate al recordset, giusto?

(controlla proprieta\datamember e datasource e datafield)

poi t so dire qualcosa....