تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أرجو مساعدتكم في مشروع سجل المواليد
#1
السلام عليكم
أعتذر عن الإزعاج ولكني أرجو مساعدتكم في مشروع فيجوال ستوديو 2008 وهو الأول لي ومطلوب مني من الإدارة

عندي مشكلة
أنا بصمم برنامج معاه قاعدة بيانات (Database1) وهي من داخل الفيجوال استوديو 2008 وليس عن طريق الأكسس أو الSQL وعملت حزمة البرنامج بالطريقتين Publish و Setup Wizard

في الطريقة Publish بعد تكوين الحزمة وإضافة الأدوات المساعدة مثل الSQL و Crystal Report وإنشاء الحزمة .. وبعد تسطيبها في كمبيوتر العميل يقول لي بأنه لا يجد ملف قاعدة البيانات ولم أجد البرنامج أساسا ف ال Program Files

في الطريقة Setup Wizard عن طريق مشروع جديد تم تحديد المكان ووضعت فيه الملف الخاص بقاعدة البيانات وأيضا الأدوات المساعدة مثل الSQL و Crystal Report وغيرها من الأدوات وبعد تثبيت البرنامج على كمبيوتر العميل وجد البرنامج قاعدة البيانات وكل شئ ولكن المشكلة أنه عند إدخال أو تعديل أو حذف أي بيانات لا يتم حفظها وأجد قاعدة البيانات كماهي لم يضاف إليها أي جديد أو تعديل على الرغم من أنه لا تظهر أي رسالة خطأ

ثانيا:
أريد إضافة Button عن طريقه يقوم بإنشاء نسخ إحتياطي متكرر لقاعدة البيانات ويتغير إسم النسخ بإضافة التاريخ أوتوماتيكيا

ثالثا:
في طريقة Setup wizard تظهر رسالتين في خانة الWarnings:
Warning 1: Invalid language characters in property 'Dependencies

Warning 2: Invalid language characters in property 'Files'

أرجو مساعدتكم
وشكرا جزيل
ا
الرد }}}
تم الشكر بواسطة:
#2
لم تخبرتنا عن نوع قاعدة البيانات آكسس أم سيكوال سيرفر .

بفرض أنها آكسس :

طبق التالي (سواء آكسس أم سيكوال سيرفر ) :



يقوم البرنامج في كل تشغيل بنسخ قاعدة البيانات الفارغة لمساره الافتراضي ، لذلك تجد قاعدة البيانات فارغة ، بطبيق ما في الصورة لا يتم ذلك .

ثانيا (لآكسس) :
كود :
Private Sub BackupDatabase()
        Dim MyDatabaseName As String = "Database1"
        Dim DatabasePath As String = Application.StartupPath & "\Database1.mdb"
        Try

            Using sfd As New SaveFileDialog

                With sfd
                    .CheckFileExists = True
                    .CheckPathExists = True
                    .FileName = MyDatabaseName & "-" & Date.Now.ToString("yyyyMMdd") & ".mdb"
                    ' النتيجة حتكون =  Database1-20130307.mdb
                    .Filter = "Microsoft Access Database (*.mdb)|*.mdb"

                    If .ShowDialog = Windows.Forms.DialogResult.OK Then
                        My.Computer.FileSystem.CopyFile(DatabasePath, .FileName, False)
                        MsgBox("تم نسخ قاعدة البيانات بنجاح")
                    End If

                End With

            End Using

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Backup Database")
        End Try
    End Sub

ثالثاً :

يبدوا أنك كتبت باللغة العربية في خصائص الـ Setup وهذا ما لا يقبله (اكتب بالانجليزي فقط) .


والله أعلم
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة: Ahmed-IT
#3
أشكرك على الرد م.Kslawy

أنا عامل قاعدة البيانات من داخل الفيجوال استوديو وبالتالي تم إنشاءها سيكوال سيرفر لأني وجدت ملف قاعدة البيانات من نوع mdf

ثانيا ف أول تجربة بالفعل قمت بالكتابة بالعربي في خصائص الSetup ثم غيرتها مرة أخرى إلى الإنجليزية
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم