• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Mady-AGC

اعضاء
  • عدد المشاركات

    193
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

43 عادي

عن Mady-AGC

  • الرتبة
    عضو

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : مصر
  • اهتمامات Programming
    Football

أحدث الزائرين لملفلك الشخصي

7,832 زياره للملف الشخصي
  1. كيف يتم تسجيل ضغطات لوحة المفاتيح والماوس في ملف ؟
  2. حفظ نفس المعلومات في جدولين

    السلام عليكم استخدم الكود التالي 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
  3. السلام عليكم هذا ممكن عن طريق إضافة كود السابق ولكن من خلال برنامج التحزيم مثل Setup Factory 9.0 ليقوم بالتأكد إن كانت قاعدة البيانات موجودة عند التنصيب يقوم بحذفها قبل التنصيب
  4. السلام عليكم هذا هو الكود rs.MoveFirst rs.Find "name='" & Combo1.Text & "'", , adSearchForward, 1 Text1.Text = rs("ID") وهذا مثال على ذلك http://www.4shared.com/file/D7QgW0C9/Combo.html
  5. السلام عليكم قومي بتشغيل كل سيرفس الأوركل من Control Panel > Adminstratvie Tools> Servies
  6. مشكلة اثناء البحث بالكود

    السلام عليكم قم بوضع الكود التالي قبل كود البحث 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
  7. مشكلة اثناء البحث بالكود

    السلام عليكم قم بوضع الكود التالي قبل كود البحث If rd.IsClosed = False Then rd.Close
  8. [تنبيه - عنوان غير مناسب : ]disconnected mode update

    السلام عليكم أخي هذه المشكلة ليس لها حل أبدً إلا استخدام الوضع المتصل وهذه المشكلة تحدث عند تحديث البيانات بعد عملية التعديل أو الحذف وذلك في الوضع المنفصل وذلك مع قواعد بيانات أوركل فقط أما أي قاعدة بيانات أخرى لا توجد بها هذه المشكلة
  9. السلام عليكم قم بتشغيل كل السيرفس الخاصة ب Oracle عن طريق Control Panel > Administrative Tools > Services ثم قم بعمل Start لكل السيرفس اللي بيتدأ ب Oracle
  10. السلام عليكم إن كان هناك حقل من نوع ترقيم تلقائي فلا توجد له برمجة ويجب تجاهله تماما عند الحفظ هل يمكن وضع المثال لمعرفة السبب بالتحديد؟
  11. السلام عليكم قم بوضع هذه الأكواد كما هي في أي فورمة تريدها فتتكون الفورمة مناسبة لأي شاشة مهما حاولت أن تقوم بعملية الـ 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
  12. السلام عليكم جزاك الله خيرا على هذه الأداة
  13. لمسح البيانات من الكومبو بوكس أستخدم الكود التالي ComboBox1.Items.Clear
  14. السلام عليكم قم بوضع الكود التالي بعد كود الحفظ في الفورمة رقم 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()
  15. السلام عليكم ممكن ترفع البرنامج للتعديل عليه