Mady-AGC

كيف يتم تسجيل ضغطات لوحة المفاتيح والماوس في ملف ؟

السلام عليكم استخدم الكود التالي Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Dim AddInto As New OleDb.OleDbCommand("insert into Tab1 ([ID],[Name],[Phone],[DateInfo])values ('" & Label1.Text.Trim &…

السلام عليكم هذا ممكن عن طريق إضافة كود السابق ولكن من خلال برنامج التحزيم مثل Setup Factory 9.0 ليقوم بالتأكد إن كانت قاعدة البيانات موجودة عند التنصيب يقوم بحذفها قبل التنصيب

السلام عليكم هذا هو الكود rs.MoveFirst rs.Find "name='" & Combo1.Text & "'", , adSearchForward, 1 Text1.Text = rs("ID") وهذا مثال على ذلك http://www.4shared.com/file/D7QgW0C9/Combo.html

السلام عليكم قومي بتشغيل كل سيرفس الأوركل من Control Panel > Adminstratvie Tools> Servies

السلام عليكم قم بوضع الكود التالي قبل كود البحث If GDR.IsClosed = False Then GDR.Close If rd.IsClosed = False Then rd.Close أو حاول استخدام هذا الكود '|--------------------------------------------------------| '| الكود الخاص بالبحث بكود العميل | '|------------…

السلام عليكم قم بوضع الكود التالي قبل كود البحث If rd.IsClosed = False Then rd.Close

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

السلام عليكم قم بتشغيل كل السيرفس الخاصة ب Oracle عن طريق Control Panel > Administrative Tools > Services ثم قم بعمل Start لكل السيرفس اللي بيتدأ ب Oracle

السلام عليكم إن كان هناك حقل من نوع ترقيم تلقائي فلا توجد له برمجة ويجب تجاهله تماما عند الحفظ هل يمكن وضع المثال لمعرفة السبب بالتحديد؟

السلام عليكم قم بوضع هذه الأكواد كما هي في أي فورمة تريدها فتتكون الفورمة مناسبة لأي شاشة مهما حاولت أن تقوم بعملية الـ Resizing Option Explicit Private Type CtrlProportions HeightProportions As Single WidthProportions As Single TopProportions As Single LeftPr…

السلام عليكم جزاك الله خيرا على هذه الأداة

لمسح البيانات من الكومبو بوكس أستخدم الكود التالي ComboBox1.Items.Clear

السلام عليكم قم بوضع الكود التالي بعد كود الحفظ في الفورمة رقم 2 Dim cmd As OleDbCommand = New OleDbCommand("SELECT Name,NCam,NBer,DBer,Dayr,Wil from tb2 order by ID ", con) DataAdapter = New OleDbDataAdapter(cmd) Dim builder As OleDbCommandBuilder = New OleDb…

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

السلام عليكم مثل ما قال لك الأخ najy_zl استخدام الصور بيستهلك مساحات كبيرة في قاعدة البيانات إنما عن طريق الكود السابق بتعرف رقم المسكلة وصيغتها ودي بيانات نصيه ممكن تحفظها في قاعدة البيانات بسهولة جدا وتستدعيها بسهولة أبضا

السلام عليكم قم بوضع الكود التالي في حدث الفورم لوود Private Sub Form_Load() If Dir(App.Path & "\data\db1.mdb") <> "" Then Set db = OpenDatabase(App.Path & "\data\db1.mdb") Set rs = db.OpenRecordset("sum1", 2) Else MsgBox "من فضلك تأكد من وجود قاعدة البيانات ف…

السلام عليكم ممكن تستخدم الكود التالي On Error GoTo a: 'Your Code Here Exit Sub a: MsgBox Err.Number MsgBox Err.Description

السلام عليكم ممكن تستفيد من الرابط التالي http://www.autoitscript.com/autoit3/docs/appendix/SendKeys.htm

السلام عليكم الكود يقوم بالبحث بدلالة رقم البطاقة لجعله بقوم بالبحث بالاسم قم بتغيير الحقل user_id بالحقل الدال على الأسم Dim rs_find As New ADODB.Recordset With rs_find If .State = adStateOpen Then .Close .CursorLocation = adUseClient .Open "select * from Tab…