تقييم الموضوع :
  • 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 ك ب / التحميلات : 4)
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام و رحمة الله و بركاته

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 419 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  رسالة خطأ تظهر لي ما الحل؟ Alhootti1 3 285 28-08-23, 02:11 PM
آخر رد: ahmedabdelaliem
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 359 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي

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


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