دخول

**moh_g** · 15-05-17, 07:01 PM

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

**Adrees** · 15-05-17, 07:56 PM

(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") 

**moh_g** · 15-05-17, 08:42 PM

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

**slk**

(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")

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

**moh_g** · 16-05-17, 06:50 PM

احسنت تم التعامل مع المشكلة

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

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	فائدة بخصوص التعامل مع علامات التنصيص مع {سؤال}	justforit	4	292	02-11-25, 11:19 PM آخر رد: justforit
	كيفية منع ظهور الأخطاء من إعدادات البيسيك	mmaalmesry	2	856	29-08-25, 10:30 AM آخر رد: mmaalmesry
	كيفية جلب أسماء الأعمدة بجدول من جداول sql	heem1986	2	750	17-08-25, 09:15 PM آخر رد: heem1986
	كيفية حفظ إعدادات البرنامج بحيث لا تتغير	أحمد إبراهيم سعد	4	3,004	06-08-25, 06:34 PM آخر رد: Taha Okla
	مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك	ahmedfa71	13	2,264	09-07-25, 11:24 PM آخر رد: أبو خالد الشكري
	كيف يمكن تحويل ملف تنفيذى الى فيجوال بيسك 2010	walkady	2	784	07-02-25, 07:57 PM آخر رد: الورد2
	[مشروع] مطلوب برنامج نظام صيدليه بالفيجوال بيسك 2010	May-5	13	10,794	07-02-25, 07:55 PM آخر رد: الورد2
	[سؤال] كود قاعدة بيانات visual basic 2010 express	KHALED987	1	513	25-01-25, 12:39 PM آخر رد: Kamil
	كيفية احتساب الفرق بين تاريخين بناء على عدد معين	مصمم هاوي	2	555	15-01-25, 02:02 PM آخر رد: مصمم هاوي
	كيفية التعامل مع inputbox في فيجوال ستوديو	أسامة حسين	4	3,516	14-01-25, 02:04 AM آخر رد: أبو خالد الشكري