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

الرجاء الاطلاع على الملف المرفق و الخاص بتكوين قاعجة بيانات اثناء تشغيل الكود

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

أرجو منكم المساهمة في حل المشكلة

الكود هو التالي و السطر الذي يعطي الخطأ موضح


كود :
Option Explicit

Private Sub Command1_Click()

With CD1
.ShowSave
End With

CreateMyDatabase CD1.FileName

End Sub

Sub CreateMyDatabase(DB_Name As String)

Dim wrkDefault As Workspace
Dim dbsNew As Database '======== here is the error
Dim prpLoop As Property
Dim Resulte
Set wrkDefault = DBEngine.Workspaces(0)


Set dbsNew = wrkDefault.CreateDatabase(DB_Name, _
dbLangGeneral, dbEncrypt)


dbsNew.Close


CreateMyTableS DB_Name


Set dbsNew = Nothing
Set wrkDefault = Nothing

End Sub

Sub CreateMyTableS(DBName)
Dim dbsMyData As Database
Dim tdfNew1 As TableDef
Dim tdfNew2 As TableDef
Dim tdfNew3 As TableDef
Dim relNew As Relation
Dim idxNew1 As Index
Dim idxNew2 As Index

Set dbsMyData = OpenDatabase(DBName)

With dbsMyData

Set tdfNew1 = dbsMyData.CreateTableDef("TB")

With tdfNew1
.Fields.Append .CreateField("Number", dbInteger)
.Fields.Append .CreateFiled("Name", dbText)
End With
dbsMyData.TableDefs.Append tdfNew1
End With
End Sub

شكرا


الملفات المرفقة
.zip   DB deep.zip (الحجم : 2.44 ك ب / التحميلات : 3)
الرد
تم الشكر بواسطة:
#2
وعليكم السلام و رحمة الله و بركاته

أهلا بك أخي الكريم , تم تعديل المثال وتم إضافة المكتبة DAO 3.6 للمثال .


الملفات المرفقة
.rar   DB deep_1.rar (الحجم : 2.12 ك ب / التحميلات : 3)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: sendbad100 , ahmed.m , AbdoDabak
#3
بوركت اخي الكريم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن انشاء عمود لقاعدة بيانات جاهزة اثناء التشغيل gonm64 8 164 30-11-19, 11:28 PM
آخر رد: gonm64
Question [vb6.0] هل يمكن استخدم كاميرة الحاسب في تصور الموظفين وحفظ الصورة بقاعدة بيانات برنامجي ؟؟ Microformt 4 695 08-11-19, 09:28 PM
آخر رد: Benmouha
  استفسار : كيف يمكن تغيير إسم جدول ما فى قاعدة بيانات باستخدام البيسيك؟ مبرمج مصرى 3 148 19-10-19, 10:01 AM
آخر رد: مبرمج مصرى
  كيف يمكن حفظ بيانات الكتابة اليديوية في اداة flexgrid gonm64 4 176 30-09-19, 01:13 AM
آخر رد: gonm64
  كيف يتم نقل حقل من جدول الى جدول اخر في نفس قاعدة البيانات gonm64 23 693 18-08-19, 09:33 PM
آخر رد: gonm64
  سؤال عن حفظ صورة في مجلد وحفظ مسارها في قاعدة بيانات اكسس محمد حمد محمد سليمان 5 349 15-08-19, 07:52 PM
آخر رد: محمد حمد محمد سليمان
  نقل بيانات جدول الى قاعدة بيانات اخرى princeofislam 4 276 10-08-19, 09:52 AM
آخر رد: princeofislam
  [سؤال] برنامج يحتوي على اكثر من قاعدة بيانات trojan131 7 373 30-07-19, 05:22 PM
آخر رد: trojan131
  راسال ةاستقبال صورة من قاعدة بيانات اكسس الي الايميل محمد حمد محمد سليمان 0 198 23-06-19, 12:46 AM
آخر رد: محمد حمد محمد سليمان
  [vb6.0] حل مشكلة حفظ الصورة في ملف وليس على قاعدة البياناتDataBase عبدالقادرعواد 4 658 19-06-19, 12:01 PM
آخر رد: مصمم هاوي

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


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