Insert delete... ??'

[BeaZZy]

'Giorno a tutti... ecco il problema di oggi... oramai si susseguono uno via l'altro...

Come funziona l'aggiunta di record???

Io ho fatto così:

Dim sqlrisp As String
Dim objConnrisp = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\DataS\ForumS.mdb")

objConnrisp.open
sqlrisp="INSERT INTO post (idthread, idautore, data_post, titolo_post, post) VALUES ('" & idthread & "', '" & session("id") & "', '01/01/2001', '" & newposttitle.text & "', '" & newpostbody.text & "')"
Dim objCommandrisp as New OleDbCommand(sqlrisp , objconnrisp)
Dim objDataReaderrisp as OleDbDataReader
objDataReaderrisp = objCommandrisp.ExecuteReader

if objDataReaderrisp.read
if objDataReaderrisp.item("idthread").tostring <> ""


end if
end if
objConnrisp.close



Ma ovviamente la cosa non funziona!

penso sia dovuta al fatto che così è una connessione in "lettura" con soltanto la stringa sql cambiata. Chi è che, con una rapida occhiata, mi dice dove sbaglio?!?

Grazie e ciao

[zampa28]

 
Dim sqlrisp As String

Dim objConnrisp = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\DataS\ForumS.mdb") 

 sqlrisp="INSERT INTO post (idthread, idautore, data_post, titolo_post, post) VALUES ('" & idthread & "', '" & session("id") & "', '01/01/2001', '" & newposttitle.text & "', '" & newpostbody.text & "')"
 Dim objCommandrisp as New OleDbCommand(sqlrisp , objconnrisp) 

objConnrisp.open

objCommandRisp.ExecuteNonQuery()

objConnrisp.close

Così esegui l'istruzione Sql

[BeaZZy]

Mi da questo errore:

Per l'operazione è necessaria una query aggiornabile.

[Jc_]

gli accenti..

gli danno noia... prova un replace...

ps hai dimenticato la variabile intero per il nonquery.

[BeaZZy]

Non ci sono accenti all'interno. Cosa intendi per...

la variabile "intero"?

[zampa28]

Forse è colpa del Session("ID"), prova a cambiarlo con qualcos'altro.

[BeaZZy]

Ok, grazz... ora funziona!

Una curiosità...
...io ho un campo che si autoencrementa da solo, come faccio ad ottenere l'id dell'ultimo campo inserito (quello autoincrementante)?

Io ho provato ad andare a leggere il database con una nuova connessione, dopo aver creato il nuovo record, ma nn funziona.

Esiste un metodo???

Grazie e ciao

[Syd Barrett]

perché con una nuova connessione?

[zampa28]

 
Dim sqlrisp As String

Dim objConnrisp = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\DataS\ForumS.mdb") 

 sqlrisp="INSERT INTO post (idthread, idautore, data_post, titolo_post, post) VALUES ('" & idthread & "', '" & session("id") & "', '01/01/2001', '" & newposttitle.text & "', '" & newpostbody.text & "')"
 Dim objCommandrisp as New OleDbCommand(sqlrisp , objconnrisp) 

objConnrisp.open

objCommandRisp.ExecuteNonQuery()

Dim MyReader as OleDbDataReader

Dim UltimoID as integer

MyReader = MyCommand.ExecuteReader

While MyReader.Read

UltimoID = MyReader.GetInt32(indice-della-colonna-ID)

End While

objConnrisp.close

qualcuno ha un metodo più semplice per spostarsi sull'ultimo record?

:tongue:

[BeaZZy]

Per SydBarret:

Perchè nonero capace di farlo con la stessa!
--------
Per zampa28

Grazie mille!


Ora provo subito

Ciao