Hatam

السلام عليكم يمكن عمل ذلك باستخدام Execeute cn.Execute "UPDATE table_name SET fld2=" & Text2.Text & ", fld3='" & text3.Text & "' WHERE fld1=" & Trim(Text1.Text) & "" وفي الوصلة التالي مثال لإستخدام Execute /index.php?showtopic=48185

السلام عليكم هذا البرنامج يجمع ويطرح الوقت . calc.zip

السلام عليكم جرب هذا الكود . حيث books هو اسم الجدول و book_name هو اسم الحقل الذي يحتوي على اسم الكتاب Set rs = New ADODB.Recordset rs.Open "books", cn, adOpenStatic, adLockPessimistic rs.Find "book_name like '*" & Text1.Text & "*'" If Not rs.EOF Then MsgBox …

السلام عليكم هذا مثال لبرنامج يقوم بجمع زمنين . ان شاء الله يكون قريب من المطلوب . exm.rar

السلام عليكم اذا كنت تريد هذا المثال ( OpenXL_File.zip ) تجده مع الامثلة الموجودة في هذا الرابط : /index.php?showtopic=37602

السلام عليكم لم افهم المطلوب بالضبط ، لو تعرض جزء من البرنامج مع توضيح المطلوب يكون افضل . ومع ذلك يوجد بعض الاكواد التي تساعد في التعامل مع الاكسل بالفيجول بيسك على هذا الرابط : /index.php?showtopic=50858

السلام عليكم ورحمة الله وبركاته شكراً و الله يبارك فيكم .

السلام عليكم rs.Filter = "Field1 = " & Text1.Text & " and Field2 = '" & Text2.Text & "'" استخدام adodc adodc1.Recordset.Filter= "Field1 = " & Text1.Text & " and Field2 = '" & Text2.Text & "'"

السلام عليكم اشكر لكل من رشحني . واريد سحب ترشيحي لأني لا اعتبر نفسي خبير في الفيجول بيسك في الوقت الحاضر، فانا اعتبر كل سؤال هو اختبار أو مراجعة لمعلوماتي وأساعد بقدر المستطاع وسأستمر في تقديم المساعدة طالما أني قادر على ذلك . تحياتي للجميع والسلام عليكم

السلام عليكم في بديل بان تكتب اسم قاعدة البيانات فقط بهذا الشكل DB.mdb في خاصية DatabaseName .

السلام عليكم هذا المثال لتوضيح الفكرة . طريقة العمل : اولا افتح قاعدة البيانات تم افتح الجدول وخذ منه اسم المستخدم وكلمة السر ، تم قم الضغط ( دبل كلك ) على الملف الذي اسمه برنامج (وهو من نوع exe)، تم اكتب اسم المستخدم وكلمة السر وادخل على الشاشة الرئيسية ، وبع…

السلام عليكم بنسبة لدخول المشترك الى البرنامج مرة واحدة ، يمكن ان تضع حقل اخر في قاعدة البيانات في جدول الذي يحتوي على كلمة السر واسم المستخدم وان يكون هذا الحقل من نوع Booleen وذلك عندما يكون False يعني ان المستخدم لم يفتح البرنامج واذا كان True يعني ان المست…

السلام عليكم يمكنك ان تجرب استخدام برنامج الاكسل وذلك بان تقوم بارسال البيانات من قاعدة البيانات الى ملف اكسل تقوم بإنشاءه من الفيجول بيسك تم تنشاء ورقة عمل باسم المرحلة أبتدائي وتضع البيانات الخاصة بهذه المرحلة وتنشاء ورقة عملة اخرى للمرحلة المتوسط وكذلك لمرح…

السلام عليكم طريقة ADO : 'ADO Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" Set rs = New ADODB.Recordset rs.Open "members", cn, adOpenDynamic, adLockOptimistic, adCm…

السلام عليكم الاكواد السابقة تساعد على الربط بين الاكسل والفيجول بيسك ويمكن استخدام ما يلزم منها حسب الشئ المطلوب . و ايضاً يوجد في المنتدى مثال يوضح استخدام الاكسل كقاعدة بيانات على الوصلة التالية : http://www.arabteam2000.com/files/vb/OpenXL_File.zip

السلام عليكم لمن يريد تعلم كيف يقوم بعمل هذه الاكود من الصفر ، انصحه بان يبدأ بعمل اكواد بمكرو من برنامج ميكروسوفت اكسل ( اي من محرر فيجول بيسك التابع لبرنامج الاكسل ) وان يستعين بمساعد اوفيس التابع للمحرر ويكتب اسم الاداة او الامر بلغة الانجليزية ويقرأ الاوام…

السلام عليكم ورحمة الله وبركاته التعامل مع الاكسل (Excel) من الفيجول بيسك هذه بعض الاكود التي توضح طريقة التعامل ، و يوجد ايضاً مثل بسيط القصد منه توضيح بعض الاوامر . اولاً يجب إضافة مكتبة اكسل من قائمة Project > References Microsoft Excel 10.0 Object Library …

السلام عليكم اولا يجب تعريف الحقل id على انه index في قاعدة البيانات بطريقة DAO 'DAO Dim db As Database Dim rs As Recordset db = DBEngine.OpenDatabase(App.Path & "db1.mdb") Set rs = db.OpenRecordset("members") If Not rs.BOF Then rs.MoveFirst rs.Index = "id" rs…

السلام عليكم جرب هذا الكود وإن شاء الله يكون هو المطلوب . Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) If Node <> "دليل الحسابات" Then Set Rs = db.OpenRecordset("SELECT AccountTree.Kotob From AccountTree where AccountTree.AccountName='" & No…

السلام عليكم المثال السابق ناقص وفيه بعض المشاكل . ولقد اكملة المثال مع تصحيح الاخطأ . التحويل من النظام الثنائي الى العشري هذا مثال للتوضيح : 100.01 العدد الصحيح 100 ( 0^2*0 ) + ( 1^2*0 ) + ( 2^2*1 ) = 4 العدد الكسري 0.01 ( (1-)^2*0 ) + ( (2-)^2*1 ) = 1/2*0 +…