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

الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
أعزائى فى المنتدى محدش رد على يبدو اننى لم استطع شرح المشكلة
اللبرنامج بيجى عند سطر da.Fill(dt)
ويفف والديبك يدى nothing مش فاهم مبيمليش فى الداتا فيو البيانات ليه
ممكن حد يساعدى او لو كنت مش عارف اوصل المشكلة يقلى
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#3
السلام عليكم اخي الكريم
انت تقول انني جربت الاتصال بزر منفصل وعمل بشكل جيد !!!!
وفي الكود الذي وضعته صحيح ماعدا  اسم السيرفر الذي اعتقد انه خطأ (ربما التسمية عندك هكذا) 
تأكد من اسم السيرفر واسم اصدار SQlServer
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#4
السلام عليكم و رحمة الله و بركاته

بالنسبة للشق الثاني من سؤالك

أنت قمت باستعمال أداة BindingSource و التي تغنيك عن الكثير من الأكواد و تمنع الكثير من الأخطاء،

لذا أنصحك باسخدام مميزاتها  

للتحرك لأول سجل
كود :
Me._authersBindingSource.MoveFirst()


للذهاب لاخر سجل
كود :
Me._authersBindingSource.MoveLast()


للسجل التالي و السابق
كود :
Me._authersBindingSource.MoveNext()

Me._authersBindingSource.MovePrevious()


بالنسبة لاضافة سجل جديد
كود :
Me._authersBindingSource.AddNew()


و لحفظ البيانات سواء عند التعديل أو بعد عمل سجل جديد
كود :
Me.Validate()
Me._authersBindingSource.EndEdit()
Me._authersTableAdapter.Update(Me.LibraryDataSet._authers)



أما الجزء الأول فأعتقد كما قال أستاذنا ابراهيم ايبو، تأكد من بيانات الاتصال أو ضع مشروع مصغر
الرد }}}
تم الشكر بواسطة: ابو روضة , essawq , essawq , ابراهيم ايبو , rochdi191
#5
السلام عليكم ورحمة الله
أولا أنا أشكركمعلى الاهتمام
بالنسبة لأسم السيرفر أنا منشأة على ال d 
واسمه انا ناسخة TALATLAP\MTM
بالنسبة لاصدار السيكوال 2012
حاولت أعمل مديول لتحميل البيانات بالكود ده

Imports System.Data.SqlClient

Module dataload
    Public dt As New DataTable
    Public Sub daload()
        dt.Clear()
        Dim cmd As New SqlCommand("select * from authers,con")
        con.Open()
        dt.Load(cmd.ExecuteReader)
        con.Close()
        cmd = Nothing
    End Sub
End Module

بيدينى رسالةخطأ عند السطر
        dt.Load(cmd.ExecuteReader)
رسالة executereader connection property has not been initialized
بالنسبة للاداة bindingsource لو ممكن شرح أكثر ومميزتها وخصائصها أكون شاكر الافضال
الرد }}}
تم الشكر بواسطة:
#6
جرّب بهذا الشكل أخي الكريم ..
كود :
  Dim cmd As New SqlCommand("select * from authers",con)

قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: essawq , essawq
#7
نفذت الكود بالشكل ده 

Dim cmd As New SqlCommand("select * from authers", con)
ادانى رسالة خطأ invaled object name "authres
الرد }}}
تم الشكر بواسطة: essawq
#8
(13-07-20, 10:54 PM)talatm كتب : نفذت الكود بالشكل ده 

Dim cmd As New SqlCommand("select * from authers", con)
ادانى رسالة خطأ invaled object name "authres

اخي ارفع مشروع صغير
تحيايي لك
الرد }}}
تم الشكر بواسطة:
#9
أنا أسف ومحرج من حضرتك كيف أرفع المشروع
الرد }}}
تم الشكر بواسطة: essawq
#10
(13-07-20, 11:06 PM)talatm كتب : أنا أسف ومحرج من حضرتك كيف أرفع المشروع

اهلا اخي ليش محرج اخي انا قايلك ترفع لي مشروعك؟؟؟
اخي اعمل مشروع بسيط يمثل الخطا فورم واحد واعملة بعيد كل البعد عن مشروعك الاصلي
لانة من الافضل رفع مشروع حتي يستطيع الاخوان مساعدتك
تحياتي واحترامي لك
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم