الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Add to DB table

مغلق
بدأه Mahad 3endek في 2 ديسمبر 2005 · 7 رد · 756 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا عملت هذا الكود لاضافة موظف جديد لكن يطلعلي error

' ExecuteReader: CommandText property has not been initialized

ما اعرف له حل

Private Sub NewStaff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewStaff.Click

_oCon.ConnectionString = "server=(local);database=project;trusted_connection=yes"

str = "select * from Staff"

_adpt.Fill(DS, "Staff") ' ExecuteReader: CommandText property has not been initialized

t = DS.Tables(0)

cr = t.Rows.Count

For c = 0 To cr

If DS.Tables(0).Rows©.Item(0) Is ٍStaffID.Text Then

MessageBox.Show("THis staff ID is Exist,Please Enter a new one", "Errore Massege", MessageBoxButtons.OK, MessageBoxIcon.Error)

StaffID.Clear()

End If

Next

r = t.NewRow

r("Saf_id") = StaffID.Text

r("first") = Iname.Text

r("office_no") = OfficeNo.Text

r("office_phone") = OfficePhone.Text

r("email") = Email.Text

r("job_title") = jobTitle.Text

r("mobile") = Mobile.Text

r("phone") = Phone.Text

t.Rows.Add®

_adpt.Update(DS, "Staff")

MessageBox.Show("added successfully")

End Sub

[code]

ارجو المساعده :( :( :( :(

#2

صلحت الخطأ الي كان يطلع لي لكن الان صار يطلع خطأ اخر :wacko:

'Update requires a valid InsertCommand when passed DataRow collection with new rows

اتمنى ان احد يعرف لي ايش المشكله لاني مبتدأ و مو فاهم شي موليه :unsure:

   Private Sub NewStaff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewStaff.Click
        _oCon.ConnectionString = "server=(local);database=project;trusted_connection=yes"
        str = "select * from Staff"
        Dim _adpt As New System.Data.SqlClient.SqlDataAdapter(str, _oCon)
        Dim DS As New DataSet()
        _adpt.Fill(DS, "Staff") ' ExecuteReader: CommandText property has not been initialized
        t = DS.Tables(0)
        cr = t.Rows.Count - 1
        For c = 0 To cr
            If DS.Tables(0).Rows(c).Item(0) Is ٍStaffID.Text Then
                MessageBox.Show("THis staff ID is Exist,Please Enter a new one", "Errore Massege", MessageBoxButtons.OK, MessageBoxIcon.Error)
                StaffID.Clear()
            End If
        Next
        r = t.NewRow
        r("Saf_id") = StaffID.Text
        r("first") = Iname.Text
        r("middel") = Middel.Text
        r("last") = Last.Text
        r("office_no") = OfficeNo.Text
        r("office_phone") = OfficePhone.Text
        r("email") = Email.Text
        r("job_title") = jobTitle.Text
        r("mobile") = Mobile.Text
        r("phone") = Phone.Text
        t.Rows.Add(r)
        _adpt.Update(DS, "Staff") 'Update requires a valid InsertCommand when passed DataRow collection with new rows.
        MessageBox.Show("added successfully")
    End Sub

:wacko: :(

#3

السلام عليكم

لابد من وجود امر اضافة وتعديل وحذف تقوم باسنادها لموصل البيانات

ولانشاء اوامر التحديث والحذف والاضافة ابسط طريقة هى استخدام الكائن CommandBuilder

حيث نقوم بتمرير موصل البيانات dataadapter لحظة انشاء كائن منشئ الاوامر

Dim cb As New OleDBCommandBuilder(your dataAdapter)
_adpt.InsertCommand=cb.GetInsertCommand
..
..
_adpt.Update(DS, "Staff")

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

002.gif

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#4

يا اخي SOLO.NET تمنيت انه يمشي معي لكنه مو معرف عندي هذا الشي :(

ما ادري ايش المشكله فيه

Dim cb As New OleDBCommandBuilder(_adpt) ' is not defined

انا استخدم VB.NET 2002

او اذا فيه طريقه ثانيه :unsure:

وشكرا لك :rolleyes:

#5

السلام عليكم

لم لنتبه انك تتعامل مع مزود sql

Dim cb As New System.Data.SqlClient.sqlCommandBuilder(adpt)
_adpt.InsertCommand=cb.GetInsertCommand
..
..
_adpt.Update(DS, "Staff")

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

002.gif

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#6

شكرا ياأخي شكر عميق لا استطيع التعبير عنه

لان لي اسبوع احاول اضيف ولا يضبط معي

:rolleyes: :rolleyes: :rolleyes: :rolleyes:

جزاك الله الف خير ويفرج كربك في الدنيا والاخره

B) B) B)

#7

عفوا اسف ع الازعاج :rolleyes: الاضافه و الحذف مشوا معي وشكرا

لكن التعديل على البيانات ما ضبط معي :(

يعني بواسطة ادخال رقم الموظف واسترجاع بياناته اريد تعديل بعض المعلومات الموجوده في الtextbox ثم بواسطة button تعديل

يغير هذي المعلومات في الجدول الموجود في قاعدة البيانات

لكن مااعرف كيف الطريقه

حاولت احذفه ثم اضيفه مره ثانيه لكن يطلع لي system error :wacko:

اذا احد يعرف يساعدني

#8

اشكر كل من ساعدني

واقول اني وجدت الحل لمشكلتي وهو خطأ من قبلي في ترتيب اسماء الاعمده من الجدول و اسماء ال textbox

واذكرخطئي لكي يستفيد الكل ( لان الانسان مع الظغوط يفقد التركيز احيانا :wacko: و" جل من لا يخطأ" )

:unsure:

هذا الموضوع مغلق.

مواضيع مشابهة