• 0
flawer

خطأ في التعديل و الإضافة

سؤال

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

 

أريد الإضافة أو التعديل في الداتاجريدفيو ، و لم أفلح في تشغيل هذا الكود

 

أرجو مساعدتكم و لكم الشكر

 

Addrow.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

القيم لا تقراء كلها مثل التاريخ

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الكريم أعرف أن التاريخ لا يقرأ مثل باقي القيم ، فهل من الممكن إصلاح الكود في المثال

و لكم الشكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

انظر التعديل

   Private Sub SaveRecC()        Dim strADD As String = ""        Dim dDate As String = "#" & grControl.Rows(grControl.Rows.Count - 2).Cells(0).Value & "#"        If blNew = True Then            strADD = "INSERT INTO PregControl (IDp,DateA,Pulse,Ausculate,Wieght,Placent,Comming,BP,[Note]) VALUES ("            strADD = strADD & Val(txtID.Text) & "," & dDate & ",' "            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(1).Value & "','"            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(2).Value & "','"            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(3).Value & "','"            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(4).Value & "','"            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(5).Value & "','"            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(6).Value & "','"            strADD = strADD & grControl.Rows(grControl.Rows.Count - 2).Cells(7).Value & "') "        Else            strADD = "UPDATE PregControl Set DateA =" & dDate & ","            strADD = strADD & "Pulse ='" & grControl.CurrentRow.Cells(1).Value & "',"            strADD = strADD & "Ausculate ='" & grControl.CurrentRow.Cells(2).Value & "',"            strADD = strADD & "Wieght ='" & grControl.CurrentRow.Cells(3).Value & "',"            strADD = strADD & "Placent ='" & grControl.CurrentRow.Cells(4).Value & "',"            strADD = strADD & "Comming ='" & grControl.CurrentRow.Cells(5).Value & "',"            strADD = strADD & "BP ='" & grControl.CurrentRow.Cells(6).Value & "',"            strADD = strADD & "[Note] ='" & grControl.CurrentRow.Cells(7).Value & "' "            strADD = strADD & " WHERE IDp =" & Val(txtID.Text)         End If        MsgBox(strADD)        Dim cmdAddR As New OleDbCommand(strADD, gConn)        cmdAddR.CommandType = CommandType.Text        cmdAddR.ExecuteNonQuery()        blNew = False        cmdAddR.Dispose()    End Sub
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

شكرا لك أخي الكريم ... إنك بحق مبرمج عظيم

جزاك الله خيراً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اولا العظم لله فقط تحري الدقة في القول حتي لا يذهب بك الشيطان الي الشر اعاذك الله من الشيطان

ثانيا لا شكر علي واجب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .