• الإعلانات

    • فيصل الحربي

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

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

قصة شموخ

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

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

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

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

1 عادي

عن قصة شموخ

  • الرتبة
    عضو جديد
  1.    شكرا أخوي حسام الشامي   الصراحة أنت أنقذتني ممنونة لك جداً . . ويزاك الله كل خير أخوي وعساه في ميزان حسناتك     انتهت المشكلة =]
  2. السلام عليكم ورحمة الله وبركاته   إخواني وخواتي المبرمجين شحالكم ؟   أنا طالبتنكم العون . . وبإذن الله ألاقي الحل الأمثل عندكم . .   أنا اشتغل على برنامج في الفيجوال بيسك 2008   وصار لي فترة اشتغل فيه . .   واليوم كنت ابغي انسق ترتيب الفورمات بحيث اخليها بالتسلسل ( F1 , F2 , F3 , .....ex )   كنت اغير الاسم من (rename) عادي . . بس ما كنت اغير الامتداد عن يخترب شي   وبالغلط غيرت امتداد فورم واحد حطيته (VB) بس بالكبيتل . .   وانحذف عني ا لفورم كامل وطلع لي الفورم كأنه يديد   فبندت البرنامج وطلع لي الحفظ واخترت لاء بدال نعم عبالي بس عشان اخر فورم   الفاجعة يوم فتحت البرنامج كل الفورمات اللي سويت لها اعادة تسمية طلعت لي بالمثلث الاصفر وما ترضى تفتح   مثل الصورة . .   طبعا الملفات اللي ما سويت لها اعادة تسمية ما تأثرت       واسماء الفورمات رجعت للاسم السابق بس لما افتح فولدر البرنامج تكون بالاسم المتغير يعني الفورم (FT12) أنا غيرته ل (F2) بس يطلع بالبرنامج جي (FT12) لكن بالفولدر يطلع جي (F2)       وانا ما اروم اعيد البرنامج وتعبانه عليه وايد والصراحة صحت على اللي طحت فيه :(      لو حد عنده حل او يعرف كيف استرجع البرنامج يا ريت يبلغني   وبكون ممنونه لكم . . :(  :(  :( 
  3. بحث متعدد في الداتا قريد فيو

    أخي تأكدت من الداتا تايب جميعها من نوع (تكست) . .
  4. بحث متعدد في الداتا قريد فيو

    . . أعتذر فقد وضعت الكود السابق الذي كنت أجربه ، هذا الكود الحالي . . Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button1.Click If Me.TextBox1.Text = "" Then Exit Sub Dim cm1 As New OleDb.OleDbCommand(SQLstr, newConnection) Dim db1 As New OleDbDataAdapter(SQLstr, newConnection) Dim ds As New DataSet cm1.Connection = newConnection cm1.CommandType = CommandType.Text cm1.CommandText = ("Insert into T1 (ID,M_Name,Age,BOD,Gender,Mobile) (select ID,M_Name,Age,BOD,Gender,Mobile from Tmuna where ID = '" & TextBox1.Text & "')") newConnection.Open() cm1.ExecuteNonQuery() newConnection.Close() ' Read Data From New Table (tb1) db1 = New OleDbDataAdapter("select * from T1", newConnection) newConnection.Open() ds = New DataSet db1.Fill(ds, "T1") newConnection.Close() DataTable1DataGridView.DataSource = ds.Tables("T1") End Sub
  5. بحث متعدد في الداتا قريد فيو

    جميعها تكست =) وهذا الكود المستخدم في البحث . . * كود عملية البحث . . (موجود في الزر ) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button1.Click Static m As Integer = 0 If Me.TextBox1.Text = "" Then Exit Sub SQLstr = "SELECT * FROM Tmuna WHERE ID = '" & TextBox1.Text & "'" newConnection.Open() Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newConnection) DataAdapter1.Fill(DataSet1, "Tmuna") newConnection.Close() DataTable1DataGridView.DataSource = DataSet1 DataTable1DataGridView.DataMember = "Tmuna" Me.Button1.Enabled = False If Me.BindingContext(DataSet1, "Tmuna").Count = 0 Then MsgBox("الرجاء التأكد من الرقم ") Exit Sub End If End Sub * كود المسح . . (موجود في التكست جينج) Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Me.Button1.Enabled = True SQLstr = "" DataSet1.Clear() End Sub
  6. بحث متعدد في الداتا قريد فيو

    لا إله إلا الله . . محمد رسول الله
  7. بحث متعدد في الداتا قريد فيو

    آممم أخوي شكرا على التوضيحَ أنا جربت الكود بس ما ضبطَ يمكن لاني استخدم الوضع المنفصل يطلع لي خطأ في جملة (الإنسرت) Savecommand.CommandText = "INSERT INTO T1(ID, M_Name, Pass, Age, BOD, Gender, Mobile) (select ID, M_Name, Pass, Age, BOD, Gender, Mobile from Tmuna where ID = ('" & TextBox1.Text & "') " لو في حد يعرفَ يعدل الكود يخبرني وين الخلل وشكراً
  8. بحث متعدد في الداتا قريد فيو

    أخوي شكرا على الكود ، لكن الظاهر إني غلطت بالشرح شويَ . . أنا بكلمة جدول ما أقصد جدول في الداتا بيس / كلمة جدول كنت اقصد فيها داتا قريد فيو بس بالسرعه كتبت جدول فيمكن تم فهم سؤالي غلط وشكراً . . [ . . انا ادخل رقم الشخص في التكست بوكس واضغط بحث فتطلع لي بيانات الشخص في الداتا قريد فيو لكن الفكرة اللي في بالي وابغي انفذها اني اسوي اكثر عن بحث وكلهم يطلعون في نفس الداتا قريد فيو ، يعني : أول مره أدخل رقم ( 1 ) في التكست بوكس ولما اضغط بحث تطلع بيانات الشخص هذا في اول سطر في الداتا قريد فيو بعدين امسح رقم ( 1 ) وادخل رقم ( 2 ) ولما اسوي بحث لازم تطلع البيانات في السطر الثاني من الداتا قريد فيو بدون لا تنحذف بيانات رقم ( 1 ) من الداتا قريد فيو فيكون جي عندي في الداتا قريد فيو سطرين السطر الاول لبيانات الشخص رقم ( 1 ) والسطر الثاني لبيانات الشخص رقم ( 2 ) وجي تتكرر العملية يعني اني اضيف ثلاثة واربعة وممكن عشر اشخاص في الداتا قريد فيو بدون لا افقد معلومات اي شخص . . ] غيرت كلمة جدولَ وأتمنى يكون شرحي وضح لكم أكثر . . وان شاء الله الصور توضح والسموحه
  9. بحث متعدد في الداتا قريد فيو

    * أنا ما استخدم الـ TableAdapter وشكراً
  10. السلام عليكم ورحمة الله وبركاته أخواني شحالكم ؟ عندي استفسار ما لقيت له حل لا بالنت ولا بالمنتدى واطلب مساعدتكم فيه.. عندي قاعدة بيانات أكسس ، وعندي فورم يحتوي على تكست بوكس وبوتون بحث في قاعدة البيانات و داتا قريد فيو ، انا ادخل رقم الشخص في التكست بوكس واضغط بحث فتطلع لي بيانات الشخص في الداتا قريد فيو لكن الفكرة اللي في بالي وابغي انفذها اني اسوي اكثر عن بحث وكلهم يطلعون في نفس الجدول ، يعني : أول مره أدخل رقم ( 1 ) في التكست بوكس ولما اضغط بحث تطلع بيانات الشخص هذا في اول سطر في الجدول(الداتا قريد فيو) بعدين امسح رقم ( 1 ) وادخل رقم ( 2 ) ولما اسوي بحث لازم تطلع البيانات في السطر الثاني من الجدول بدون لا تنحذف بيانات رقم ( 1 ) من الجدول فيكون جي عندي في الجدول سطرين السطر الاول لبيانات الشخص رقم ( 1 ) والسطر الثاني لبيانات الشخص رقم ( 2 ) وجي تتكرر العملية يعني اني اضيف ثلاثة واربعة وممكن عشر اشخاص في الجدول بدون لا افقد معلومات اي شخص وكل عملية البحث تستوي في نفس التكتست بوكس ونفس الزر في صورة توضيحية للمثال المقصود وأتمنى أكون وفيت بالشرح =) أتمنى تساعدوني للضرورة القصوى ولكم كل الشكر
  11. سؤال عن BackgroundImage

    السلام عليكم ؛ أختيّ أنا طرحت مثل هالموضوع ولقيت الحل بنفس الكود تفضلي رابط موضوعيَ . . الموضوعَ هنـآ والسموحهَ
  12. خلل في خلفية الفورم

    :) مشكورين أخواني وايد ساعدتونيَ والسموحه تعبتكم وياي
  13. خلل في خلفية الفورم

    أخوي جربت الكود اللي حطيته بسَ يطلع لي خط ازرق تحت ImageAttributes و WrapMode ف الظاهر ان نسختك vb2010 أما أنا vb2008 ع العموم صورت لك الشاشه وما عندي ضمن خيارات الـ image خيار ImageAttributes والسموحه منكَ عندي استفسار ثاني [ الصورة عندي في الريسورس / فهل بس تكتب لي مسار الصورة كيف بيكون ] وشكراً
  14. خلل في خلفية الفورم

    مشكور أخوي على الحل ويزاك الله خير بس في نقطه وحده . . الصورة أنا عندي حجمها متوسط يعني ما تملأ الفورم كامل وأنا اباها تتكرر بحيث تملأ باقي الفورم فهل في كود أروم أضيفه عشان هالموضوع (يعني نحن من خصائص الصورة لما نحطيها للخلفية أختار Tile لخاصية Backgroung Image Layout فتتكرر الصورة لملأ الفورم كامل دون ترك فراغ) أتمنى تكن فهمت قصدي وشكراً
  15. خلل في خلفية الفورم

    السموحه أخوي نسيت أقول اني مجربة هالطريقه يعني لما الخاصيتين Right ToLeftLayout و RightToLeft تكون TRUE ما تطلع أما لما وحدة منهم true والثانية false تطلع الصورة . . بس أنا أحتاج إن الخاصيتين يكونون true يعني الاثنين اريدهم من اليمين فما الحل .؟ّ! ألا يوجد حل مختلف .؟! والسموحه