كيف اسند الداتا قريد الى مصفوفة

اخواني الافاضل

هل السؤال صعب ام غير واضح

صار لي ما يقارب اسبوعين ولم اجد رد

يا ليت الموضوع بقى في قسم الفيجوال دوت نت

كان ممكن نجد حل

اخي العزيز

...اسف على التاخير ....انا حملت الproject ولكنه مكتوب بالVB....وانا استخدم C#>>>

>>ولكن لاتزعل ..بس ضع الكود لل GetDate...وإن شاء الله تنحل

bsbs كتب:

اخي العزيز

...اسف على التاخير ....انا حملت الproject ولكنه مكتوب بالVB....وانا استخدم C#>>>

>>ولكن لاتزعل ..بس ضع الكود لل GetDate...وإن شاء الله تنحل

الله يعطيك العافية اخي العزيز

بالنسبة لكود GetData فهو موجود في المشروع

و لك جزيل الشكر

اخ ابو طلال.....

قصدي تضع الكود لقرائته ...لأنه لا استطيع تحميله

...وإن شاء الله تنحل

اشكرك اخي العزيز على تجاوبك معي

واسال الله لك التوفيق

كود الاتصال بالقاعدة وجلب البيانات ثم وضعها في مصفوفة

Private Function GetData() As Object(,)

Dim Conn As OleDbConnection

Dim Cmd As OleDbCommand

Dim DRdr As OleDbDataReader

Dim Data(,) As Object

Dim I As Long

Dim J As Long

Conn = New OleDbConnection



Try

Dim DBPATH As String = "\data.mdb"

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & DBPATH

Conn.Open()



Cmd = New OleDbCommand

Cmd.Connection = Conn

Cmd.CommandType = CommandType.Text

Cmd.CommandText = "SELECT * FROM names ;"

DRdr = Cmd.ExecuteReader



ReDim Data(1, 4)

For I = 0 To 1

If Not DRdr.Read Then Exit For

For J = 0 To 4

Data(I, J) = DRdr.GetValue(J)

Next J

Next

GetData = Data



Catch ex As OleDbException

MsgBox(ex.Message)

Finally

Conn.Close()

Conn = Nothing

End Try

End Function

كود اسناد الداتا قريد الى المصفوفة

 DataGridView1.DataSource = GetData()

طلب

ارجو من الاخوة المشرفين اعادة الموضوع الى قسم الفيجوال نت

او السماح لي بطرحه مرة اخرى في قسم الفيجوال نت

تحياتي