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 & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & "')", con) con.Open() AddInto.ExecuteNonQuery() DataSet1.Clear() DataAdapter1.Fill(DataSet1, "Tab1") DataAdapter1.Update(DataSet1, "Tab1") con.Close() Dim AddInto2 As New OleDb.OleDbCommand("insert into Tab2 ([ID],[Name],[Phone],[DateInfo])values ('" & Label1.Text.Trim & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & "')", con) con.Open() AddInto2.ExecuteNonQuery() DataSet1.Clear() DataAdapter1.Fill(DataSet1, "Tab2") DataAdapter1.Update(DataSet1, "Tab2") con.Close() End Sub

السلام عليكم هذا ممكن عن طريق إضافة كود السابق ولكن من خلال برنامج التحزيم مثل 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 GSQLConnection.State <> ConnectionState.Open Then 'عندهااستدعي إجراء الاتصال العام من مديول الاتصال GeneralConnection() End If 'GDR.Close() If code_cost.Text = "" Then MsgBox("الرجاء ادخال كود العميل المراد البحث عنها ", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.OkOnly, "AutoConnect") code_cost.Focus() Else Try If GDR.IsClosed = False Then GDR.Close If rd.IsClosed = False Then rd.Close GSQLCmd.Parameters.Clear() GSQLCmd.CommandType = CommandType.Text GSQLCmd.CommandText = "select * from customer_Info where code_cost='" & code_cost.Text & "' and Branch_code= '" & Branch_code.Text & "'" ' بحث بشرطين GSQLCmd.CommandType = CommandType.Text Dim rd As SqlClient.SqlDataReader = GSQLCmd.ExecuteReader If rd.Read = True Then code_cost.Text = rd.GetValue(0) name_cost.Text = rd.GetValue(1) mobil.Text = rd.GetValue(2) Address.Text = rd.GetValue(3) Email.Text = rd.GetValue(4) Else MsgBox("هذا العميل غير موجود ", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.OkOnly, "AutoConnect") rd.Close() Exit Sub End If rd.Close() Catch exp As Exception MsgBox(exp.Message) End Try End If

السلام عليكم قم بوضع الكود التالي قبل كود البحث 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 LeftProportions As Single End Type Dim ProportionsArray() As CtrlProportions Sub InitResizeArray() Dim I As Integer On Error Resume Next ReDim ProportionsArray(0 To Controls.Count - 1) For I = 0 To Controls.Count - 1 With ProportionsArray(I) .HeightProportions = Controls(I).Height / ScaleHeight .WidthProportions = Controls(I).Width / ScaleWidth .TopProportions = Controls(I).Top / ScaleHeight .LeftProportions = Controls(I).Left / ScaleWidth End With Next I End Sub Sub ResizeControls() On Error Resume Next Dim I As Integer For I = 0 To Controls.Count - 1 With ProportionsArray(I) ' move and resize controls Controls(I).Move .LeftProportions * ScaleWidth, _ .TopProportions * ScaleHeight, _ .WidthProportions * ScaleWidth, _ .HeightProportions * ScaleHeight End With Next I End Sub 'Form initialize event Private Sub Form_Initialize() InitResizeArray End Sub 'Form resize event Sub Form_Resize() ResizeControls End Sub وهذا رابط مثال على ذلك http://www.4shared.com/file/FPcXpcyv/resize_tools.html

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

لمسح البيانات من الكومبو بوكس أستخدم الكود التالي 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 OleDbCommandBuilder(DataAdapter) con.Open() DataSet1 = New DataSet DataAdapter.Fill(DataSet1, "Tb2") con.Close()

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