تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ملأ DATAGRID بالمعلومات عن طريق DO WHILE
#1
لسلام عليكم

كيف يمكن ان أملأ DATAGRID صف بعد صف بالاعتماد على نتائج الاستعلام وباستخدام DO WHILE    LOOP
انا لدي  قاعدة بيانات SQL SERVER  و VB.NET 2010 ما اريده هو ان استعلم عن حقل معين في جدول قاعدة البيانات في حالة تساوي قيمته مع  TEXTBOX وفي حالة تحقق الشرط يتم اضافة هذا القيد الى DATAGRID ومن ثم العودة الى تنفيذالاستعلام  السابق حيث ان قيمة TEXTBOX  سوف تتغير بناءً على معلومات القيد الذي تم اضافته لل DATAGRID وفي حالة تحقق الشرط في المرة الثانية سوف يتم اضافة الصف الثاني لل DATAGRID وهكذا الى ان نصل الى نهاية حلقة التكرار  . انا قمة باستخدام DATATABLE  عدد 2 و DATAROW كما في الطريقة ادناه ولم تنجح معي ارجو المساعدة وشكراً

 DOW WHILE TEXTBOX2.TEXT<> ""
SQLSTR=" SELECT * FROM tABLE WHERE FILED1='" & TEXTBOX1.TEXT & "'"
DIM DP AS NEW SQLDATAADPTER(SQLSTR,CON)
DIM D1 AS NEW DATA TABLE
DIM D2 AS NEW DATATABLE
DIM DR AS DATAROW
DP.FILL(D1)
DR=D1.ROW(0)
D2.IMPORTROW(DR)

LOOP
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDb.OleDbConnection(str)

 

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       d.ColumnCount = 2
       d.Columns(0).Name = "N"
       d.Columns(1).Name = "Age"

       Dim sql As String = "select * from tb where age between " & Val(t1.Text) & " and " & Val(t2.Text) & ""
       Dim cm As New OleDb.OleDbCommand("", con)
       cm.Parameters.Clear()
       cm.CommandText = sql

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim dr As OleDb.OleDbDataReader = cm.ExecuteReader

       If dr.HasRows Then
           Do While dr.Read
               Dim row As String() = New String() {dr.Item("tn"), dr.Item("age")}
               d.Rows.Add(row)
           Loop
       End If
   End Sub
End Class

هذي فكرة اعمار اشخاص يبحث عن من اعمارهم بين 20 و 40 مثلا
ولو احببت البحث فقط عن من اعمارهم 40 يمكنك التعديل بالكود بكل سهولة
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: العزابي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ابحث عن كود يقوم بالبحث داخل DataGridView عن طريق القيم داخل list box يرجى المساعدة moh61 4 860 04-09-15, 07:40 AM
آخر رد: khodor1985
  [سؤال] كيف اعرف اسم الجدول عن طريق DataTable سعود 2 292 29-08-15, 09:23 PM
آخر رد: أبو عمر
  حفظ السجلات عن طريق الداتا قريد فيو aftfm 2 1,233 06-02-15, 11:46 PM
آخر رد: ahmed saba
  ارجو ان تنيروا لى طريق البداية ahmed fathy 2 546 14-06-14, 10:02 AM
آخر رد: ahmed fathy
Sad [سؤال] ربط قاعدة بينات الاكسس بالفجوال عن طريق الكود عمار العيثاوي 2 657 07-05-14, 10:51 PM
آخر رد: عمار العيثاوي
  [سؤال] سؤال حول طباعة محتويات ال DataGrid mozafar 1 1,353 22-02-14, 05:48 AM
آخر رد: Genius Live
  السلام عليكم الموضوع كود البحث بالاسم عن طريق التكست الهيثم007 0 363 12-02-14, 03:45 AM
آخر رد: الهيثم007
  [SQL] موضوع ربط قاعدة البينات عن طريق سيرفر موقع shado1796 16 5,097 09-12-13, 01:20 AM
آخر رد: shado1796
  انشاء قاعدة بيانات SQL عن طريق الكود aiman 5 1,380 07-12-13, 04:11 PM
آخر رد: aiman
  انشاء نسخة احتياطية لقاعدة بيانات sql عن طريق الشبكة aiman 4 1,247 07-12-13, 11:08 AM
آخر رد: amgadtamer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم