Ado.net

mercoledì 30 luglio 2003 - 17.44

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

trinity Profilo | Guru

3.465 messaggi | Data Invio: mer 30 lug 2003 - 17:44

Sviluppo e programmazione in Ado.net

trinity Profilo | Guru

3.465 messaggi | Data Invio: mer 30 lug 2003 - 17:44

Ragazzi vi posto il mio codice di un piccolo progettino per sfrtturare un po ado.net vi invido dagli asterischi dove mi da l'errore. Mi potete controllare dove sbaglio ed eventualmente dirmi come posso fare?

L'errore è il seguente: "alla connessione è già associato un Datareader aperto, che deve essere chiuso."

il codice:

Dim Cn As New OleDb.OleDbConnection()
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\prova\db1.mdb"
Dim Cm As New OleDb.OleDbCommand()
Dim Cm_1 As New OleDb.OleDbCommand()

Try
Cn.Open()
Try
Cm = New OleDb.OleDbCommand("SELECT * FROM storico WHERE cognome='Rossi'", Cn)
Dim Dr As OleDb.OleDbDataReader = Cm.ExecuteReader(CommandBehavior.CloseConnection)
While Dr.Read
Cm_1 = New OleDb.OleDbCommand("Insert Into clienti (codice,cognome,nome) Values ('" & Dr.GetValue(Dr.GetOrdinal("codice")) & "','" & Dr.GetValue(Dr.GetOrdinal("cognome")) & "','" & Dr.GetValue(Dr.GetOrdinal("nome")) & "')", Cn)
Cm_1.ExecuteNonQuery() ***qui mi genera l'errore
End While
Catch
MsgBox(Err.Description)
Finally
Cn.Close()
End Try
Catch msg As Exception
MsgBox(msg.ToString)
End Try

trinity Profilo | Guru

3.465 messaggi | Data Invio: gio 31 lug 2003 - 18:35

Sai dirmi come posso utilizzare un dataset e come posso riempirlo?

Chi mi può correggere questa istruzione di sql?

Cm_1 = New OleDb.OleDbCommand("INSERT INTO clienti (codice) VALUES ((SELECT (codice) FROM storico))", Cn)

trinity Profilo | Guru

3.465 messaggi | Data Invio: mar 2 set 2003 - 09:26

Ragazzi ho questo problema, sto utilizzando odbc.net con database mysql ma mi da un errore quando faccio excutereader dicendomi che la connessione è chiusa.
Vi posto il codice potete dirmi dove sbalgio?

Dim db As New OdbcConnection()
db.ConnectionString = "dsn=weeboo"
Dim cmd As New OdbcCommand("Select notizia FROM notizie DESC")
cmd.Connection = db
Dim dr As OdbcDataReader
dr = cmd.ExecuteReader
MsgBox(dr.GetValue(dr.GetOrdinal("notizia")))
dr.Close()

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !