+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : Ado : ممكن كود حفظ في محتويات فلكس غريد في قاعدة البيانات (/showthread.php?tid=8655)
Ado : ممكن كود حفظ في محتويات فلكس غريد في قاعدة البيانات - المبرمج البسيط - 26-04-13
Ado : ممكن كود حفظ في محتويات فلكس غريد في قاعدة البيانات
طبعاً طريقه الربط هي ado
وكذلك حف مربعات نص معها
Ado : ممكن كود حفظ في محتويات فلكس غريد في قاعدة البيانات - المبرمج البسيط - 26-04-13
تم حل المشكله
هذا كود الحفظ
PHP كود :
On Error Resume Next
Dim S As Integer
If Text1.Text = "" Then
MsgBox "أدخل رقم الفاتورة", vbCritical, "رقم الفاتورة"
Exit Sub
End If
SQL = "Select * From sale where InvNo= ' " & Trim(Text1.Text) & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, DB, adOpenKeyset, adLockPessimistic
With Grid
If RS.RecordCount < 1 Then
For S = 1 To .Rows - 1
RS.AddNew
RS!InvNo = Text1.Text
RS!InvDate = DTPicker1
RS!CutmrName = Combo1.Text
RS!Codeitem = .TextMatrix(S, 0)
RS!ItmName = .TextMatrix(S, 1)
RS!Price = .TextMatrix(S, 2)
RS!Qty = .TextMatrix(S, 3)
RS!amount = .TextMatrix(S, 4)
'++++
Next
MsgBox "تم حفظ الفاتورة بنجاح", vbInformation, "حفظ"
Label6.Caption = ""
Else
MsgBox "لم يتم الحفظ --- الفاتورة مسجله من قبل ", vbCritical, "خطأ"
End If
End With
لكن يقوم بحفظ اول سطر من الفلكس غريد فقط والباقي لا يقوم بحفظة
ممكن مساعده من الخبراء
Ado : ممكن كود حفظ في محتويات فلكس غريد في قاعدة البيانات - المبرمج البسيط - 27-04-13
[COLOR="#FFFF00"]||||||||lllll-- ممكن مساعده شباب --lllll|||||||||[/COLOR]
Ado : ممكن كود حفظ في محتويات فلكس غريد في قاعدة البيانات - المبرمج البسيط - 28-04-13
شباب راح يصير لي يومين على طرح السؤال
هل من المعقول لا احد يستطيع حل المشكله
Ado : ممكن كود حفظ في محتويات فلكس غريد في قاعدة البيانات - VB_Coder - 28-04-13
السلام عليكم
- أخي أضف RS.Update قبل كلمة Next .
Ado : ممكن كود حفظ في محتويات فلكس غريد في قاعدة البيانات - المبرمج البسيط - 29-04-13
الف شكر لك اخيvb_coder
تم بنجاح الكود