تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية التعامل مع الdataset في الوضع المنفصل في الفيجوال البيسك 2010
#1
Exclamation 
السلام عليكم ورحمة اللع وبركاته
بالله ا للي عندة حل لمشكلتي ينصحني 
انا ننفد في هدا الكود ولم اجد اي نتيجة في ال textbox هل هدا خطا مني او اني لم اعرف مكتبة ما المشكلة
وشكرا

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Public constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\mydata"
    Public conn As New OleDbConnection(constr)
    Public sqlstr As String = "select * from table1"
    Public dataset1 As New DataSet
    Dim dataadapter1 As OleDbDataAdapter
    Dim dt As New DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  DataBindings.Clear()
        DataSet1.Clear()


        conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
        DataAdapter1.Fill(DataSet1, "Table1")
        conn.Close()
        On Error Resume Next
        TextBox1.DataBindings.Add("Text", dataset1, "Table1.Name")
        TextBox2.DataBindings.Add("Text", dataset1, "Table1.City")
        TextBox3.DataBindings.Add("Text", dataset1, "Table1.mobile")

    End Sub
End Class
الرد }}}
تم الشكر بواسطة:
#2
(15-05-17, 07:01 PM)moh_g كتب : السلام عليكم ورحمة اللع وبركاته
بالله ا للي عندة حل لمشكلتي ينصحني 
انا ننفد في هدا الكود ولم اجد اي نتيجة في ال textbox هل هدا خطا مني او اني لم اعرف مكتبة ما المشكلة
وشكرا

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Public constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\mydata"
    Public conn As New OleDbConnection(constr)
    Public sqlstr As String = "select * from table1"
    Public dataset1 As New DataSet
    Dim dataadapter1 As OleDbDataAdapter
    Dim dt As New DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  DataBindings.Clear()
        DataSet1.Clear()


        conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
        DataAdapter1.Fill(DataSet1, "Table1")
        conn.Close()
        On Error Resume Next
        TextBox1.DataBindings.Add("Text", dataset1, "Table1.Name")
        TextBox2.DataBindings.Add("Text", dataset1, "Table1.City")
        TextBox3.DataBindings.Add("Text", dataset1, "Table1.mobile")

    End Sub
End Class


جرب الكود بالطريقة التالية
PHP كود :
       Dim DataAdapter1 As New OleDbDataAdapter(sqlstrconn)
 
       DataAdapter1.Fill(dataset1)
 
       conn.Close()
 
       On Error Resume Next
        TextBox1
.DataBindings.Clear()
 
       TextBox2.DataBindings.Clear()
 
       TextBox3.DataBindings.Clear()

 
       TextBox1.DataBindings.Add("Text"dataset1.Tables(0), "Name")
 
       TextBox2.DataBindings.Add("Text"dataset1.Tables(0), "City")
 
       TextBox3.DataBindings.Add("Text"dataset1.Tables(0), "mobile"
الرد }}}
تم الشكر بواسطة: moh_g , moh_g
#3
مشكوووور جدا .... سوف نجرب
الرد }}}
تم الشكر بواسطة: Adrees
#4
(15-05-17, 07:56 PM)Adrees كتب :
(15-05-17, 07:01 PM)moh_g كتب : السلام عليكم ورحمة اللع وبركاته
بالله ا للي عندة حل لمشكلتي ينصحني 
انا ننفد في هدا الكود ولم اجد اي نتيجة في ال textbox هل هدا خطا مني او اني لم اعرف مكتبة ما المشكلة
وشكرا

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Public constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\mydata"
    Public conn As New OleDbConnection(constr)
    Public sqlstr As String = "select * from table1"
    Public dataset1 As New DataSet
    Dim dataadapter1 As OleDbDataAdapter
    Dim dt As New DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  DataBindings.Clear()
        DataSet1.Clear()


        conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
        DataAdapter1.Fill(DataSet1, "Table1")
        conn.Close()
        On Error Resume Next
        TextBox1.DataBindings.Add("Text", dataset1, "Table1.Name")
        TextBox2.DataBindings.Add("Text", dataset1, "Table1.City")
        TextBox3.DataBindings.Add("Text", dataset1, "Table1.mobile")

    End Sub
End Class


جرب الكود بالطريقة التالية
PHP كود :
       Dim DataAdapter1 As New OleDbDataAdapter(sqlstrconn)
 
       DataAdapter1.Fill(dataset1)
 
       conn.Close()
 
       On Error Resume Next
        TextBox1
.DataBindings.Clear()
 
       TextBox2.DataBindings.Clear()
 
       TextBox3.DataBindings.Clear()

 
       TextBox1.DataBindings.Add("Text"dataset1.Tables(0), "Name")
 
       TextBox2.DataBindings.Add("Text"dataset1.Tables(0), "City")
 
       TextBox3.DataBindings.Add("Text"dataset1.Tables(0), "mobile"

عندي لك كود سهل البوسيفي ليبيا بنغازي
الرد }}}
تم الشكر بواسطة: moh_g , moh_g
#5
Thumbs Up 
احسنت تم التعامل مع المشكلة 

ولك جزيل الشكر
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 206 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 149 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 320 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,119 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 303 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية ربط ماكينة الدفع ببرنامج الكاشير ؟ osamaelmaghraby 3 317 26-12-23, 11:53 PM
آخر رد: osamaelmaghraby
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,815 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  كيفية رسم بيان دالة رياضية؟ الخير19 6 408 23-12-23, 03:36 PM
آخر رد: الخير19
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 664 14-12-23, 12:07 PM
آخر رد: asmarsou

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


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