10-10-17, 08:23 AM
(09-10-17, 09:53 AM)a.ahmed كتب :PHP كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
If IsExist(Me.TextBox1.Text) Then
MsgBox("Yes")
Else
MsgBox("No")
End If
End Sub
Function IsExist(ByVal theName As String) As Boolean
Dim lst As New List(Of String)
lst.Add("[NAME] LIKE '" & theName.Trim & "'")
lst.Add("[NAME] LIKE '% " & theName.Trim & "'")
lst.Add("[NAME] LIKE '" & theName.Trim & " %'")
lst.Add("[NAME] LIKE '% " & theName.Trim & " %'")
Dim lk As String = String.Join(" OR ", lst)
Dim cmd As New OleDbCommand(" SELECT COUNT(Name) FROM [Table1] WHERE " & lk, con)
cmd.Parameters.AddWithValue("@p1", TextBox1.Text)
If con.State <> ConnectionState.Open Then con.Open()
Dim cnt = cmd.ExecuteScalar
con.Close()
If cnt > 0 Then
Return True
Else
Return False
End If
End Function
السلام عليكم
اولا شكرا لك على الرد حاولت اضبط الكود بس ما مشى معاي
بعد اذنك هذا الكود اللي استخدمه كيف اربطه مع الكود الخاص بك
كود :
Dim conXCX As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
Dim cmdXX As New SQLiteCommand("SELECT CALLop FROM [DBqsos] WHERE [CALLop]=@param1 AND [Band]=@param2", conXCX)
cmdXX.Parameters.AddWithValue("@param1", Trim(calls.Text))
cmdXX.Parameters.AddWithValue("@param2", bands.Text)
If conXCX.State <> ConnectionState.Open Then conXCX.Open()
If cmdXX.ExecuteScalar > 0 Then
Label14.Text = "DOUBLE"
Label14.BackColor = Color.Red
End Ifوشكرا لك
