User user قام بنشر نوفمبر 22, 2021 مشاركة قام بنشر نوفمبر 22, 2021 (معدل) لدى 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 هذا الكود لانشاء جدول واحد تم تعديل نوفمبر 22, 2021 بواسطه User user رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر نوفمبر 22, 2021 مشاركة قام بنشر نوفمبر 22, 2021 تفضل مع ملاحظة التكرار في استعلام الانشاء ..... 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 رابط هذا التعليق شارك More sharing options...
User user قام بنشر نوفمبر 22, 2021 الكاتب مشاركة قام بنشر نوفمبر 22, 2021 (معدل) 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 بينفذ اول امر فقط تم تعديل نوفمبر 22, 2021 بواسطه User user رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر نوفمبر 22, 2021 مشاركة قام بنشر نوفمبر 22, 2021 40 دقائق مضت, User user 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 رابط هذا التعليق شارك More sharing options...
User user قام بنشر نوفمبر 22, 2021 الكاتب مشاركة قام بنشر نوفمبر 22, 2021 (معدل) من فضلك ممكن المثال 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 تم تعديل نوفمبر 22, 2021 بواسطه User user رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر نوفمبر 22, 2021 مشاركة قام بنشر نوفمبر 22, 2021 20 دقائق مضت, User user said: من فضلك ممكن المثال تفضل ..... moh.rar وهذا الفلدر به القاعدة المنشأ فيها الجداول .... ضع الفولدر في الدرايف D New folder (2).rar 2 رابط هذا التعليق شارك More sharing options...
User user قام بنشر نوفمبر 25, 2021 الكاتب مشاركة قام بنشر نوفمبر 25, 2021 في ٢٢/١١/٢٠٢١ at 15:03, ناقل said: تفضل ..... moh.rar 663.46 kB · 27 downloads وهذا الفلدر به القاعدة المنشأ فيها الجداول .... ضع الفولدر في الدرايف D New folder (2).rar 657.44 kB · 26 downloads لو جدول من الجداول المكتوبه فى الكود موجودة فى قاعدة البيانات بتظهر الخطا ده ازاى نخليه يتجاهل الموجود بنفس الاسم ويضيف الباقى رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر نوفمبر 25, 2021 مشاركة قام بنشر نوفمبر 25, 2021 هل تريدة يحذف ام ماذا ؟؟؟ ما هو الاجراء المطلوب ?? رابط هذا التعليق شارك More sharing options...
User user قام بنشر نوفمبر 25, 2021 الكاتب مشاركة قام بنشر نوفمبر 25, 2021 2 ساعات مضت, ناقل said: هل تريدة يحذف ام ماذا ؟؟؟ ما هو الاجراء المطلوب ?? يكمل عادى من غير مايحذف مثلا لو جدول asrt_tbl موجود يتجاهله ويكمل الباقى عادى رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر نوفمبر 25, 2021 مشاركة قام بنشر نوفمبر 25, 2021 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, "للمعلومية" رابط هذا التعليق شارك More sharing options...
ابو فتحى قام بنشر ديسمبر 14, 2021 مشاركة قام بنشر ديسمبر 14, 2021 ممكن نسخة 2003 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.