[talatm]

السلام عليكم ورحمة الله
أعزائى فى المنتدى أرجو منكم المساعدة حيث أننى مبتدئ وتواجهنى عدة مشاكل
أولا:- قمت بعمل مشروع برنامج قاعدة بيانات خاصة بمكتب وقمت بربطها بالفيجوال بيسك (أعمل على فيجوال بيسك 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