[السيد الغالي]

(26-04-17, 05:03 PM)أبوسعود كتب : Dim strCon As String
Dim DataFile As String
Dim cn As ADODB.Connection
Dim cat As New ADOX.Catalog ماالمقصود هنا بـcatalog
Dim NewTable As ADOX.Table
Dim Indx As ADOX.Index
Dim a
   
  On Error GoTo TableErr
 
  DataFile = App.Path + "\db1.mdb"
  Set cn = New ADODB.Connection
  strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataFile & ";"
  cn.Open strCon
  Set cat.ActiveConnection = cn مالمقصود هنا
  Set NewTable = New ADOX.Table
تحديد اسم الجدول في قاعدة البيانات ويجب ان يكون غير موجود أصلاً في قاعدة البيانات
  a = InputBox("حدد اسم الجدول يجب ان يكون غير موجود في قاعدة البيانات")

  NewTable.Name = a
   
  'انشاء الحقول في الجدول
  With NewTable.Columns
     .Append "id", adInteger  عدد صحيح طويل
     .Append "EmployeeName", adVarWChar, 30 'نص
     .Append "City", adVarWChar, 20 ''نص
     .Append "Address", adVarWChar, 40 'نص
     .Append "Phone", adVarWChar, 15 'äنص
       
     With !id
        Set .ParentCatalog = cat ما المقصود هنا
        .Properties("Autoincrement") = True  'ترقيم تلقائي
     End With
       
     With !EmployeeName
        Set .ParentCatalog = cat
        .Properties("Nullable") = False ما المقصود هنا
        .Properties("Jet OLEDB:Allow Zero Length") = False ما المقصود هنا
     End With
  End With
   
  cat.Tables.Append NewTable 'حفظ الجدول
 
  Set Indx = New ADOX.Index  'لانشاء مفتاح اساسي
  Indx.Name = "PrimaryKey"
  Indx.PrimaryKey = True
  Indx.Columns.Append "id" ما المقصود هنا
  NewTable.Indexes.Append Indx ما المقصود هنا
 
  Set Indx = Nothing
  Set NewTable = Nothing
  Set cat = Nothing
  Exit Sub
   
TableErr:
  MsgBox "هذا الجدول موجود في قاعدة البيانات"
أخي الكريم اضفتلك جملة ما المقصود هنا بالكود الذي لم أفهمه يرجى الرد من قبلك
ولو تكرمت علي بكود إنشاء قاعدة بيانات بدون كلمة مرور وإنشاء قاعدة بيانات مع تمكين كلمة مرور
مشكور يا غالي

اخي العزيز ابو سعود السلام عليكم
فيما يخص تساؤلاتك اعلاه اطلع على الموضوع على الرابط 
http://arabteam2000-forum.com/index.php?...9%84-adox/
اما فيما يخص طلبك بانشاء قاعدة بيانات بكلمة مرور واخرى بدون كلمة مرور فستجدها في المرفقات