Module Module_Sys_CMCC
Dim AccessFileName As String = "CMCC.mdb"
Dim AccFilePath As String = AppDomain.CurrentDomain.SetupInformation.ApplicationBase
Dim cFilePath As String = AccFilePath & AccessFileName
Private Sub Create_CMCC_AccFile(sFile As String)
If File.Exists(sFile) = False Then
'像这样直接创建一个mdb文件是否可行,是否是标准的Access文件?
File.Create(sFile)
End If
End Sub
Public Sub Init_CMCC_AccFile_MDB(sFile As String)
Dim sTable As New DataTable
Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFile & ";")
Dim objComm As New OleDbCommand()
Call Create_CMCC_AccFile(sFile)
'我想在这 创建/删除 Access表的操作
End Sub
End Module
我希望程序能自动创建mdb文件,并添加自己的表及初始化,定义字段...
我想求大神给我一点意见或思路...