最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
我是怎么写的,用vb编写dll从数据表中返回array(部分源代码),请大虾过目,希望斑竹能放进精华
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
Private MyErrObj As errorCls
Private ScriptingContext As ScriptingContext
Private request As request
Private response As response
Private server As server
Private session As session
Dim dbpath
Dim DbProvider As String
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set ScriptingContext = PassedScriptingContext
Set request = ScriptingContext.request
Set response = ScriptingContext.response
Set server = ScriptingContext.server
Set session = ScriptingContext.session
Set MyErrObj = New errorCls
dbpath = server.MapPath("xx9601.mdb")
'用odbc数据源进行连接
DbProvider = "dsn=xx9601;uid=;pwd="
'DbProvider = "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
End Sub
Public Sub OnEndPage()
Set ScriptingContext = Nothing
Set request = Nothing
Set response = Nothing
Set server = Nothing
Set session = Nothing
Set MyErrObj = Nothing
End Sub
Private Function GetAll(adoCnn As ADODB.Connection, SCmd As String)
Dim adoRs As ADODB.Recordset
Dim arrayAdo()
Dim ivar
Dim jvar
On Error Resume Next
Set adoRs = New ADODB.Recordset
adoRs.Open SCmd, adoCnn, 3, 1
If adoCnn.Errors.Count > 0 Or adoRs.EOF Then
GetAll = Null
Set adoRs = Nothing
Exit Function
End If
ReDim arrayAdo(adoRs.RecordCount - 1, adoRs.Fields.Count - 1)
For ivar = 0 To adoRs.RecordCount - 1
For jvar = 0 To adoRs.Fields.Count - 1
arrayAdo(ivar, jvar) = Trim(adoRs.Fields(jvar))
Next
adoRs.MoveNext
Next
Set adoRs = Nothing
'vb6的数组赋值方式
GetAll = arrayAdo
End Function
Public Function GetToAry(PWD As Integer, SCmd As String)
-
上一个: 不知道有没有用
-
下一个: 一个win2k下启动错误的案例!
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14