Recordset

[Dr Mal]

Ciao ragazzi, ancora io....

Allora, veniamo subito al dunque:

Ho questo modulo:

Option Explicit
Public conn As ADODB.Connection
Sub main()

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\GestioneProduzione.mdb;Persist Security Info=False"
conn.Open

MDIForm1.Show

End Sub

poi setto la variabile rs:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic

rs.Source = "SELECT * FROM GestioneModulo"

rs.Open
rs.AddNew


xkè all'evento inserisci mi da errore?
dice ke l'oggetto fa riferimento ad una connessione chiusa o inesistente.....

[rapture74]

Prova al posto di
rs.CursorType = adOpenDynamic
con
rs.CursorType = adOpenKeyset

[Dr Mal]

Originariamente inviato da rapture74
Prova al posto di
rs.CursorType = adOpenDynamic
con
rs.CursorType = adOpenKeyset

Sorry, da sempre lo stesso errore....
Ma sintatticamente quello ke ho scritto va bene..... nn capisco xkè mi da errore.... sbaglio qualke cosa? :master:

[tas]

Che errore ti da?

[Dr Mal]

Originariamente inviato da tas
Che errore ti da?

l'ho scritto su....

[Dr Mal]

Ma questa dichiarazione è esatta?:


Option Explicit
Public conn As ADODB.Connection

[ans]

contralla come apri il recordset

e controlla che non ci sia Eof.

[raffaeu]

Scusa ma se fai un ADDNEW cosa usi a fare il Rs?

Io faccio Conn.Execute (Query)
Query = "INSERT INTO ..."

Non va bene?
Eviti di usare Rs e lo tieni libero per qulacos' altro.

[Melly]

Option Explicit
Public conn As new ADODB.Connection  <--- questa nel modulo


Dim conn As ADODB.Connection <-- è inutile, l'hai già dichiarata nel
                                  modello pubblico

Questo ti conviene metterlo nel load dell'MDI

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=" & App.Path & "\GestioneProduzione.mdb;Persist Security Info=False"
conn.Open


poi setto la variabile rs:

Dim rs As ADODB.Recordset
 Set rs = New ADODB.Recordset
 Stringa = "SELECT * FROM GestioneModulo"
 rs.Open, stringa, conn,1,2

fammi sapere come va