تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله في كود الحفظ
#1
اخوان ممكن مساعده مستعجله عملت نظام وشغال تمام بس المشكله عندي نقص بكود الحفظ 
اريد من احفظ قيد اذا كان بيانات حقل التكيست 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
الرد
تم الشكر بواسطة:
#2
جرب هذا

كود :
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
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله فى حفظ سجل جديد سلام و محبه 7 280 13-01-21, 06:43 PM
آخر رد: moosa_alabri
  مشكله بالبكيتشر بووكس اليوم السابع 4 168 01-01-21, 08:55 AM
آخر رد: اليوم السابع
  انا عندي مشكله ممكن المساعده اريد كود يجلب لي اخر id moahmed.abdelmohsen 1 141 29-12-20, 11:25 PM
آخر رد: moahmed.abdelmohsen
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 1 300 10-11-20, 04:32 PM
آخر رد: mmali127
  [VB.NET] مشكله في قراءه بيانات فارغه من ال SQL SERVER mohammed_abdu 2 296 08-11-20, 05:31 PM
آخر رد: mohammed_abdu
  رسالة خطأ في كود الحفظ aftfm 1 173 06-11-20, 10:09 PM
آخر رد: kiki
  ماذا يعني هذا الخطأ اثناء الحفظ sofiane-phy 5 409 02-11-20, 11:07 PM
آخر رد: sofiane-phy
Question [VB.NET] ازرار التنقل و الاضافة و الحفظ و الحذف و التعديل في entity framework باستخدام visual vb 2010 + sql server 2008 3 455 28-10-20, 12:46 PM
آخر رد: Anas Mahmoud
  خطأ في الحفظ بدون صورة sofiane-phy 7 424 24-10-20, 08:28 AM
آخر رد: سعود
  [VB.NET] سؤال توضيحي حول الحفظ عن طريق CommandBuilder larbihamri 2 345 19-10-20, 10:07 AM
آخر رد: larbihamri

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم