• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

drmohd

اعضاء جدد
  • عدد المشاركات

    19
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن drmohd

  • الرتبة
    عضو جديد
  1. كيف عمل ذلك في listview

    شكرا على الرد   المثال هذا لايوضح كيف اخذ البيانات من قاعدة البيانات وعملها في مجموعات   المثال يوضح كيف الادخال اليدوي
  2. السلام عليكم مثلا لدي جدول موظفين يحتوي على رقم الموظف - الاسم  - الفرع    حقل الفرع رقمي  ياخدة من جدول الفروع لكن يخزن الرقم فقط   المهم  الذي اريدة  يظهر اسماء الموظفين في listview   كمجموعات لكل فرع  مثل  فرع 1  يظهر تحته الموظفين التابعين  وفرع 2  كذلك الى باقي الفروع    وهذي مثال للحقول   اسم الجدول employee  emp_code emp_name brunch_id
  3. السلام عليكم     عملت برنامج مبيعات وعملت اكواد الحفظ والتعديل والاستعلام وغيرة عن طريق  stored procedure  وكل شيء تمام  مثلا حفظ الفاتورة  الماستر له بروسيدر  والديتيلز  له اخر  والبرنامج  يعمل تمام  لكن  اريد ان اعمل بروسيدر واحد يضم حفظ  للماستر والديتيلز وعمل transaction  p  وتلخيصا للكلام  مثلا  كالتالي   لو لدي جدول  mas   وجدول det   الاول     ID   FEILED  TYPE  INT DATES  FIEILED TYPE DATE   الثاني    IDD  FEILED  TYPE INT ITEMNAME  FEILED  TYPE NVARCHAR PRICE  FEILED  TYPE  FLOAT QUENTIY  FEILED TYPE INT TOTAL  FEILED TYPE FLOAT     كيف اعمل  PROCEDURE  واحد  لهم   مع الكود في VBNET     واعتبار الجدول الثاني  هو ادخال من  الجريد         
  4. السلام عليكم   لو فرضنا لدينا جدولين    جدول  mas   id  - name   جدول det   id - dates   كيف عمل  اجراء مخزن     انا عملت اجراء مخزن لواحد جدول مع  ترانزيكشين  واشتغل تمام  لكن لما اعمل الجدويلين في نفس الاجراء   كما ماستر ديتيلز  يعطي  خطأ  التالي   Procedure or function masdet has too many arguments specified   وكيف عمل ذلك ب vbnet       الاجراء هو      ALTER PROCEDURE [dbo].[masdet] @id int, @name nvarchar (20), @idd int, @dates DATE AS SET NOCOUNT ON     SET XACT_ABORT ON set @[email protected]@identity  BEGIN BEGIN TRAN INSERT INTO mas (id,name) values (@id,@name) INSERT INTO det values (@idd,@dates) if @@ERROR = 0     commit else begin     raiserror('عفوا حدث خطأ الرجاء اعادة المحاولة',14,1)     rollback end end   وهذا جزء من الكود في الفجوال بيسك نت   CmdInsert.Parameters.Add("@Id", SqlDbType.Int).Value = Me._BandId         CmdInsert.Parameters.Add("@Name", SqlDbType.NVarChar, 20).Value = Trim(Me.TextBox2.Text)         For i As Integer = 0 To dt.RowCount - 1             CmdInsert.Parameters.Add("@Idd", SqlDbType.Int).Value = Me._BandId             CmdInsert.Parameters.Add("@dates", SqlDbType.Date).Value = CDate(Me.dt.Rows(i).Cells(0).Value)         Next         If MyMod.conn.State = ConnectionState.Open Then MyMod.conn.Close()         MyMod.conn.Open()         CmdInsert.ExecuteNonQuery()         MyMod.conn.Close()         Beep()         If MsgBox(MyMod.Me_MsgOkAdd, MyMod.Me_MsgQuestion, MyMod.Me_MsgCaption) = vbYes Then             CmdInsert.Dispose()         Else             CmdInsert.Dispose()             Me.Close()         End If            
  5. السلام عليكم     عملت 2 نسخة ويندوز وهمي  وركبت  sql server 2005  and sql 2008  وجربت اعمل اتاشمينت لقاعدة البيانات  يعطي خطأ  لايمكن عمل اتاش    واو تكركت اخي ارسل الاسكريبت كامل لقاعدة البيانات  مع storedprocedure   وانا اعمل لها  اعادة بناء للجداول والاجراءت
  6. السلام عليكم ارجوا التوضيح لقاعدة البيانات اي اصدار  لاني لدي  sql server 2012   اريد الاطلاع على الحقول والاجراءت المخزنة وغيرة   اما من ناحية الكود  فهو  جميل وبه افكار      شكرااااااااا
  7. شكراا اخي على الاجابة    نفسي احصل مثال فاتورة شامل بالجريد وداخلها كمبوبوكس  وختيار رقم صنف يظهر بيانته في الخلايا مثل السعر والاسم  ومجموع العامود الاجمالي  بأقل كود  او بستخدام binding source  للاظافة والحذف والتعديل  او بستخدام  transiction   انا عملت الجريد مثل المثال فوق  وعبأت الكمبو برقم  وعند الاختيار يتم يجلب البيانات في الخلايا  مع شويه اظافات  لكن طريقة طويلة وكود كثير  وهذا للاظافة غير التعديل اريد طريقة اسهل واسرع    سؤال ثاني  لو مثلا عندي جدول موظفين وبه اكثر من 500 موظف مع كامل بياناتهم  مع صورهم   يتم جلب البيانات الى الداتا سيت وربط التكست بهم  لكن كذه يكون ضغط كبير على الجهاز او الذاكرة  خاصة لو قاعدة البيانات على الانترنت ماهو افضل حل  فكرة استدعي فقط السجل الاول او الموظف الاول فقط  وباقي الموظفين يتم البحث عنهم بواسطة رقمة او اسمة  في هذي الحاله لاداعي لأمر التالي والسابق
  8. لدي حقل تاريخ  tel_edate  - tel_pdate  نوع  smalldatetime    كيف ادخل بياناته من داتا جريد   وهذا الكود    Dim SQL As String = "insert into tel_det (tel_rep_id,tel_no,tel_use,tel_acc,tel_br,tel_pdate,tel_edate,tel_now,tel_last,tel_dain,tel_tot) values (@tel_rep_id,@tel_no,@tel_use,@tel_acc,@tel_br,@tel_pdate,@tel_edate,@tel_now,@tel_last,@tel_dain,@tel_tot)"         Dim CMD As SqlCommand = New SqlCommand         With CMD             .CommandType = CommandType.Text             .Connection = con             .Parameters.Add("@tel_rep_id", SqlDbType.Decimal, 10, "tel_rep_id")             .Parameters.Add("@tel_no", SqlDbType.NVarChar, 12, "tel_no")             .Parameters.Add("@tel_use", SqlDbType.NVarChar, 50, "tel_use")             .Parameters.Add("@tel_acc", SqlDbType.NVarChar, 12, "tel_acc")             .Parameters.Add("@tel_br", SqlDbType.NVarChar, 50, "tel_br")             .Parameters.Add("@tel_pdate", SqlDbType.SmallDateTime, dt1)             .Parameters.Add("@tel_edate", SqlDbType.SmallDateTime, "tel_edate")             .Parameters.Add("@tel_now", SqlDbType.Decimal, "tel_now")             .Parameters.Add("@tel_last", SqlDbType.Decimal, "tel_last")             .Parameters.Add("@tel_dain", SqlDbType.Decimal, "tel_dain")             .Parameters.Add("@tel_tot", SqlDbType.Decimal, "tel_tot")             .CommandText = SQL         End With         If con.State = ConnectionState.Open Then con.Close()         con.Open()         dpdet.TableMappings.AddRange(New DataTableMapping() {New DataTableMapping("Table", "tel_det", New DataColumnMapping() {New DataColumnMapping("tel_rep_id", "tel_rep_id"), New DataColumnMapping("tel_no", "tel_no"), New DataColumnMapping("tel_use", "tel_use"), New DataColumnMapping("tel_acc", "tel_acc"), New DataColumnMapping("tel_br", "tel_br"), New DataColumnMapping("tel_pdate", "tel_pdate"), New DataColumnMapping("tel_edate", "tel_edate"), New DataColumnMapping("tel_now", "tel_now"), New DataColumnMapping("tel_last", "tel_last"), New DataColumnMapping("tel_dain", "tel_dain"), New DataColumnMapping("tel_tot", "tel_tot")})})         dpdet.InsertCommand = CMD         dpdet.Update(dttel, "tel_det")         con.Close()
  9. عملت التنقل في الجريد بزر انتر  جربت  e.keycode=keys.enter   تشتغل تمام اذا كان الخلية فاضية لكن بمجرد ادخال بيانات يذهب الى السطر الثاني  الغيت خاصية التاب وفعلتها وجربت محاولات بدون جدوى    
  10. لاحد يرد   تم حل المشكلة  عملت استعلام ثاني  واسندت اعمدة الجريد الى الناتج 
  11. مشكلة حفظ التاريخ

    شكرا  تم حل المشكلة  date.par المشكلة الثانية  يتم حفظ الصورة  في الحقل  emp_pic  ونوعة image   لكن الاسترجاع في الداتا سيت لاتظهر
  12. السلام عليكم  لدي جدول موظفين  به حقول من ضمنها حقل تاريخ الميلاد وحقل تاريخ اصدار الهوية    emp_births   emp_idt_birth   نوع  smalldatetime   وهذه جملة الاسكيول   Dim sqlstr As String = "iNSERT INTO employee ([emp_id],[emp_name],[emp_code],[emp_add],[emp_idt],[emp_basic_salary],[emp_mokafa],[emp_total_salary],[emp_br],[emp_nat],[emp_st],[emp_job],[emp_mob],[emp_rel],[emp_idt_date],[emp_birth],[emp_pic],[emp_sex],[emp_place])"         Dim dateval1 As Date = emp_births.Text         Dim dateval2 As Date = emp_idt_birth.Text         Dim CMD As SqlCommand = New SqlCommand         sqlstr = sqlstr & "VALUES"         sqlstr = String.Format("{0}('{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}','{10}','{11}','{12}','{13}','{14}','{15}','{16}','{17}','{18}','{19}')", sqlstr, emp_id.Text.Trim, emp_name.Text.Trim, emp_code.Text.Trim, emp_add.Text, emp_idt.Text, Convert.ToDecimal(emp_salary.Text.ToString), Convert.ToDecimal(emp_mok.Text.ToString), Convert.ToDecimal(emp_tot.Text.ToString), cb_br.SelectedValue, cb_nat.SelectedValue, cb_st.SelectedValue, cb_job.SelectedValue, emp_mob.Text, cb_rel.SelectedValue, dateval1, dateval2, arrimg, cb_sex.SelectedValue, cb_place.SelectedValue)   وهو ارسال  تاريخ من تيكست بوكس  استخدم  vb2012 
  13. ما الخطأ فى هذا الكود

    السلام عليكم    الضاهر الخطأ موجود في جملة الاستعلام  تأكد منها
  14. اسف لايمكن  لان  قاعدة بيانات  خاصة بالعمل  ويوجد بها بيانات  جميع الموظفين  وصورهم   وبعض البيانات الخاصة   وايضا  البرنامج  كبير شويه  لوجود قسم للشؤون الموظفين وقسم ارشفه وغيرة  وهو شبه كامل  ماعدا الاشكاليه المطروحة في المخزون 
  15. السلام عليكم    عملت داتا جريد وملأت الكمبوبوكس داخلها من الداتا سيت بجميع محتويات جدول الاصناف  itemno - itemname itemprice   المعروض في الكمبو  هو اسماء الاصناف  وكل شيء تمام  ماعدا  كيفية  عند اختيار رقم الصنف  يأتي في الخلية التالية  اسم الصنف و السعر    اريد  طريقة بسيطة  لذلك     لدي فكرة اخرى   بعمل  استعلام اخر حسب اختيار من الكمبو  واسناد البيانات المرجعه الى الخلايا  لكن  اريد  استعلام من الداتا سيت المعبئة بكل  بيانات الاصناف    مثلا  اذا اخترت صنف  رقم 1  يذهب الى الداتا سيت ويقارن الصنف بالموجود هناك ويجلب بياناته الى الجريد       شكرررا