Dim ConnString As String = System.Configuration.ConfigurationManager.ConnectionStrings("LocalSqlServer").ToString
Dim myConn As New Data.SqlClient.SqlConnection(ConnString)
myConn.Open()
Dim sqlString = "SELECT COUNT(*) FROM [myTable] WHERE ([Key1] =" + Request.QueryString("key1") + " AND key2=" + KeysDropDownList.Text + ")"
Dim myCommand As New Data.SqlClient.SqlCommand(sqlString, myConn)
Dim NumberOfRecords As Integer
NumberOfRecords = myCommand.ExecuteScalar()
myConn.Close()
myConn = Nothing
If NumberOfRecords = 0 Then
'Η ΕΓΓΡΑΦΗ ΔΕΝ ΥΠΑΡΧΕΙ. ΑΣΕ ΤΟΝ ΧΡΗΣΤΗ ΝΑ ΤΗΝ ΚΑΤΑΧΩΡΗΣΕΙ
else
'η εγγραφή υπάρχει. Ενημέρωσε τον χρήστη ότι δεν μπορεί να την ξαναπεράσει
end if
Βέβαια μου φαίνεται οξύμωρο να έχουμε ήδη ενα open conection στην βάση με το SqlDatasource control και να ανοίγουμε και άλλο ένα για να τσεκάρουμε αν υπάρχει ή όχι στην βάση η εγγραφή ;