السلام عليكم
استخدمت هذا الكود في عدة واجهات و بنفس التطبيق لكن هذه المرة يظهر الخطأ التالي ولم أفهم حله
شكرا لتجاوبكم
المرفقات
قال رسول الله صلى الله عليه و سلم :
عبادة في الهرج كهجرة إلي
وقال أيضاً :
من عيّر أخاه بذنب لم يمت حتى يفعله
أو كما قال
[تنبيه : عنوان غير مناسب]هذه الرسالة
flawer كتب:السلام عليكم
استخدمت هذا الكود في عدة واجهات و بنفس التطبيق لكن هذه المرة يظهر الخطأ التالي ولم أفهم حله
شكرا لتجاوبكم
وعليكم السلام،
هل بالإمكان عرض معلومات الاتصال (ConnectionString)؟
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
السلام عليكم ورحمه الله وبركاته
تأكدي من ان المتغير الذي يحمل قيمه ال ConnectionString على الصوره التاليه "Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=YourDB.mdb"
.:: Wish to become better and better ::.
Public strConnSlave As String = "Provider = Microsoft.Jet.Oledb.4.0;Data Source =" & gsPathDataSlave & ";Jet OLEDB:Database Password= " & gstrPassWord & ";"
قال رسول الله صلى الله عليه و سلم :
عبادة في الهرج كهجرة إلي
وقال أيضاً :
من عيّر أخاه بذنب لم يمت حتى يفعله
أو كما قال
flawer كتب:
Public strConnSlave As String = "Provider = Microsoft.Jet.Oledb.4.0;Data Source =" & gsPathDataSlave & ";Jet OLEDB:Database Password= " & gstrPassWord & ";"
مرحباً
بما أن مسار قاعدة البيانات (DataSource) متغيّر فلايمكنني الجزم حتى اراه، ولكن هناك احتمالان على الأغلب أن مسار قاعدة البيانات غير صحيح أو غير قابل للترجمة من قِبل الخادم أو أن المسار الذي تقومين بإرساله عبر هذا المتغيّر (gsPathDataSlave) هو لنوع قاعدة بيانات أخرى كالـ(SQL) والتي تأتي لاحقتها عادة (.mdf)، لذلك يرجى التأكد من صحة المذكور واعلامنا بالجديد.
بالتوفيق.
تم تعديل هذه المشاركة بواسطة Bashar Rabat في 17 أبريل 2011 في 13:58
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
شكرا لأخوتي الذين شاركوا
تم حل المشكلة
وأود لو أسأل عن كيفية تفريغ داتاغريد من أسطرها وملئها بسطور أخرى
مثال : لدي داتاغريد مرتبطة بداتاسيت و جدول
وداتاغريد ثانية أريدها أن ترتبط بنفس الداتاسيت ولكن بجدول آخر و بينهما علاقة تستند إلى رقم في الجدولين
لدى النقر على سطر في داتاغريد الأولى يمتلئ داتاغريد الثانية .. إلى هنا العمل صح
لكن عندما أنقر على سطر آخر في داتاغريد الأولى يجب أن يمسح البيانات في داتاغريد الثانية تمتلئ ببيانات جديدة
فلم تنج الخطوة الأخيرة
كيف يمكنني ذلك
شكرا لكم لمساعدتي و جزاكم الله خيراً
قال رسول الله صلى الله عليه و سلم :
عبادة في الهرج كهجرة إلي
وقال أيضاً :
من عيّر أخاه بذنب لم يمت حتى يفعله
أو كما قال
flawer كتب:شكرا لأخوتي الذين شاركوا
تم حل المشكلة
وأود لو أسأل عن كيفية تفريغ داتاغريد من أسطرها وملئها بسطور أخرى
مثال : لدي داتاغريد مرتبطة بداتاسيت و جدول
وداتاغريد ثانية أريدها أن ترتبط بنفس الداتاسيت ولكن بجدول آخر و بينهما علاقة تستند إلى رقم في الجدولين
لدى النقر على سطر في داتاغريد الأولى يمتلئ داتاغريد الثانية .. إلى هنا العمل صح
لكن عندما أنقر على سطر آخر في داتاغريد الأولى يجب أن يمسح البيانات في داتاغريد الثانية تمتلئ ببيانات جديدة
فلم تنج الخطوة الأخيرة
كيف يمكنني ذلك
شكرا لكم لمساعدتي و جزاكم الله خيراً
أهلاً اختي الكريمة،
كيف تقومين بتحديد مصدر بيانات الـDataGridView الثانية؟ عن طريق اسناد جدول مُعالج ضمن الـDataSet أو جدول مُعالج بواسطة استعلام؟ وبالنسبة للخطوة الثانية تقصدين المسح أو الملء أو كلاهما معاً؟
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
السلام عليكم ورحمه الله وبركاته
جربي الكود التالي
CategoriesTableAdapter.Fill(MyDataSet.Categories)
End Sub
Private Sub CategoriesDataGridView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CategoriesDataGridView.SelectionChanged
If CategoriesDataGridView.SelectedRows.Count > 0 Then
Dim CategoryID As Integer = CategoriesDataGridView.SelectedRows(0).Cells(0).Value
ProductsTableAdapter.FillByCategoryID(MyDataSet.Products, CategoryID)
ProductsDataGridView.DataSource = MyDataSet.Products
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
علما انني اضفت استعلام جديد في جدول Products اسمه FillByCategoryID و يحتوي على
SELECT ProductID, ProductName, SupplierID, CategoryID, QuantityPerUnit, UnitPrice, UnitsInStock, UnitsOnOrder, ReorderLevel, Discontinued FROM dbo.Products Where CategoryID=@CategoryID
افترضت ان الحقل الاساسي للجدول الاول موجود في اول عمود لهذا كتبت Cells(0)
.:: Wish to become better and better ::.
السلام عليكم
هذا جزء من المشروع أرفقه في هذا الرد
كام هو سيظهر في البرنامج أن النقر على سطر في الشبكة العلوية سيظهر تفاصيل السطر أو ما يتعلق به في الشبكة السفلية
و مرفق معه قاعدة بيانات التي تأتي بالبيانات
شكرا لكم
قال رسول الله صلى الله عليه و سلم :
عبادة في الهرج كهجرة إلي
وقال أيضاً :
من عيّر أخاه بذنب لم يمت حتى يفعله
أو كما قال
السلام عليكم ورحمه الله وبركاته
جربي الكود ده
If e.ColumnIndex = -1 Then
Dim lnID As Long = grDrugs.Rows(e.RowIndex).Cells(6).Value
Dim strDe As String = "Select Morpho,Price,Dosage,Storage,IDp FROM PharmaDos WHERE IDp =" & lnID
Dim dPh As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strDe, dbConn)
If dsPh.Tables("DDDD") IsNot Nothing Then
dsPh.Tables("DDDD").Rows.Clear()
End If
dPh.Fill(dsPh, "DDDD")
grDetail.DataSource = dsPh
grDetail.DataMember = "DDDD"
End If
End Sub
Private Sub grDrugs_RowHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles grDrugs.RowHeaderMouseClick
.:: Wish to become better and better ::.
flawer كتب:السلام عليكم
هذا جزء من المشروع أرفقه في هذا الرد
كام هو سيظهر في البرنامج أن النقر على سطر في الشبكة العلوية سيظهر تفاصيل السطر أو ما يتعلق به في الشبكة السفلية
و مرفق معه قاعدة بيانات التي تأتي بالبيانات
شكرا لكم
وعليكم السلام
حسب المثال المرفق لا اجد داعي لاستخدام العنصر DataSet لذلك استخدمت الـDataTable عوضاً عنه ضمن مجال المعالجة:
Imports System.Data
Imports Microsoft.VisualBasic
Imports System.Data.OleDb
Public Class frmPharm
Dim dbConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(strConnSlave)
Private Sub frmPharm_Load(ByVal Sender As Object, _
ByVal E As EventArgs) Handles Me.Load
Dim strQ As String = "Select Trade AS [الدواء],NameD AS [المركب],WithC AS [المشاركة],Comp AS [الشركة],GroupD AS [المجموعة],Indicate AS [الاستطباب],IDp FROM Pharma ORDER BY NameD"
Using dPh As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strQ, dbConn)
dbConn.Open()
Dim PharmaTable As New DataTable("Pharma")
dPh.Fill(PharmaTable)
grDrugs.DataSource = PharmaTable
dbConn.Close()
End Using
End Sub
Private Sub grDrugs_RowHeaderMouseClick(ByVal Sender As Object, _
ByVal E As DataGridViewCellMouseEventArgs) Handles grDrugs.RowHeaderMouseClick
If E.ColumnIndex = -1 Then
Dim lnID As Long = grDrugs.Rows(E.RowIndex).Cells(6).Value
Dim strDe As String = "Select Morpho,Price,Dosage,Storage,IDp FROM PharmaDos WHERE IDp =" & lnID
Using dPh As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strDe, dbConn)
dbConn.Open()
If grDetail.DataSource IsNot Nothing Then CType(grDetail.DataSource, DataTable).Dispose()
Dim DB As New DataTable("CPharmaDos")
dPh.Fill(DB)
grDetail.DataSource = DB
dbConn.Close()
End Using
End If
End Sub
End Classبالتوفيق.
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
السلام عليكم
عنجد مابعرف كيف أشكركم
نجحت الطريقة مع المثالين
شكرا لك VB Helper
شكرا لك Bashar Rabat
جزاكم الله كل الخير
قال رسول الله صلى الله عليه و سلم :
عبادة في الهرج كهجرة إلي
وقال أيضاً :
من عيّر أخاه بذنب لم يمت حتى يفعله
أو كما قال