7,763
社区成员
发帖
与我相关
我的任务
分享
Dim strConn As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=;Initial Catalog=RSDAGLXT;Data Source=192.168.10.6"
pubConn.Open strConn
rsTable.CursorLocation = adUseClient
strSQL = "select 工号,姓名,部门名称,工作内容 from 加班信息表"
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
If rsTable.RecordCount > 0 Then
While Not rsTable.EOF
debug.print rsTable.Fields("工号")
debug.print rsTable.Fields("姓名")
debug.print rsTable.Fields("部门名称")
debug.print rsTable.Fields("工作内容")
rsTable.MoveNext
Wend
End If
'给我sql语句, 给你记录集
Public Function GetRecordset(sql As String) As ADODB.Recordset
'实例化一个cmd对象
Dim cmd As New ADODB.Command
With cmd
.ActiveConnection = Conn
.CommandType = adCmdText
.CommandText = sql
'返回值为cmd执行后的记录集
Set GetRecordset = .Execute
End With
'释放cmd的内存
Set cmd = Nothing
End Function
dim getEmpInfo as adodb.recordset
dim strSQL as string
strSQL = "select * from 员工信息表"
set getEmpInfo = getRecordset(strSQL)