• الإعلانات

    • فيصل الحربي

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

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

golden wave

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

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

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

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

0 عادي

عن golden wave

  • الرتبة
    عضو
  1. ياريت يا جماعة لو سمحتم لو حد يقدر يفيدنى فى إجابة السؤال ده 
  2. السلام عليكم ورحمة الله و بركاته .. أقوم ببرمجة برنامج بـ vb.net 2008  و قاعدة بيانات sql server 2008  و أريد عمل package على إسطوانة لأقوم بتسويقه ... لى سؤالين فى هذا الموضوع ؟ السؤال الأول : أريد تضمين قاعدة البيانات مع الحزمة بحيث عند تسويق البرنامج يقوم المستخدم بالضغط على ملف واحد ليتم تسطيب البرنامج ومعه جميع متطلبات التشغيل مثل .net framework,windows installer , crystal report  و أيضا sql server 2008 express  و لكنى لا أجد sql server 2008 express ضمن الـ publish prerequistites و عند وضع رابط لتحميلها و تضمينها مع publish prerequistites لا أستطيع .   السؤال الثانى : فى حالة إذا تم حل مشكلة تضمين sql server 2008 express مع الـ package .. هل أتعامل مع قاعدة البيانات فى اللإتصال من برنامجى عن طريق السيرفر أم عن طريق مسار ملف قاعدة البيانات مثل أكسيس .. و هل أقوم بعمل كود فى برنامجى لعمل attach لقاعدة البيانات و التأكد من تشغيل الخدمة ؟     عفوا على الإطالتى و لكننى بحثت فى المنتدى ولم أجد كيفية تضمين قاعدة بينات sql server 2008 من داخل sql server 2008 express  
  3. أخى العزيز asn قمت بعمل ما قلته له ولكن دون جدوى مازالت نفس المشكلة قائمة .. هل من الممكن أن تكون المشكلة فى نسخة sql server
  4. السلام عليكم و رحمة الله و بركاته .. كنت أعمل على vb.net 2008 مع قاعدة بيانات sqlserver 2005 كنت أستخدم كود vb.net لعمل backup و restore لقاعدة البيانات وكان يعمل جيدا ولكن عندى التغيير إلى sqlserver 2008 r2 لم يعمل الكود ويظهر هذه الرسالة backup failed for server 'mohamed-pc ' اتمنى من حضراتكم تصحيح أى خطأ فى الكود أو غعطائى كود يعمل مع sqlserver 2008 r2 نظرا لإحتياجى الشديد له ****************************************** الكود ************************************************ Imports System.Data Imports System.Data.SqlClient Imports Microsoft.SqlServer.Management.Common Imports Microsoft.SqlServer.Management.Smo Private Const srvrConnectionString As String = "Data Source=MOHAMED-PC;Persist Security Info=True;User ID=sa;Password=1900818;Connect Timeout=30" أولا كود backup Public Sub Make_Backup() Dim bError As Boolean Dim dlgSaveFile As New SaveFileDialog() bError = False dlgSaveFile.Filter = "SQL Server database backup files|*.bak" dlgSaveFile.FileName = "paintsDB_backup" '********************************** حالة إلغاء إستعادة النسخة ********************************* select Case dlgSaveFile.ShowDialog(MDI) Case Windows.Forms.DialogResult.Cancel Exit Sub Case Windows.Forms.DialogResult.OK MDI.update() '//////////////////////////////////////////////////////////////////////////////////////////////////////// FrmLoading.LblMsg.Text = "...... جارى إنشاء النسخة الإحتياطية لقاعدة البيانات" FrmLoading.ShowDialog() '///////////////////////////////////////////////////////////////////////////////////////////////////////// 'Null إنشاء كائن الإتصال Dim sqlConnection As New SqlClient.SqlConnection(srvrConnectionString) Dim srvrConnection As New ServerConnection(sqlConnection) 'Null ربط الإتصال بالملقم Dim srvr As New Server(srvrConnection) 'Null إنشاء الكائن الذي سنستعمله لإنشاء النسخة الإحتياطية Dim bkp As New Backup() 'Null تحديد العملية في إنشاء نسخة احتياطية لكامل قاعدة البيانات bkp.Action = BackupActionType.Database 'Null تحديد اسم قاعدة البيانات bkp.Database = "paints" 'Null تعليق على النسخة الإحتياطية bkp.BackupSetDescription = "Database " + "paints" + " backup " + DateTime.Today.ToShortDateString() 'Null إسم النسخة الإحتياطية bkp.BackupSetName = "paints" + "_backup" 'Null إنشاء نسخة كاملة لقاعدة البيانات وليس فقط للبيانات التي تم تغييرها bkp.Incremental = False 'Null حساب مجموع البيانات للتأكد من صحة النسخة الإحتياطية bkp.Checksum = True 'Null اقتطاع سجل قاعدة البيانات بعد إنشاء النسخة الإحتياطية bkp.LogTruncation = BackupTruncateLogType.Truncate 'Null تحديد نوع الجهاز الذي سيتم عليه إنشاء النسخة الإحتياطية في ملف Dim bdi As New BackupDeviceItem(dlgSaveFile.FileName, DeviceType.File) bkp.Devices.Add(bdi) Try 'Null بدأ عملية إنشاء النسخة الإحتياطية لقاعدة البيانات bkp.SqlBackup(srvr) Catch ex As Exception 'MessageBox.Show("فشلت عملية إنشاء النسخة الإحتياطية لقاعدة البيانات", " --", MessageBoxButtons.OK, MessageBoxIcon.Error) 'MsgBox(ex.InnerException.ToString) MsgBox(ex.Message) bError = True End Try If Not bError Then MessageBox.Show("تمت عملية إنشاء النسخة الإحتياطية بنجاح", "--", MessageBoxButtons.OK, MessageBoxIcon.Information) End select End Sub ثانيا كود restore Public Sub Restore_Backup() Dim bError As Boolean Dim dlgOpenFile As New OpenFileDialog() bError = False dlgOpenFile.Filter = "SQL Server database backup files|*.bak" '********************************** حالة إلغاء إستعادة النسخة ********************************* select Case dlgOpenFile.ShowDialog(MDI) Case Windows.Forms.DialogResult.Cancel Exit Sub Case Windows.Forms.DialogResult.OK MDI.update() '//////////////////////////////////////////////////////////////////////////////////////////////////////// FrmLoading.LblMsg.Text = "...... جارى إستعادة قاعدة البيانات من النسخة الإحتياطية" FrmLoading.ShowDialog() '///////////////////////////////////////////////////////////////////////////////////////////////////////// 'Null إنشاء كائن الإتصال Dim sqlConnection As New SqlClient.SqlConnection(srvrConnectionString) Dim srvrConnection As New ServerConnection(sqlConnection) 'Null ربط الإتصال بالملقم Dim srvr As New Server(srvrConnection) 'Null إنشاء الكائن الذي سنستعمله لاستعادة قاعدة البيانات من النسخة الإقتصادية Dim rstr As New Restore() 'Null استبدال قاعدة البيانات بأكملها rstr.Action = RestoreActionType.Database 'Null التأكد من صحة البيانات من خلال التأكد من حساب مجموع البيانات rstr.Checksum = True 'Null استكمال العملية حتى بعد حصول أخطاء في عملية الإستعادة rstr.ContinueAfterError = True 'Null اسم قاعدة البيانات التي سيتم استبدالها rstr.Database = "paints" 'Null تحديد الجهاز الذي تتواجد به النسخة الإحتياطية rstr.Devices.Add(New BackupDeviceItem(dlgOpenFile.FileName, DeviceType.File)) 'Null قاعدة البيانات الحالية سيتم استبدالها بتلك الموجودة على النسخة الإحتياطية rstr.ReplaceDatabase = True 'Null تأكيد استبدال قاعدة البيانات بأكملها و ليس جزء منها فقط rstr.Partial = False Try 'Null عملية التأكد من النسخة الإحتياطية قبل بدإ عملية الإستبدال If rstr.SqlVerify(srvr) Then 'Null إيقاف كل ماهو مرتبط بقاعدة البيانات srvr.KillAllProcesses("paints") 'Null عزل قاعدة البيانات عن الملقم srvr.DetachDatabase("paints", True) 'Null بدأ عملية استعادة قاعدة البيانات rstr.SqlRestore(srvr) End If Catch ex As Exception MessageBox.Show("فشلت عملية استعادة قاعدة البيانات من النسخة الإحتياطية", "----", MessageBoxButtons.OK, MessageBoxIcon.Error) bError = True End Try If Not bError Then MessageBox.Show("تمت عملية استعادة قاعدة البيانات من النسخة الإحتياطية بنجاح", "---", MessageBoxButtons.OK, MessageBoxIcon.Information) End select End Sub
  5. السلام عليكم و رحمة الله و بركاته .. قمت بالبحث فى المنتدى عن كود vb.net 2008 يستخدم لعمل لعمل backup و restore لقاعدة بيانات sql server 2008 ولكنى كل الأكواد التى وجدتها لا تعمل مع قاعدة البيانات sql server 2008 .. أتمنى ان يضع لنا أحد الأعضاء هذا الكود او يوجهنا للموضوع الذى يشرح كيفية عمل هذا .. و شكرا لكم جميعا .
  6. السلام عليكم و رحمة الله و بركاته .. كنت أستخدم كود VB.NET لعمل نسخ إحتياطى إحتياطى BACKUP و إستعادة قاعدة البيانات مرة أخرى RESTORE لقاعدة بيانات SQL SERVER 2005 كان يعمل بشكل صحيح و عندما قمت بإستخدام نفس الكود مع تغيير قاعدة البيانات إلى SQL SERVER 2008 لم يعمل الكود بشكل صحيح .. و إلى حضراتكم الكود و رسالة الخطأ . * كود الـ BACKUP Imports System.Data Imports System.Data.SqlClient Imports Microsoft.SqlServer.Management.Common Imports Microsoft.SqlServer.Management.Smo Imports Microsoft.SqlServer Imports Microsoft.SqlServer.Server Imports Microsoft.SqlServer.Management Private Const srvrConnectionString As String = "Data Source=MOHAMED-PC\SQLEXPRESS;Persist Security Info=True;User ID=sa;Password=1900818;Connect Timeout=30" Public Sub Make_Backup() Dim bError As Boolean Dim dlgSaveFile As New SaveFileDialog() bError = False dlgSaveFile.Filter = "SQL Server database backup files|*.bak" dlgSaveFile.FileName = "paintsDB_backup" '********************************** حالة إلغاء إستعادة النسخة ********************************* select Case dlgSaveFile.ShowDialog(MDI) Case Windows.Forms.DialogResult.Cancel Exit Sub Case Windows.Forms.DialogResult.OK MDI.update() '//////////////////////////////////////////////////////////////////////////////////////////////////////// FrmLoading.LblMsg.Text = "...... جارى إنشاء النسخة الإحتياطية لقاعدة البيانات" FrmLoading.ShowDialog() '///////////////////////////////////////////////////////////////////////////////////////////////////////// 'Null إنشاء كائن الإتصال Dim sqlConnection As New SqlClient.SqlConnection(srvrConnectionString) Dim srvrConnection As New ServerConnection(sqlConnection) 'Null ربط الإتصال بالملقم Dim srvr As New Server(srvrConnection) 'Null إنشاء الكائن الذي سنستعمله لإنشاء النسخة الإحتياطية Dim bkp As New Backup() 'Null تحديد العملية في إنشاء نسخة احتياطية لكامل قاعدة البيانات bkp.Action = BackupActionType.Database 'Null تحديد اسم قاعدة البيانات bkp.Database = "paints" 'Null تعليق على النسخة الإحتياطية bkp.BackupSetDescription = "Database " + "paints" + " backup " + DateTime.Today.ToShortDateString() 'Null إسم النسخة الإحتياطية bkp.BackupSetName = "paints" + "_backup" 'Null إنشاء نسخة كاملة لقاعدة البيانات وليس فقط للبيانات التي تم تغييرها bkp.Incremental = False 'Null حساب مجموع البيانات للتأكد من صحة النسخة الإحتياطية bkp.Checksum = True 'Null اقتطاع سجل قاعدة البيانات بعد إنشاء النسخة الإحتياطية bkp.LogTruncation = BackupTruncateLogType.Truncate 'Null تحديد نوع الجهاز الذي سيتم عليه إنشاء النسخة الإحتياطية في ملف Dim bdi As New BackupDeviceItem(dlgSaveFile.FileName, DeviceType.File) bkp.Devices.Add(bdi) Try 'Null بدأ عملية إنشاء النسخة الإحتياطية لقاعدة البيانات bkp.SqlBackup(srvr) Catch ex As Exception 'MessageBox.Show("فشلت عملية إنشاء النسخة الإحتياطية لقاعدة البيانات", "--", MessageBoxButtons.OK, MessageBoxIcon.Error) MsgBox(ex.InnerException.ToString) 'MsgBox(ex.Message) bError = True End Try If Not bError Then MessageBox.Show("تمت عملية إنشاء النسخة الإحتياطية بنجاح", " ---", MessageBoxButtons.OK, MessageBoxIcon.Information) End select '********************************************************************************************** '*************************************************************************************** FrmLoading.LblMsg.Text = "...... جارى الخروج من البرنامج" FrmLoading.ShowDialog() Con.Close() 'End End Sub * كود الـ RESTORE Public Sub Restore_Backup() Dim bError As Boolean Dim dlgOpenFile As New OpenFileDialog() bError = False dlgOpenFile.Filter = "SQL Server database backup files|*.bak" '********************************** حالة إلغاء إستعادة النسخة ********************************* select Case dlgOpenFile.ShowDialog(MDI) Case Windows.Forms.DialogResult.Cancel Exit Sub Case Windows.Forms.DialogResult.OK MDI.update() '//////////////////////////////////////////////////////////////////////////////////////////////////////// FrmLoading.LblMsg.Text = "...... جارى إستعادة قاعدة البيانات من النسخة الإحتياطية" FrmLoading.ShowDialog() '///////////////////////////////////////////////////////////////////////////////////////////////////////// 'Null إنشاء كائن الإتصال Dim sqlConnection As New SqlClient.SqlConnection(srvrConnectionString) Dim srvrConnection As New ServerConnection(sqlConnection) 'Null ربط الإتصال بالملقم Dim srvr As New Server(srvrConnection) 'Null إنشاء الكائن الذي سنستعمله لاستعادة قاعدة البيانات من النسخة الإقتصادية Dim rstr As New Restore() 'Null استبدال قاعدة البيانات بأكملها rstr.Action = RestoreActionType.Database 'Null التأكد من صحة البيانات من خلال التأكد من حساب مجموع البيانات rstr.Checksum = True 'Null استكمال العملية حتى بعد حصول أخطاء في عملية الإستعادة rstr.ContinueAfterError = True 'Null اسم قاعدة البيانات التي سيتم استبدالها rstr.Database = "paints" 'Null تحديد الجهاز الذي تتواجد به النسخة الإحتياطية rstr.Devices.Add(New BackupDeviceItem(dlgOpenFile.FileName, DeviceType.File)) 'Null قاعدة البيانات الحالية سيتم استبدالها بتلك الموجودة على النسخة الإحتياطية rstr.ReplaceDatabase = True 'Null تأكيد استبدال قاعدة البيانات بأكملها و ليس جزء منها فقط rstr.Partial = False Try 'Null عملية التأكد من النسخة الإحتياطية قبل بدإ عملية الإستبدال If rstr.SqlVerify(srvr) Then 'Null إيقاف كل ماهو مرتبط بقاعدة البيانات srvr.KillAllProcesses("paints") 'Null عزل قاعدة البيانات عن الملقم srvr.DetachDatabase("paints", True) 'Null بدأ عملية استعادة قاعدة البيانات rstr.SqlRestore(srvr) End If Catch ex As Exception MessageBox.Show("فشلت عملية استعادة قاعدة البيانات من النسخة الإحتياطية", "----", MessageBoxButtons.OK, MessageBoxIcon.Error) bError = True End Try If Not bError Then MessageBox.Show("تمت عملية استعادة قاعدة البيانات من النسخة الإحتياطية بنجاح", "---", MessageBoxButtons.OK, MessageBoxIcon.Information) End select '*************************************************************************************** FrmLoading.LblMsg.Text = "...... جارى الخروج من البرنامج" FrmLoading.ShowDialog() Con.Close() End end sub أما بخصوص رسالة الخطأ فهى مرفقة فى الصورة .. مرفق الرسالتين الآتيتين MsgBox(ex.InnerException.ToString) MsgBox(ex.Message) المصغرات المرفقة
  7. مقاس ورقة فاتورة البيع

    أخى الكريم محمد فؤاد تركي أشكرك كثيرا لإهتمامك .. سوف أقوم بتجربة إقتراحك و أخبر حضرتك بالنتيجة
  8. مقاس ورقة فاتورة البيع

    أشكركم كثيرا على المساعدة .. ولكنى بحق أحتاج مساعدتكم لأن برنامجى متوقف على هذه المشكلة .. المشكلة هى أننى أريد التحكم فى طول ورقة التقرير حسب عدد الأصناف .. مثال : لو قمت بضبط إعدادات الورقة على طول 15 سم مثلا وقمت بالطباعة على 8 سم فقط فسوف تقوم الطباعة بسحب الـ 15 سم كاملا من رول الورق و هذا يسبب شكل غير لائق للفاتورة و كذلك إهدار للورق .. .... أطلب من الأعضاء الكريم ممن له الخبرة فى هذا الموضوع أن يكتب لنا موضوعا كاملا عن طباعة فاتورة البيع (receipt) باستخدام طابعة الفواتير pos
  9. مقاس ورقة فاتورة البيع

    أتمنى أن يقوم الأعضاء من لهم الخبرة فى هذا الموضوع بشرحه لنا بالتفصيل حتى تعم الفائدة علينا جميعا
  10. مقاس ورقة فاتورة البيع

    أشكرك كثيرا أخى houssam11350_11350 على إهتمامك .. و أدعوا كل من له معلومة بشأن هذا الموضوع أن لا يبخل علينا بها نظرا لإحتياجى الشديد لهذه المعلومة .. و كل عام و أنتم بخير
  11. مقاس ورقة فاتورة البيع

    أشكرك كثيرا أخى houssam11350_11350 ولكن لى إستفسار , معنى كلام حضرتك أنه إذا قمت بتصميم الفاتورة (الرسيت) وجعلت عرض الورقة حوالى 7.7 سم و أرسلته لطابعة الفواتير لن يتم الطباعة كأى طابعة أم ماذا تقصد بانها لها معاملة خاصة ؟
  12. مقاس ورقة فاتورة البيع

    السلام عليكم و رحمة الله و بركاته .. أرجوا من يتوفر له إجابة لسؤالى أن يجيبنى لحاجتى الشديدة للإجابة
  13. أقوم بتصميم تقرير عبارة عن فاتورة بيع (رسيت) على الورق المسمى 70 مم الذى مقاسه حوالى 7.7 سم والمشكلة إننى قمت بضبط عرض الورقة 7.7 سم داخل تقرير الكريستال ريبورت لكن المشكلة لا أدرى ماهو طول الورقة التى يجب ضبطه داخل التقرير لأن هذه الورقة كما تعلمون عبارة عن رول من الورق .. فمثلا إذا قمت بضبط الورقة على طول 20 سم وتم الكتابة على 10 سم فقط فى الفاتورة هل ستتوقف الطابعة عن الكتابة بعد الـ 10 سم لتكون طول الورقة المستهلكة داخل الفاتورة 10 سم ام ستكمل الطابعة خروج باقى الـ 20 سم فارغين ... أفيدونى ما هو الحل ؟؟؟؟؟؟؟؟؟؟؟
  14. لو سمحتم يا جماعة لو حد يعرف رد لسؤالى يجاوبنى لأنى محتاج الإجابة ضرورى جدا .. و جزاكم الله كل خير
  15. السلام عليكم و رحمة الله و بركاته .. مشكلتى اننى أستخدم vb.net 2008 و أستخدم الكريستال ريبورت الموجود معها .. و عندى صورة موجودة على الفورم بداخل picturebox و السؤال هنا كيف يمكننى عرض هذه الصورة داخل التقرير ( مع التأكيد أننى أستخدم الكريستال الموجود مع النسخة vb.net 2008 express)