DB采用的是ACCESS
tbl.Database = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\datasys.mdb;"
FrmMain.Mapmain.Layers(tname).AddRelate "theid", tbl, "theid", relWorked
tbl.Database = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\datasys.mdb;"
FrmMain.Mapmain.Layers(tname).AddRelate "theid", tbl, "theid", relWorked
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'函数功能:连接指定的数据库
'参数说明:cnnP:数据库连接对象;
' :adoP:数据集存储对象;
' :strPath:数据库路径;
' :strPassword:数据库密码;
'返回说明:True:连接成功 False:连接失败
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Public Function funConnectDataBase(cnnP As ADODB.Connection, adoP As ADODB.Recordset, ByVal strPath As _
String, ByVal strPassword As String) As Boolean
On Error GoTo errFunction
Set cnnP = New ADODB.Connection
Set adoP = New ADODB.Recordset
cnnP.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnP.Open "Data Source = " & strPath & ";jet oledb:database password=" & strPassword
funConnectDataBase = True
Exit Function
errFunction:
funConnectDataBase = False
End Function