تقييم الموضوع :
  • 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 يمكنك التعديل بالكود بكل سهولة
الرد }}}
تم الشكر بواسطة: العزابي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb طلب : مشروع الارشفة الالكترونية للوثائق و المستندات عن طريق الماسح الضوئي قاموس نفر 0 1,243 11-01-22, 02:21 AM
آخر رد: قاموس نفر
  تشغيل الsql server على جهاز متصل بالسيرفر عن طريق vpn bassant 1 1,079 20-09-21, 11:10 AM
آخر رد: bassant
  [سؤال] كيفية الوصول الى قاعدة بيانات mysql موجودة على الكمبيوتر المحلي xammp عن طريق النت alfaiz678 4 1,883 25-06-21, 09:46 AM
آخر رد: alfaiz678
  سؤال : طريقة ربط الفيجوال بيسك بقاعدة بيانات mysql عن طريق صفحة php وسيطة alfaiz678 6 4,020 02-10-20, 07:42 AM
آخر رد: alfaiz678
  اريد عمل تواصل بين الادارات عن طريق ال SQL Serverو الدوت نت الحزين اوى 1 1,387 02-07-20, 09:47 AM
آخر رد: kiki
  ابحث عن كود يقوم بالبحث داخل DataGridView عن طريق القيم داخل list box يرجى المساعدة moh61 4 3,469 04-09-15, 07:40 AM
آخر رد: khodor1985
  [سؤال] كيف اعرف اسم الجدول عن طريق DataTable سعود 2 1,987 29-08-15, 09:23 PM
آخر رد: أبو عمر
  حفظ السجلات عن طريق الداتا قريد فيو aftfm 2 3,952 06-02-15, 11:46 PM
آخر رد: ahmed saba
  ارجو ان تنيروا لى طريق البداية ahmed fathy 2 2,047 14-06-14, 10:02 AM
آخر رد: ahmed fathy
Sad [سؤال] ربط قاعدة بينات الاكسس بالفجوال عن طريق الكود عمار العيثاوي 2 2,301 07-05-14, 10:51 PM
آخر رد: عمار العيثاوي

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


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