+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] أين المشكلة في هذا الكود ؟؟ لا استطيع عرض بيانات الجدول في الداتا قريد فيو (/showthread.php?tid=10710)
أين المشكلة في هذا الكود ؟؟ لا استطيع عرض بيانات الجدول في الداتا قريد فيو - أبو يزن - 18-11-14
السلام عليكم ورحمة الله وبركاته
لا اعلم اين المشكلة في هذا الكود لأنه نفس الكود في فورم اخر وتم عرض بيانات الجدول ولكن في هذا الفورم استطيع عرض بيانات الجدول الاخر في الداتا قريد فيو
حاولت اكثر من مرة ومسحت الكود واعدت كتابته نفس المشكلة مع العلم ان ملف القاعدة موجود في مجلد البرنامج ومتأكد من اسم الجدول
PHP كود :
Imports System.Data.OleDb
Imports System.Data
Public Class frmitem
Dim dt As Date = Date.Now()
Dim CnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=storemng.accdb"
Dim Conn As New OleDbConnection(CnString)
Dim DataSet1 As New DataSet
Dim DataAdapter1 As OleDbDataAdapter
Dim CMD As New OleDbCommand
Dim SQLstr As String = "SELECT * FROM products"
Private Sub frmitem_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txtid.DataBindings.Add("text", DataSet1, "products.id")
txtitemname.DataBindings.Add("text", DataSet1, "products.namep")
ComboBox1.DataBindings.Add("text", DataSet1, "products.unitp")
txtQ.DataBindings.Add("text", DataSet1, "products.nowp")
txtnote.DataBindings.Add("text", DataSet1, "products.note")
'الداتا قريد فيو
Me.CenterToScreen()
conn.Open()
Dim daDataAdapter1 As New OleDbDataAdapter(SQLstr, conn)
DataAdapter1.Fill(DataSet1, "products")
conn.Close()
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "products"
DataGridView1.Refresh()
RE: أين المشكلة في هذا الكود ؟؟ لا استطيع عرض بيانات الجدول في الداتا قريد فيو - raoe-041 - 18-11-14
اخي الكريم غير جملة الاتصال الى .......
PHP كود :
("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\Dataset1_db.accdb")
لعلها تنفع .......
و تاكد من
DataGridView1.DataSource =
و ما هو اسم قاعدة البيانات عندك ........
RE: أين المشكلة في هذا الكود ؟؟ لا استطيع عرض بيانات الجدول في الداتا قريد فيو - سعود - 18-11-14
ضع اكواد ربط الادوات بعد ملء الدااتاست
RE: أين المشكلة في هذا الكود ؟؟ لا استطيع عرض بيانات الجدول في الداتا قريد فيو - الوليد ☺ - 18-11-14
السلام عليكم ورحمة الله
أعتقد الحل كما ذكره أخونا سعود - مسألة ترتيب العمليات
لا أدري لم استخدمت DataBindings طالما عملك بالكود وليس المعالج
هذه طريقة من هذا المنتدى بدون استخدام DataBindings وإن شاء الله تمام
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim CnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=storemng.accdb"
Private Sub frmitem_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Using Conn As New OleDbConnection(CnString)
Using da As New OleDbDataAdapter(" SELECT * FROM [products] ", Conn)
Dim dt As New DataTable
If da.Fill(dt) > 0 Then
Dim row As DataRow = dt.Rows(0)
Me.txtid.text = row("id")
Me.txtitemname.text = row("namep")
Me.ComboBox1.text = row("unitp")
Me.txtQ.text = row("nowp")
Me.txtnote.text = row("note")
Me.DataGridView1.DataSource = dt
End If
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
RE: أين المشكلة في هذا الكود ؟؟ لا استطيع عرض بيانات الجدول في الداتا قريد فيو - أبو يزن - 19-11-14
الله يسعدكم
ماقصـرتوا تم الحل واتضح ان المشكلة كانت في صياغة الأكود قمت بإعادة كتابتها بدقة وتمت ولله الحمد
اشكر لكم سعيكم للخير وجزاكم الله به خيرا