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
هل من حل؟