اذهب الي المحتوي
أوفيسنا

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

User user

بواسطه User user
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

User user

User user

قام بنشر
قام بنشر (معدل)

لدى 10 جداول محتاج انشائهم بالكود فى قاعدة بيانات خارجيه 
وكل جداول له بيانات مختلفة 
Dim strSQL3 As String
Dim B As New Access.Application
Set B = CreateObject("Access.Application")
B.OpenCurrentDatabase "D:\New folder (2)\Database.accdb"
strSQL1 = "CREATE TABLE asrt_tbl " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
B.DoCmd.RunSQL strSQL3
هذا الكود لانشاء جدول واحد 

تم تعديل بواسطه User user
ناقل

ناقل

قام بنشر
قام بنشر

تفضل مع ملاحظة التكرار في استعلام الانشاء ..... 

Dim strSQL3, strSQL1, strSQL2 As String
Dim B As New Access.Application
Set B = CreateObject("Access.Application")
B.OpenCurrentDatabase "D:\New folder (2)\Database.accdb"
strSQL1 = "CREATE TABLE asrt_tbl " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL2 = "CREATE TABLE asrt_tbl1 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL3 = "CREATE TABLE asrt_tbl2 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
B.DoCmd.RunSQL strSQL1
B.DoCmd.RunSQL strSQL2
B.DoCmd.RunSQL strSQL3

 

User user

User user

قام بنشر
  • الكاتب
قام بنشر (معدل)
37 دقائق مضت, ناقل said:

تفضل مع ملاحظة التكرار في استعلام الانشاء ..... 

Dim strSQL3, strSQL1, strSQL2 As String
Dim B As New Access.Application
Set B = CreateObject("Access.Application")
B.OpenCurrentDatabase "D:\New folder (2)\Database.accdb"
strSQL1 = "CREATE TABLE asrt_tbl " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL2 = "CREATE TABLE asrt_tbl1 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL3 = "CREATE TABLE asrt_tbl2 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
B.DoCmd.RunSQL strSQL1
B.DoCmd.RunSQL strSQL2
B.DoCmd.RunSQL strSQL3

 

بينفذ اول امر فقط 

Capture26.JPG

Capture27.JPG

تم تعديل بواسطه User user
ناقل

ناقل

قام بنشر
قام بنشر
40 دقائق مضت, User user said:

بينفذ اول امر فقط 

Capture26.JPG

Capture27.JPG

الان مجرب الكود ويعمل .... انظر الجداول الثلاث تم انشاؤها .... 

Dim strSQL3, strSQL1, strSQL2 As String
Dim B As New Access.Application
Set B = CreateObject("Access.Application")
B.OpenCurrentDatabase "D:\Database.accdb"
strSQL1 = "CREATE TABLE asrt_tbl " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL2 = "CREATE TABLE asrt_tbl1 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL3 = "CREATE TABLE asrt_tbl2 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
B.DoCmd.RunSQL strSQL1
B.DoCmd.RunSQL strSQL2
B.DoCmd.RunSQL strSQL3
    B.CloseCurrentDatabase
Set B = Nothing
    B.Quit

 

1.png

User user

User user

قام بنشر
  • الكاتب
قام بنشر (معدل)

من فضلك ممكن المثال 

7 دقائق مضت, ناقل said:

الان مجرب الكود ويعمل .... انظر الجداول الثلاث تم انشاؤها .... 

Dim strSQL3, strSQL1, strSQL2 As String
Dim B As New Access.Application
Set B = CreateObject("Access.Application")
B.OpenCurrentDatabase "D:\Database.accdb"
strSQL1 = "CREATE TABLE asrt_tbl " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL2 = "CREATE TABLE asrt_tbl1 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL3 = "CREATE TABLE asrt_tbl2 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
B.DoCmd.RunSQL strSQL1
B.DoCmd.RunSQL strSQL2
B.DoCmd.RunSQL strSQL3
    B.CloseCurrentDatabase
Set B = Nothing
    B.Quit

 

1.png

تم تعديل بواسطه User user
User user

User user

قام بنشر
  • الكاتب
قام بنشر
في ٢٢‏/١١‏/٢٠٢١ at 15:03, ناقل said:

تفضل .....

 

moh.rar 663.46 kB · 27 downloads

وهذا الفلدر به القاعدة المنشأ فيها الجداول .... ضع الفولدر في الدرايف D

 

New folder (2).rar 657.44 kB · 26 downloads

لو جدول من الجداول المكتوبه فى الكود موجودة فى قاعدة البيانات 
بتظهر الخطا ده 
ازاى نخليه يتجاهل الموجود بنفس الاسم ويضيف الباقى 

ta.JPG

User user

User user

قام بنشر
  • الكاتب
قام بنشر
2 ساعات مضت, ناقل said:

هل تريدة يحذف ام ماذا ؟؟؟

ما هو الاجراء المطلوب ??

يكمل عادى من غير مايحذف 
مثلا لو جدول asrt_tbl موجود يتجاهله ويكمل الباقى عادى  

 
ناقل

ناقل

قام بنشر
قام بنشر
13 دقائق مضت, User user said:

يكمل عادى من غير مايحذف 
مثلا لو جدول asrt_tbl موجود يتجاهله ويكمل الباقى عادى 

جرب الشيفرة هذه ..... 

On Error Resume Next
Dim strSQL3, strSQL1, strSQL2 As String
Dim B As New Access.Application
Set B = CreateObject("Access.Application")
B.OpenCurrentDatabase "D:\New folder (2)\Database.accdb"
strSQL1 = "CREATE TABLE asrt_tbl " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL2 = "CREATE TABLE asrt_tbl1 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
strSQL3 = "CREATE TABLE asrt_tbl2 " _
            & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _
            & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _
            & "CONSTRAINT asrt_tblConstraint UNIQUE " _
            & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));"
B.DoCmd.RunSQL strSQL1
B.DoCmd.RunSQL strSQL2
B.DoCmd.RunSQL strSQL3
    B.CloseCurrentDatabase
Set B = Nothing
    B.Quit
MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"

 

  • 3 weeks later...

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept