mmghv

العفو اختي نحن هنا للمساعدة لتغيير الخصائص للـ ColumnHeaders نستخدم : ListView1.ColumnHeaders(1).Width = 5000 حيث نكتب رقم الـ Header بين القوسين () ثم "." فنجد كل خصائص الـ Header

اولاً نحن نريد ربط الجدول الاول بالجدول الثاني وذلك لعرض بيانات العنصر الموجود بالجدول الاول من الجدول الثاني, لذلك يجب وجود حقل يربط بينهم , فكيف نعرف اي بيان من بيانات الجدول الثاني هو بيان العنصر الموجود بالجدول الاول, لذلك قمت بإضافة حقل الـ Name للجدول ال…

اولاً ابدأ في تعلم قواعد بيانات الـ SQL Server وكيفيه تسطيبه من قسم قواعد بيانات Microsoft SQL Server ثم ابحث في هذا المنتدى لتجد شروحات لربط الفيجوال بيبسك بالسكوال سيرفر ..

في هذا الكود انت تخبره بأن يعرض كل البيانات التي يكون عندها الحقل Name_ID مساوي للقيمة الرقمة للـ Name_ID.Text اي إذا كان مكتوب في الـ Name_ID.Text الرقم 10 فلن يعرض الا البيانات التي يكون حقل الـ Name_ID لها مساوياً 10 "select * from Tab1 where Name_id = " & …

ارفقي مثال لنقوم بالتعديل عليه ..

يجب وجود حقل مميز لا تتكرر قيمته مثل "اسم الموسوعة" في المثال, ثم في حدث الـ ItemClick للـ ListView يتم عمل استعلام على قاعدة البيانات بالحقل المميز ووضع النتيجة في الـ Textbox ويكون الإستعلام كالتالي: Select DetailsField From MyTable Where Name='" & Item.Text…

في المرفقات مثال لما يمكنك عمله بحدث الـ KeyPress , انا ارشدتك للطريق وانت يجب عليك كمبرمج ان تسلك طريقك بنفسك وإذا قابلتك عقبة فنحن هنا لنساعد Keyascii.rar

هذا سيقوم بإستبدال المكتوب في الملف النصي بما هو مكتوب داخل الـ Text1 و Text2 FF = FreeFile Open App.Path & "\TextFile.txt" For Output As FF Print #FF, Text1.Text Print #FF, Text2.Text Close FF اما إذا كنت تريد الإضافة على ما هو مكتوب داخل الملف النصي فقم بإست…

تستطيع استخدام حلقة تكرارية لتعبئة الـ ListView بالبيانات من الداتا بيز مثل هذا الكود : For n = 1 To rs.RecordCount If rs.Fields("MyField") <> "" Then ListView1.ListItems.Add rs.Fields("MyField") End If If Not rs.EOF Then rs.MoveNext Next وتستطيع وضع الشرط الذ…

إذا كنت تريد إضافة بيان الى الفليكس جريد (مع ملاحظة ان هذه الفليكس جريد ليست متصلة بداتا بيز) تستطيع إستخدام مثل الكود التالي : With MSFlexGrid1 .AddItem "NewItem" .Row = .Rows - 1 .Col = 1 .Text = "Col1" .Col = 2 .Text = "Col2" .Col = 3 .Text = "Col3" End Wit…

هل تريد الكود ام تريد مساعدة في كتابة الكود ؟؟! اذا كنت تريد مساعدة في كتابة الكود فسأقدمها لك ,, لاداة الـ TextBox حدث يسمى KeyPress وينشط عند الكتابة في الـ Text هذا هو الحدث الذي يجب ان تستخدمه حيث ان هذا الحدث يحتوى بارامتر KeyAscii وهو البارامتر الذي يحمل…

طالما البرنامج يعمل على سيرفر لماذا لا تستخدم قواعد بيانات SQL Server فهي مخصصة لهذا الإستخدام , بحيث تكون قاعدة البيانات على السيرفر وتقوم بتسطيب البرنامج على الاجهزة الاخرى ويقوم بالإتصال بالداتابيز في السيرفر وبذلك يكون الإتصال سلس وسريع ويمكن للكثير من الا…

وايضاً يوجد حرف زائد في الكود ... تم وضع الكود في Function مستقل لتسهيل العملية الكود بعد التعديل : Private Sub Command1_Click() CompactDatabase Text1.text, Text2.text End Sub Public Sub CompactDatabase(dbPath As String, dbPassword As String) Dim dbPass As Str…

المسار الاول هو مسار وجود قاعدة البيانات, انما المسار الثاني هو مسار قاعدة البيانات بعد الضغط, فكود الضغط يضغط قاعدة البيانات ويحفظها في مكان آخر, لذا يجب تغيير المسار الثاني , على سبيل المثال نضيف له كلمة Tmp فيكون الكود dbPath = Text1.Text TmpdbPath = "Tmp" …

السلام عليكم ... اولاً قم بإدراج المكتبة Microsoft Office 12.0 Access database engine Object لمشروعك ( Project > Reference > Microsoft Office 12.0 Access database engine Object ) ثم استخدم الكود التالي : Dim dbPath As String, TmpdbPath As String, dbPass As Str…

اخي الكريم : على العموم , يجب ان يكون حقل التاريخ من النوع DateTime وحقل الترقيم من النوع Text ثم استخدم الكود التالي لإنشاء رقم جديد يبدأ من الرقم 1 ببداية كل سنة : If RS.State = adStateOpen Then RS.Close RS.Open "Select * From kadia Where Year(datet)=" & Yea…

انظر متى تحديداً يعطي البرنامج الخطأ ( مثلاً عند الضغط على الـ Command ) ثم ارفق الكود الذي استخدمته في هذه الجزئية لنرى ما هي المشكلة بالتحديد ..

الخاصية Value للأداه Checkbox يقابلها في الدوت نت الخاصية Checkstate مثال : If CheckBox1.CheckState = CheckState.Checked Then DoSomething End If

قم بإرفاق الكود الخاص بالترقيم بالكامل وضع اسامي الحقول في الجدول وانواعها لأتمكن من مســــاعدتك