atefkhalf2004

اين الكود حضرتك لم استطيع

السيد الفاضل الاسماء معروضة في جريد  كالاتي م  الاسم     الدرجة       المجموعة 1   عاطف    12 2 علي       13  3  سبد      6 4  محمود     55 5 مصطفي  8   برجاء تقسيم  بحيث  يظهر بالجريد  كالتالي م  الاسم     الدرجة       المجموعة 1   عاطف    12             1 2 علي       13               1  3  سبد      6                2 4  محمود     55             2 5 مصطفي                       3  

الاستاذ الفاضل لم افهم اي شيء برجاء عمل مثال بسيط

السادة الافاضل لو عندي داتا جريد  بها اسماء م الاسم المحموعة عايز اقسمهم   الي عدد مجموعات  بحيث يكون النقص في اخر مجموعة مثلا لو العدد  17  وارغب في تقسيمهم الي 3 مجموعات يكونوا 6 6 5 اي يكون الرقم الظاهر في عمود المجموعة  الرقم 1  يظهر امام  اول  6  افراد  ثم  الرقم 2  امام  6 التالي ثم الرقم 3  امام اخر 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.  

كيف يمكن نسخ جدول من قاعدة الي اخري جملة الاتصال بالقاعدة الاولي  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()       شكرا

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

حاولت ارفع القاعدة لم استطع

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)

hالسادة برجاء فتح القاعدة

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

السادة الافاضل جملة 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 كيف يتم تجميع هذه الجمل في جملة واحدة حتي يتم طباعة التقرير او عرضهم في جريد شكرا

القاهدة salse (2).rar

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

شكرا كيف يتم عمل مصفوفة   خاصة عدد العناصر يمكن ان يتعير