(13-04-20, 04:58 AM)asemshahen5 كتب :

PHP كود :

'طريقة الاستعلام عن سجل في جدول بقاعدة البيانات'
dim StrSql As string="Select * From Table1 Where Column1="& TxtColumn1.Text
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
if dt.rows.count=0 then
dgv.rows.add(1,"Test")
else
msgbox("هذا السجل موجود بقاعدة البيانات")
end if
'طريقة البحث في داتاغريدفيو'
TextBox1.Text = DataGridView1.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(1).Value) = "Test").Count
if TextBox1.Text=0 then
dgv.rows.add(1,"Test")
else
msgbox("هذا السجل موجود بقاعدة البيانات")
end if 


(13-04-20, 04:53 PM)asemshahen5 كتب :

PHP كود :

   Sub insert_()
        Dim dd As Integer = DataGridView1.Rows.Cast(Of DataGridViewRow).Where(Function(row) CStr(row.Cells(1).Value) = ComboBox1.SelectedItem).Count
        If dd > 0 Then
            MsgBox("هذا العضو موجود")
            Exit Sub
        End If
        Dim cmd As New SqlCeCommand("insert into asd  (a, b, c) values('" & ComboBox1.Text & "','" & DateTimePicker2.Text & "','" & DateTimePicker1.Text & "')", Con)
        Con.Open()
        cmd.ExecuteNonQuery()
        Con.Close()
    End Sub