منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

(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

جرب الكود بالطريقة التالية

مشكوووور جدا .... سوف نجرب

(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(sqlstr, conn)
        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") 


---

عندي لك كود سهل البوسيفي ليبيا بنغازي