10-07-20, 11:29 PM
السلام عليكم ورحمة الله
أعزائى فى المنتدى أرجو منكم المساعدة حيث أننى مبتدئ وتواجهنى عدة مشاكل
أولا:- قمت بعمل مشروع برنامج قاعدة بيانات خاصة بمكتب وقمت بربطها بالفيجوال بيسك (أعمل على فيجوال بيسك 2013 )
وقمت بعمل جملة الاتصال بالقاعدة وجربتها بزر منفصل وعمل والحمد لله
ولكن المشكة اننى عندما عملت كود العرض فى الداتا جريد فيو لا يعمل على والحقيقة اننى راجعت الكود أكثر من مرة مش عارف المشكلة فين
Imports System.Data.SqlClient
Public Class frmauther
Dim conect As New SqlConnection("server=TALATLAP\MTM;database=library;integrated security =false ;user id=ttm;password =1234")
'أعلنا عن كائن أتصال جديد من سيكوال كونيكت وادخلنا بين القوسين المعلومات الخاصة اسم السيرفير واسم قاعدة البيانات واسم المستخدم
Dim da As SqlDataAdapter
'إعلان عن كائن جديد من أجل تحديث البيانات فى مصدر البيانات
Dim dt As New DataTable
'اعلان عن كان من نوع جدول بيانات لوضع البيانات فيه
Private Sub frmauther_Load(sender As Object, e As EventArgs) Handles MyBase.Load
da = New SqlDataAdapter("select * from authers", conect)
da.Fill(dt)
dgvauther.DataSource = dt
End Sub
End Class
[b]ثانيا:-عندما حاولت حل المشكلة عن طريق ربطها بالمعالج وعرضها فى صفحة بها داتا جريد فيو والحمد لله تم موضوع الربط والعرض ولكننى عندما قمت بعمل زر الحفظ والاضافة والتعديل لم استطيع
[/b]
Imports System.Data.SqlClient
Public Class frmauther
Private Sub frmauther_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me._authersTableAdapter.Fill(Me.LibraryDataSet._authers)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me._authersBindingSource.Position -= 1
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me._authersBindingSource.Position = 0
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me._authersBindingSource.Position += 1
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me._authersBindingSource.Position = Me._authersBindingSource.Count - 1
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
End Sub
End Class
أعزائى فى المنتدى أرجو منكم المساعدة حيث أننى مبتدئ وتواجهنى عدة مشاكل
أولا:- قمت بعمل مشروع برنامج قاعدة بيانات خاصة بمكتب وقمت بربطها بالفيجوال بيسك (أعمل على فيجوال بيسك 2013 )
وقمت بعمل جملة الاتصال بالقاعدة وجربتها بزر منفصل وعمل والحمد لله
ولكن المشكة اننى عندما عملت كود العرض فى الداتا جريد فيو لا يعمل على والحقيقة اننى راجعت الكود أكثر من مرة مش عارف المشكلة فين
Imports System.Data.SqlClient
Public Class frmauther
Dim conect As New SqlConnection("server=TALATLAP\MTM;database=library;integrated security =false ;user id=ttm;password =1234")
'أعلنا عن كائن أتصال جديد من سيكوال كونيكت وادخلنا بين القوسين المعلومات الخاصة اسم السيرفير واسم قاعدة البيانات واسم المستخدم
Dim da As SqlDataAdapter
'إعلان عن كائن جديد من أجل تحديث البيانات فى مصدر البيانات
Dim dt As New DataTable
'اعلان عن كان من نوع جدول بيانات لوضع البيانات فيه
Private Sub frmauther_Load(sender As Object, e As EventArgs) Handles MyBase.Load
da = New SqlDataAdapter("select * from authers", conect)
da.Fill(dt)
dgvauther.DataSource = dt
End Sub
End Class
[b]ثانيا:-عندما حاولت حل المشكلة عن طريق ربطها بالمعالج وعرضها فى صفحة بها داتا جريد فيو والحمد لله تم موضوع الربط والعرض ولكننى عندما قمت بعمل زر الحفظ والاضافة والتعديل لم استطيع
[/b]
Imports System.Data.SqlClient
Public Class frmauther
Private Sub frmauther_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me._authersTableAdapter.Fill(Me.LibraryDataSet._authers)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me._authersBindingSource.Position -= 1
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me._authersBindingSource.Position = 0
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me._authersBindingSource.Position += 1
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me._authersBindingSource.Position = Me._authersBindingSource.Count - 1
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
End Sub
End Class