[أبو نوره]

(06-08-17, 01:52 AM)سعود كتب :

بعد اضافة الريفيرنس  كما بالصورة اعلاه
كتبت الكود

كود :

Public Function cdb(ByVal DatabaseFullPath As String) As Boolean
       Dim bAns As Boolean
       Dim cat As New ADOX.Catalog()
       Try

           Dim sCreateString As String
           sCreateString =
                          "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & _
                          DatabaseFullPath & ";Jet OLEDB:Database Password=pass;"
           cat.Create(sCreateString)

           bAns = True

       Catch Excep As System.Runtime.InteropServices.COMException
           bAns = False

       Finally
           cat = Nothing
       End Try
       Return bAns
   End Function

لاحظت انه ينشيء ملف اكسس قديم 
هل من حل؟

مرحبا اخي سعود

قصدك ايه بالاكسس القديم؟

   


  newdb.rar (الحجم : 265.5 ك ب / التحميلات : 63)