Buonasera,
Ho provato a fare il debug di questo frammento di codice, ma la parte in grassetto viene completamente ignorata! Qualcuno può darmi una dritta?
Grazie per l'attenzione!
If cmbCliente_Fornitore.Text = "CLIENTE/FORNITORE" Then
nome = "B-SP-A-C-II-1-"
dbcomm.CommandText = "SELECT Nome FROM Conti WHERE (Nome='" + nome + idn + "')"
cf = " (C)"
parent = "B-SP-A-C-II-1"
reader = dbcomm.ExecuteReader
While reader.Read
MsgBox(reader.HasRows)
If reader.HasRows = False Then
dbcomm.CommandText = "INSERT INTO Conti (Nome, Testo, Parent) values ('" + nome + idn + "', '" + Replace(txtNick.Text, "'", "''") + cf + "','" + parent + "')"
dbcomm.ExecuteNonQuery()
End If
End While
reader.Close()
nome = "B-SP-P-D-7-"
dbcomm.CommandText = "SELECT Nome FROM Conti WHERE (Nome='" + nome + idn + "')"
cf = " (F)"
parent = "B-SP-P-D-7"
reader = dbcomm.ExecuteReader
[b] While reader.Read
MsgBox(reader.HasRows)
If reader.HasRows = False Then
dbcomm.CommandText = "INSERT INTO Conti (Nome, Testo, Parent) values ('" + nome + idn + "', '" + Replace(txtNick.Text, "'", "''") + cf + "','" + parent + "')"
dbcomm.ExecuteNonQuery()
[/b]
End If
End While
reader.Close()
End If
dbconn.Close()