您所在位置：主题：请教vb连接acces问题，谢谢
xianyunyehe
[专家分：0] 发布于 2008-05-23 16:19:00
下面是程序的部分代码
我是新手，看不懂啊
哪位大哥能帮我添加注释啊，谢谢了
'下面几个变量用于数据库连接
Public sqlstr As String
Public adoConnection As ADODB.Connection
Public adoConnection1 As ADODB.Connection
Public adoRecordset As ADODB.Recordset
Public adoRecordset1 As ADODB.Recordset
Public connectString As String
Public DBAddressTest As String
Public 企业代码 As String
Public 名称剂型代码 As String
Public 规格代码 As String
'***********************************************************
' 连接数据库并测试
'***********************************************************
Public Function testConnectDB(pathstr As String)
Set adoConnection = New ADODB.Connection
Set adoRecordset = New ADODB.Recordset
connectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathstr & ";Persist Security Info=False;Jet OLEDB:Database Password=AdmiN"
adoConnection.Open connectString
sqlstr = "SELECT * from spec"
adoRecordset.Open sqlstr, adoConnection, adOpenStatic, adLockOptimistic, adCmdText
If adoRecordset.BOF = True And adoRecordset.EOF = True Then
testConnectDB = False
Else
testConnectDB = True
End If
adoRecordset.Close
adoConnection.Close
End Function
Public Function uploadata()
Set adoConnection = New ADODB.Connection
Set adoRecordset = New ADODB.Recordset
adoConnection.Open connectString
sqlstr = "SELECT * from 企业基本情况表"
adoRecordset.Open sqlstr, adoConnection, adOpenStatic, adLockOptimistic, adCmdText
If adoRecordset.BOF = True And adoRecordset.EOF = True Then
MsgBox ("请您认真填写上报数据!")
adoRecordset.Close
Exit Function
Else
adoRecordset.MoveFirst
法人代码 = Trim$(adoRecordset![法人代码])
企业所属省份 = Trim$(adoRecordset![企业所属省份])
End If
adoRecordset.Close
adoConnection.Close
FileCopy "成本调查.mdb", 企业所属省份 & 法人代码 & ".mdb"
Shell App.Path & "\rar.exe a -pCicchENGBeNdiAOcAqi1 " & 企业所属省份 & 法人代码 & "上报数据.rar " & 企业所属省份 & 法人代码 & ".mdb ", vbNormalNoFocus
MsgBox ("打包完成。打包后的上报文件为：“" & App.Path & "\" & 企业所属省份 & 法人代码 & "上报数据.rar”"), , "打包上报数据"
End Function
我是新手，看不懂啊
哪位大哥能帮我添加注释啊，谢谢了
'下面几个变量用于数据库连接
Public sqlstr As String
Public adoConnection As ADODB.Connection
Public adoConnection1 As ADODB.Connection
Public adoRecordset As ADODB.Recordset
Public adoRecordset1 As ADODB.Recordset
Public connectString As String
Public DBAddressTest As String
Public 企业代码 As String
Public 名称剂型代码 As String
Public 规格代码 As String
'***********************************************************
' 连接数据库并测试
'***********************************************************
Public Function testConnectDB(pathstr As String)
Set adoConnection = New ADODB.Connection
Set adoRecordset = New ADODB.Recordset
connectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathstr & ";Persist Security Info=False;Jet OLEDB:Database Password=AdmiN"
adoConnection.Open connectString
sqlstr = "SELECT * from spec"
adoRecordset.Open sqlstr, adoConnection, adOpenStatic, adLockOptimistic, adCmdText
If adoRecordset.BOF = True And adoRecordset.EOF = True Then
testConnectDB = False
Else
testConnectDB = True
End If
adoRecordset.Close
adoConnection.Close
End Function
Public Function uploadata()
Set adoConnection = New ADODB.Connection
Set adoRecordset = New ADODB.Recordset
adoConnection.Open connectString
sqlstr = "SELECT * from 企业基本情况表"
adoRecordset.Open sqlstr, adoConnection, adOpenStatic, adLockOptimistic, adCmdText
If adoRecordset.BOF = True And adoRecordset.EOF = True Then
MsgBox ("请您认真填写上报数据!")
adoRecordset.Close
Exit Function
Else
adoRecordset.MoveFirst
法人代码 = Trim$(adoRecordset![法人代码])
企业所属省份 = Trim$(adoRecordset![企业所属省份])
End If
adoRecordset.Close
adoConnection.Close
FileCopy "成本调查.mdb", 企业所属省份 & 法人代码 & ".mdb"
Shell App.Path & "\rar.exe a -pCicchENGBeNdiAOcAqi1 " & 企业所属省份 & 法人代码 & "上报数据.rar " & 企业所属省份 & 法人代码 & ".mdb ", vbNormalNoFocus
MsgBox ("打包完成。打包后的上报文件为：“" & App.Path & "\" & 企业所属省份 & 法人代码 & "上报数据.rar”"), , "打包上报数据"
End Function
