1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
TRY
Dim queryString2 As String = "SELECT [reservation].[Num_id] FROM [reservation] WHERE taClé = Replace ( TextBox1.text, "'", "''") "
Dim dbCommand2 As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand2.CommandText = queryString2
dbCommand2.Connection = dbConnection2
dbConnection2.Open 'ouverture de la connexion
Dim myDataSet as New DataSet
Dim myDataAdapter as new DataAdapter
myDataAdapter.SelectCommand = dbCommand2
myDataAdapter.Fill(myDataSet)
if myDataSet.Tables(0).Rows.Count = 0 Then
msgbox("Elément inexistant")
else
msgbox("Elément existant")
end if
CATCH ex as exception
MSGBOX(es.Message)
END TRY
|
Partager