R
Rampa
hello! the problem is always the same but i can't understand why it
happens!! Someone can help me? FIRST QUERY GOES WELL, SECOND BREAK WITH
ERROR why?
Dim connessione As New
SqlClient.SqlConnection("Server=SOSQLSRV01;Initial
Catalog=SO_Bolle;Uid=SO_CattolicaRE;PWD=sogeda")
Dim iddestinatario As Integer
Dim TestoQueryCodicecodicedestinario As String = "SELECT
max(id_destinatario) FROM destinatario "
Dim QueryCodicecodicedestinario As New
SqlClient.SqlCommand(TestoQueryCodicecodicedestinario, Connessione)
Dim LettoreCodicecodicedestinario As SqlClient.SqlDataReader
If Connessione.State = ConnectionState.Closed Then
Connessione.Open()
End If
LettoreCodicecodicedestinario =
QueryCodicecodicedestinario.ExecuteReader()
LettoreCodicecodicedestinario.Read()
Dim Codcodicedestinario As String =
LettoreCodicecodicedestinario.GetInt32(0)
LettoreCodicecodicedestinario.Close()
Connessione.Close()
Dim QuerySalvadestinatario As String = "INSERT INTO
Destinatario (Intestazione) VALUES ('ciao')"
Dim Inseriscidestinatario As New
SqlClient.SqlCommand(QuerySalvadestinatario, connessione)
If connessione.State = ConnectionState.Closed Then
connessione.Open()
End If
Inseriscidestinatario.ExecuteNonQuery()
connessione.Close()
happens!! Someone can help me? FIRST QUERY GOES WELL, SECOND BREAK WITH
ERROR why?
Dim connessione As New
SqlClient.SqlConnection("Server=SOSQLSRV01;Initial
Catalog=SO_Bolle;Uid=SO_CattolicaRE;PWD=sogeda")
Dim iddestinatario As Integer
Dim TestoQueryCodicecodicedestinario As String = "SELECT
max(id_destinatario) FROM destinatario "
Dim QueryCodicecodicedestinario As New
SqlClient.SqlCommand(TestoQueryCodicecodicedestinario, Connessione)
Dim LettoreCodicecodicedestinario As SqlClient.SqlDataReader
If Connessione.State = ConnectionState.Closed Then
Connessione.Open()
End If
LettoreCodicecodicedestinario =
QueryCodicecodicedestinario.ExecuteReader()
LettoreCodicecodicedestinario.Read()
Dim Codcodicedestinario As String =
LettoreCodicecodicedestinario.GetInt32(0)
LettoreCodicecodicedestinario.Close()
Connessione.Close()
Dim QuerySalvadestinatario As String = "INSERT INTO
Destinatario (Intestazione) VALUES ('ciao')"
Dim Inseriscidestinatario As New
SqlClient.SqlCommand(QuerySalvadestinatario, connessione)
If connessione.State = ConnectionState.Closed Then
connessione.Open()
End If
Inseriscidestinatario.ExecuteNonQuery()
connessione.Close()