:wacko:
Please i need help
i want to add new staff records and delet and update to the sql data base tables
by Visual basic 2002
I'm a beginer in that
i used text box to enter the record feailds --> id,name"first_middel_last" ,job title, .....ect
then click on button to enter that in the staff table in the data base
Please I need that now and it's very important
:( :( :( :wacko:
اخي الكريم يوجد كتب عربية للتعامل مع الـ sql server في هذا الرابط
اما هذا الرابط في كتب sql server و كيفية التعامل معاها
http://www.cb4a.com/books/list.php?cat=1
تحياتي
لا حول و لا قوة الا بالله العلي العظيم
مشروع المخازن و حسابات العملاء و الموردين مع التحليل بطريقة احترافية
شكرا wise
لكن احتمال انا ماوضحت الي ابيه
انا اقصد لما ادخل معلومات الموظف في textbox ياخذ هذي المعلومات ويضيفها لي في الجدول "الموظفين " الموجود عندي في قاعدة البيانات
ولما استرجع record لموظف معين --> وابي اعدل عليه معلوماته مثلا مركزه الى مدير يعدل لي في الجدول
او لما احذف موظف من الجدول
انا كتبت الكود لكن مايرضى يضيف لي
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"
st = "UPDATE Staff SET Saf_id= @StaffID,first= @Iname,office_no= @OfficeNo,office_phone= @OfficePhone, Email= @Email,job_title= @jobTitle,Mobile= @Mobile,Phone= @Phone Where (saf_Id=@StaffID)"
Dim _adpt As New System.Data.SqlClient.SqlDataAdapter(st, _oCon)
Dim DS As New DataSet()
_adpt.Fill(DS)
lc = DS.Tables(0).Rows.Count
For c = 0 To lc - 1
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
'***********************************************************************
' وهاذي محاوله ثانيه مني لكن مدري وين الله حاطني
Try
t = DS.Tables(0)
AddNew(lc)
st = "UPDATE Staff SET Saf_id= @InstructorID,first= @Iname,office_no= @OfficeNo,office_phone= @OfficePhone, Email= @Email,job_title= @jobTitle,Mobile= @Mobile,Phone= @Phone"
_adpt.Update(t)
Catch x As Exception
' Error during Update, add code to locate error, reconcile
' and try to update again.
'st = "UPDATE Staff SET Saf_id= @InstructorID,first= @Iname,office_no= @OfficeNo,office_phone= @OfficePhone, Email= @Email,job_title= @jobTitle,Mobile= @Mobile,Phone= @Phone"
End Try
End Sub
Public Sub AddNew(ByVal i As Integer)
dr = t.NewRow()
dr("Saf_id") = StaffID.Text
dr("first") = Iname.Text
dr("office_no") = OfficeNo.Text
dr("office_phone") = OfficePhone.Text
dr("email") = Email.Text
dr("job_title") = jobTitle.Text
dr("mobile") = Mobile.Text
dr("phone") = Phone.Text
End Sub
[code]
هذي محاوله مني لإضافة موظف جديد
ارجو المساعده
في اقرب فرصه
واشكر ا
:wacko: :wacko: :( :(
صراحة اخي ليس لي خبرة في التعامل مع قواعد البيانات في وضع الاتصال و لكن
في نفس الرابط الخاص بموقع www.cb4a.com
في صفحة البرمجة هتلاقي كتاب خاص بالاستاذ خالد الجديع و هو سهل للغاية و ان شاء لله هتعرف كيف تتعامل مع قواعد بيانات في وضع الاتصال ان شاء الله
لا حول و لا قوة الا بالله العلي العظيم
مشروع المخازن و حسابات العملاء و الموردين مع التحليل بطريقة احترافية
شكرا لك يا اخي Wise :rolleyes:
والخطأ كان مني لعدم توضيحي السؤال
ولقد استفدت من الروابط السابقه :rolleyes:
فشكرا لك مره اخرى
هذا الموضوع مغلق.