تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل Microsft Data Access وقت التنفيذ
#1
كاتب الموضوع : AhmedEssawy


كود :
Dim cat As New ADOX.Catalog
Dim bAns As Boolean
Try
Dim sCreateString As String
Dim databasePath As String
databasePath = Application.StartupPath() & "\Export.mdb"
sCreateString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databasePath
cat.Create(sCreateString)
bAns = True
Catch ex As Exception
bAns = False
MessageBox.Show(ex.ToString)
Finally
cat = Nothing
End Try
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كلاس Data Access Layer RaggiTech 0 2,060 17-10-12, 09:01 PM
آخر رد: RaggiTech
  كود خاص لمعرفة كلمة السر لملفات Access 97 RaggiTech 0 2,043 17-10-12, 05:14 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم