Hatam

السلام عليكم اولا استخدم مكتبة Microsoft DAO 3.6 Object Library هذا الكود بعد التعديل Dim db As Database Dim Rs As Recordset Sub OpenMyData() Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\db1.mdb") End Sub Sub ReadData() Set Rs = db.OpenRecordset("…

السلام عليكم حاولة عمل برنامج يقوم بتحويل من النظام الثنائي الى العشري والعكس للاعداد الصحيحة فقط . ولتحوي من النظام الثنائي الى العشري نضرب الرقم الثنائي في 2 مرفوعة للاسس حسب ترتيب الاعداد الثنائية مثال العدد 1101 الاسس 1 2 4 8 .... العدد الثنائي 1 0 1 1 (1^…

السلام عليكم يوجد مثالين على هذا الموضوع في موقع ميكروسوفت MSDN http://msdn.microsoft.com على العناوين التالية : http://support.microsoft.com/default.aspx?...kb;en-us;109260 http://support.microsoft.com/default.aspx?...=kb;en-us;31789

السلام عليكم وهناك طريقة اخرى ، ان تقوم بوضع كلمة سر لملف الاكسس ، وبعد التأكد من ان البرنامج يعمل بطريقة المطلوبة ، تقوم باخفاء الملف بالضغط بزر الفأرة الايمن على ملف الاكسس تم تختار خصائص من القائمة تم تضع علامة صح امام خاصية الاخفاء Hidden . حتى لو عرف احد …

هذا الملف . combo.rar

السلام عليكم هذا مثال يوضح كيف يمكن البحث وعرض البيانات باستخدام ComboBox أو DataCombo بطريقة ADO . المكونات : قاعدة بيانات تحتوي على جدول اسمه tbl مكون من اربعة حقول ( id , name , dept , ago ) ، و في الفيجول بيسك يوجد به ComboBox او DataCombo و ثلاثة TextBox …

السلام عليكم هذا التصحيح , ولكن ابحث كما قال الاخ إبراهيم ، لتعلم الكثير عن هذه الطريقة ، وبتوفيق ... Public DA As ADODB.Connection Sub main() Set DA = New ADODB.Connection DA.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\datt.mdb;Jet OL…

السلام عليكم في الملف المرفق يوجد مجلدين الثاني هو الافضل لانه يحسب حساب للمستخدم الذي قد يغير اجابته من اجابة صحيحة إلى الاجابة الخطأ . سؤال وجواب.zip

السلام عليكم جرب هذا الكود ، ويجب ان تكون text1 , text2 في الفورم . Dim arry1, arry2, tt, st As Variant Dim i As Integer 'دالة سبلت تقوم بتقسيم سلسلة حرفية الى مجموعة كلمات وتضعهم في مصفوفة 'ويقص السلسلة اينما وجد فراغ اي حسب البارمتر الثاني arry1 = Split(Text…

السلام عليكم هذا البرنامج بعد التعديل . يوجد معه ملف يحتوي على شرح بسيط بالتعديلات . البرنامج.rar

السلام عليكم هذا الكود يبحث في كل Label الموجودة في الفورم على كلمة test. Dim obj As Object For Each obj In Me.Controls If TypeOf obj Is Label Then If InStr(1, obj.Caption, "test") Then MsgBox "كلمة موجودة" End If End If Next

السلام عليكم اذا كنت تريد الحل باستخدام SQL الصق الكود التالي في نهاية كل - سبروتين - من الاربعة الموجدين عندك . و في - Form_Load - اذا كنت تريد عرض القسم في البداية فتح الفورم . وبهذا لان تحتاج الي زر القسم . اما اذا اردت استخدام زر القسم لعرض القسم فالصق الك…

السلام عليكم ذلك كان مثال عام لأخذ الفكرة منه . الأن يمكنك تنزيل المثال . ListView.rar

السلام عليكم المشكلة انه لا يوجد توافق بين اصدار الاكسس (Access) الذي تستخدمه و مكتبة DAO . لحل المشكلة : 1- اختر قائمة Project , ثم References . 2- ألغي علامة الصح من مكتبة ( Microsoft DAO 3.51 Object Library ) . 3- ضع علامة صح امام مكتبة ( Microsoft DAO 3.6 …

السلام عليكم كود تعبئة ListView بطريقة DAO ' components : Microsoft Windows Common Controls 6.0 Dim db As Database Dim rs As Recordset Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\database_name.mdb") Set rs = db.OpenRecordset("table_name") ' Set r…

السلام عليكم انا ايضاً لم اجرب هذا البرنامج ، لكن عندي فكرة إن شاء الله تفيد . اعتقد انه ينقص أن تضيف قواعد اللغة , يعني لتفريق بين الولد والبنت حدد ان boy مذكر وبالتالي تكون كلمات الجملة على المذكر وتستبدل بالكلمات المذكر من قاعدة البيانات مثل eat بـ ( أكل ) …

السلام عليكم نعم أخي طارق يمكن عمل الكثير باستخدام Excute والشئ المهم هو انها تساعد على العمل بــ SQL مع أي قاعدة بيانات من الفيجول بيسك , لإني لاحظة ان SQL اسرع في التعامل مع قاعدة البيانات . واضيف هذا الكود الذي يقوم بانشاء جدول بــ SQL في قاعدة بيانات اكسس …

السلام عليكم ممكن تجرب الكود التالي اذا كنت تستخدم طريقة ADO Set rs = New ADODB.Recordset rs.Open "[Table1]", db, adOpenStatic, adLockOptimistic

باختصار هي update الخاصة بالفيجول بيسك6

السلام عليكم اذا ما عندك السرفس باك 5 أو 6 للفيجول بيسك 6 نزلهم من هذا الرابط : Visual basic 6 Service Pack 5 http://download.microsoft.com/download/vst...US/vs6sp5vb.exe --------------------- Visual basic 6 Service Pack 6 http://www.microsoft.com/downloads/de…