منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكله في كود الحفظ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكله في كود الحفظ (/showthread.php?tid=26950)

مشكله في كود الحفظ - فراس محي - 15-10-18

اخوان ممكن مساعده مستعجله عملت نظام وشغال تمام بس المشكله عندي نقص بكود الحفظ 
اريد من احفظ قيد اذا كان بيانات حقل التكيست 5 موجود مسبقا مايحفظ يعرض رساله وذا غير موجود يحفظ القيد وهذا كود الخزن 
كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       dataconnection()
       TextBox15.Text = DateTime.Now
       TextBox14.Text = My.Computer.Name.ToString()
       cmd.Connection = cnn
       cmd.CommandText = "INSERT INTO [info] " & _
                  "([name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti],[datauser],[dateuser]) VALUES" & _
            "('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox5.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox6.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "')"
       cmd.ExecuteNonQuery()
       cnn.Close()
       clear1()
   End Sub
جربت كود بحث بس المشكله ما اعرف اذا رجعت قيمه da  اشلون اتعامل وياهاوهذا التعديل الي سويته على الكود بس ما عاعرف القيمه الي ترجع اشلون اتعامل ويايها 
كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       dataconnection()
       TextBox15.Text = DateTime.Now
       TextBox14.Text = My.Computer.Name.ToString()
       cmd.Connection = cnn
       Dim da As New OleDb.OleDbDataAdapter("SELECT * From info where ngan like '%" & TextBox5.Text & "%'", cnn)
       اذا رجعت da قيد اشلون راح اتعامل وياه هنا مشكلتي
       cmd.CommandText = "INSERT INTO [info] " & _
                  "([name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti],[datauser],[dateuser]) VALUES" & _
            "('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox5.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox6.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "')"
       cmd.ExecuteNonQuery()
       cnn.Close()
       clear1()
   End Sub


RE: مشكله في كود الحفظ - rnmr - 15-10-18

جرب هذا

كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    TextBox15.Text = DateTime.Now
    TextBox14.Text = My.Computer.Name.ToString()
    Try
        If cnn.State <> ConnectionState.Open Then cnn.Open()
        cmd = New OleDb.OleDbCommand("SELECT COUNT([ngan]) FROM [info] WHERE [ngan]=@ngan", cnn)
        cmd.Parameters.AddWithValue("@ngan", TextBox5.Text)
        If cmd.ExecuteScalar > 0 Then
            MsgBox("الاسم موجود")
        Else
            cmd.CommandText = "INSERT INTO " & _
                       " [info] ( [name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti],[datauser],[dateuser] ) " & _
                       " VALUES ( @name, @department, @dgree, @pagn, @typepag, @typegan, @ngan, @unti, @datauser, @dateuser  )"
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@name", TextBox1.Text)
            cmd.Parameters.AddWithValue("@department", ComboBox1.Text)
            cmd.Parameters.AddWithValue("@dgree", ComboBox5.Text)
            cmd.Parameters.AddWithValue("@pagn", TextBox3.Text)
            cmd.Parameters.AddWithValue("@typepag", TextBox4.Tex)
            cmd.Parameters.AddWithValue("@typegan", ComboBox6.Text)
            cmd.Parameters.AddWithValue("@ngan", TextBox5.Text)
            cmd.Parameters.AddWithValue("@unti", TextBox6.Text)
            cmd.Parameters.AddWithValue("@datauser", TextBox14.Text)
            cmd.Parameters.AddWithValue("@dateuser", TextBox15.Text)
            If cmd.ExecuteNonQuery() > 0 Then
                MsgBox("نجحت الإضافة")
            End If
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        cnn.Close()
    End Try
    clear1()
End Sub