AdodcForAttendanceCheck 怎么定义的?
解决方案 »
- 讨论:浅谈winsock ConnectionRequest事件
- 各位看看这是用的什么控件?
- 如何反编译呢
- 如何向一个窗体发送最大化消息?
- 日期型数据存入数据库出错啦,高手帮指点下吧
- vb怎么样才能使得datagrid控件能直接在datagrid控件里面直接修改
- 为什么每次重新编译ActiveX控件,控件的ID会改变,用的是VB6
- SysListView32控件
- 张榜:打包问题,寻求良医。悬壶济世的人,到哪去了???
- 帮帮忙,我是一个vb初学者,能提供一些小型项目供我开发??
- to lihonggen0(用VB): 打印方向还是设定不了,请指点!
- 谁能给我一个从PicBox里把图标拖曳到ListView里的例子?
Public Sub adoconnect1(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition As String)
MyError = False
Dim MyCnn As ADODB.Connection
Dim MyConnectString As String
Dim sql As String
On Error GoTo localerr '出错处理
' 打开连接。
MyPath = App.Path + "\database\"
MyConnectString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source= " & MyPath & MyDatabase 'D:\czvb\suneastmanage\AttendanceCheck\1\database\main.mdb" '
Set MyCnn = New ADODB.Connection
MyCnn.Open MyConnectString
'先关闭
'建立RecordSet
Set AdodcForAttendanceCheck = New ADODB.Recordset
AdodcForAttendanceCheck.CursorLocation = adUseClient
AdodcForAttendanceCheck.LockType = adLockOptimistic
If MySQLCondition = "" Then
temp = "SELECT top 100 " & MyFields & " FROM " & MyTable & MySQLCondition
Else
temp = "SELECT " & MyFields & " FROM " & MyTable & MySQLCondition
End If
MyMain.Text4.Text = temp
AdodcForAttendanceCheck.Open temp, MyCnn
t = AdodcForAttendanceCheck.RecordCount
Exit Sub '正常退出
'异常处理1:连接出错,仅给出提示
localerr:
MsgBox "出错啦!哈哈."
MyError = True
End Sub