مشكلة أحتاج مساعدتكم - نسخة قابلة للطباعة

مشكلة أحتاج مساعدتكم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=35577)

الصفحات: 1 2

مشكلة أحتاج مساعدتكم - talatm - 10-07-20

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

RE: مشكلة أحتاج مساعدتكم - talatm - 11-07-20

السلام عليكم
أعزائى فى المنتدى محدش رد على يبدو اننى لم استطع شرح المشكلة
اللبرنامج بيجى عند سطر da.Fill(dt)
ويفف والديبك يدى nothing مش فاهم مبيمليش فى الداتا فيو البيانات ليه
ممكن حد يساعدى او لو كنت مش عارف اوصل المشكلة يقلى

RE: مشكلة أحتاج مساعدتكم - ابراهيم ايبو - 12-07-20

السلام عليكم اخي الكريم
انت تقول انني جربت الاتصال بزر منفصل وعمل بشكل جيد !!!!
وفي الكود الذي وضعته صحيح ماعدا اسم السيرفر الذي اعتقد انه خطأ (ربما التسمية عندك هكذا)
تأكد من اسم السيرفر واسم اصدار SQlServer

RE: مشكلة أحتاج مساعدتكم - WaeLx - 12-07-20

السلام عليكم و رحمة الله و بركاته

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

أنت قمت باستعمال أداة 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)

أما الجزء الأول فأعتقد كما قال أستاذنا ابراهيم ايبو، تأكد من بيانات الاتصال أو ضع مشروع مصغر

RE: مشكلة أحتاج مساعدتكم - talatm - 13-07-20

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

RE: مشكلة أحتاج مساعدتكم - عبد العزيز البسكري - 13-07-20

جرّب بهذا الشكل أخي الكريم ..

كود :

  Dim cmd As New SqlCommand("select * from authers",con)

RE: مشكلة أحتاج مساعدتكم - talatm - 13-07-20

نفذت الكود بالشكل ده

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

RE: مشكلة أحتاج مساعدتكم - essawq - 13-07-20

(13-07-20, 10:54 PM)talatm كتب : نفذت الكود بالشكل ده

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

اخي ارفع مشروع صغير
تحيايي لك

RE: مشكلة أحتاج مساعدتكم - talatm - 13-07-20

أنا أسف ومحرج من حضرتك كيف أرفع المشروع

RE: مشكلة أحتاج مساعدتكم - essawq - 13-07-20

(13-07-20, 11:06 PM)talatm كتب : أنا أسف ومحرج من حضرتك كيف أرفع المشروع

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