[Codack]

السلام عليكم ورحمة الله وبركاتة

لو سمحت يا جماعة عندي داتا جريد فيو بضبف فيها بيانات

عايز كود يبحث في الداتا جريد فيو في العمود الاول مثلا او قاعدة البيانات في العمود الاول مثلا على اسم معين لو موجود ميضفش بيانات لو مش موجود يضيف البياتا

[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 


[Codack]

(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 


عذرا اخي لم تنفع الطريقة للأسف

---

ممكن تعديل على المشروع دا وهو نفس النموذج اللي عندي
انا عايز لو اسم من اللي في الكومبو بوكس موجود في الداتا جريد فيو تظهر رسالة هذه العضو موجود
لكن لو مش موجود في الداتا جريد فيو يضيف البيانات عادي

[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 


[Codack]

(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 


متشكر ظبط معي

[asemshahen5]

الحمد لله و الشكر لله .