• الإعلانات

    • فيصل الحربي

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

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

atefkhalf2004

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

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

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

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

2 عادي

عن atefkhalf2004

  • الرتبة
    عضو
  1. اين الكود حضرتك لم استطيع
  2. السيد الفاضل الاسماء معروضة في جريد  كالاتي م  الاسم     الدرجة       المجموعة 1   عاطف    12 2 علي       13  3  سبد      6 4  محمود     55 5 مصطفي  8   برجاء تقسيم  بحيث  يظهر بالجريد  كالتالي م  الاسم     الدرجة       المجموعة 1   عاطف    12             1 2 علي       13               1  3  سبد      6                2 4  محمود     55             2 5 مصطفي                       3  
  3. الاستاذ الفاضل لم افهم اي شيء برجاء عمل مثال بسيط
  4. السادة الافاضل لو عندي داتا جريد  بها اسماء م الاسم المحموعة عايز اقسمهم   الي عدد مجموعات  بحيث يكون النقص في اخر مجموعة مثلا لو العدد  17  وارغب في تقسيمهم الي 3 مجموعات يكونوا 6 6 5 اي يكون الرقم الظاهر في عمود المجموعة  الرقم 1  يظهر امام  اول  6  افراد  ثم  الرقم 2  امام  6 التالي ثم الرقم 3  امام اخر 5    شكرا
  5. نسخ جدول من قاعدة الي احري

    توصلت الي خذا الكود Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0 ;Jet OLEDB:Database Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh.mdb"         Using conn As New OleDbConnection(connect)             Using cmd As New OleDbCommand()                 cmd.Connection = conn                 cmd.CommandText = "SELECT * INTO [MS Access;Database Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh1.mdb].[student] FROM [student]"                 conn.Open()                 cmd.ExecuteNonQuery()             End Using         End Using         MsgBox("تم التسويه  بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "  ") لكن يعطي خطأ   Invalid argument.  
  6. كيف يمكن نسخ جدول من قاعدة الي اخري جملة الاتصال بالقاعدة الاولي  Dim objconn As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.OLEDB.4.0; data source =" & Application.StartupPath & "\salse.mdb") مسج الجدول القديم         If objconn.State = ConnectionState.Open Then objconn.Close()         Dim SavInto6 As New OleDb.OleDbCommand         SavInto6.Connection = objconn         SavInto6.CommandType = CommandType.Text         SavInto6.CommandText = "drop TABLE  items     "         objconn.Open()         SavInto6.ExecuteNonQuery()         objconn.Close()   اظهار مربع جواري           Dim openFileDialog1 As New OpenFileDialog         openFileDialog1.Filter = "Access|*.mdb"         openFileDialog1.FilterIndex = 1         openFileDialog1.RestoreDirectory = False           If openFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub         If openFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then             fileName = openFileDialog1.FileName         End If          جملة الاتصال بالقاعدة الثانية         Dim accConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source= '" & fileName & "' ")         SavInto6.Connection = objconn         SavInto6.CommandType = CommandType.Text         SavInto6.CommandText = "كيف انسخ الجدول من القاعدة الاولي الي الثانية "         objconn.Open()         SavInto6.ExecuteNonQuery()         objconn.Close()       شكرا
  7. استعلام مركب في الاكسس

    السيد الفاضل برجاء جملة ال  select    حتي  يظهر الاعداد
  8. استعلام مركب في الاكسس

    حاولت ارفع القاعدة لم استطع
  9. استعلام مركب في الاكسس

    If Conn.State = ConnectionState.Open Then Conn.Close()         'ds.Clear()         Dim ds6 As New DataSet         ds6.Clear()         Dim sqlstr6 As String = "select (select count (id) from student   where kind='ذكر') as Males, (select count (id) from student where kind='انثي') as Females "         Dim dt6 As New OleDbDataAdapter(sqlstr6, Conn)         dt6.Fill(ds6, sqlstr6)         Conn.Close()         MsgBox(ds6.Tables("").Rows(0).Item("Males").ToString)
  10. فجاة القاعدة لا تفتح

    hالسادة برجاء فتح القاعدة
  11. استعلام مركب في الاكسس

    لم ينفذ معي فكرت في حل اقسم الاستعلام حتي اصل الي الحل select (select count (id) from table1  where  kind='mal' ) as males, (select count(id) from talbe1 where kind='femail' ) as femals لكن لم يفي بالحل ما الحل
  12. استعلام مركب في الاكسس

    السادة الافاضل جملة select count تعد عدد السجلات كيف يتم عدد الذكور وايضا عدد الاناث وعدد الناجحين وعدد الراسبين وذلك في جملة واحدة select count (id) from table1 where kind="male select count (id) from table1 where kind="female select count (id) from table1 where kind="pass" select count (id) from table1 where kind="fale كيف يتم تجميع هذه الجمل في جملة واحدة حتي يتم طباعة التقرير او عرضهم في جريد شكرا
  13. فجاة القاعدة لا تفتح

    القاهدة salse (2).rar
  14. فجاة القاعدة لا تفتح

    كنت استخدم القاعدة  ضمن برنامج vb.net وفجاة اصبحت لا تعمل  
  15. شكرا كيف يتم عمل مصفوفة   خاصة عدد العناصر يمكن ان يتعير