Option Explicit
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)
我是怎么写的,用vb编写dll从数据表中返回array(部分源代码),请大虾过目,希望斑竹能放进精华
时间: 2024-12-03 00:59:51
我是怎么写的,用vb编写dll从数据表中返回array(部分源代码),请大虾过目,希望斑竹能放进精华的相关文章
如何写SQL实现:在数据表中增加一列,该列的值是出库数的累加 (按制单日期升序累加)
问题描述 如何写SQL实现:在数据表中增加一列,该列的值是出库数的累加 (按制单日期升序累加) 如上图,在数据表中增加一列[累计出库数],累计出库数的值等于出库数的累加数(按制单日期升序累加),如何写SQL实现 解决方案 Oracle有现成的lead,lag函数 其他数据库看下面我的博客 sqlserver http://blog.csdn.net/danielinbiti/article/details/45308867 mysqlhttp://blog.csdn.net/danielinbi
读取数据表中第m条到第n条的数据,SQL语句怎么写?
原文:读取数据表中第m条到第n条的数据,SQL语句怎么写? 对于MySQL或者Oracle来说,如果实现从Table 表中取出第 m 条到第 n 条的记录操作,我们需要TOP函数(不是所有的数据库都支持TOP函数):Select Top子句 但是,你能想到几种方法? (1)使用not in Select TOP n-m+1 * FROM Table Where (id NOT IN (Select TOP m-1 id FROM Table )) (2)使用exists Selec
vb.net 结构树sql表中自动编号在另一张表中怎么能同时更新
问题描述 vb.net 结构树sql表中自动编号在另一张表中怎么能同时更新 我在用VB.NET和SQL做treeview结构树 时 数据库中有两张表 一张是结构树表 一张是结构树数属性表 结构树表的编号是自动编号的 我怎么将结构树中的自动编号 放到另一张属性表中 解决方案 两张表肯定要有主外键关联的啊,通过联表查询可得 解决方案二: 在sql中设置级联更新或者用触发器
使用vb.net,用ADO.NET,如何向Access数据表中删除一条记录?
问题描述 使用vb.net,用ADO.NET,如何向Access数据表中删除一条记录?谢谢 解决方案 解决方案二:deletefrom[表名]where[主关键字]=你要删的主关键字.解决方案三:deletefrom表where主键解决方案四:DimconAsNewSystem.Data.OleDb.OleDbConnectioncon.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;datasource=数据库文件;userid=;pass
vb.net中如何根据listbox中的项 在对应的数据表中选出相应的记录
问题描述 根据listbox中的项在表中选出记录 解决方案 解决方案二:根据listbox中的项目构造查询:...sql="select*fromtablenamewherename='"+listbox1.Text+"'";...解决方案三:...sql="select*fromtablenamewherename='"Me.ListBox1.SelectedItem.ToString"'"...解决方案四:引用2楼wuji
C# 写个应用程序 实现把SQL数据库 表中的数据 倒入 .DBF的数据库中
问题描述 点击button1实现把数据倒进VFP(*.dbf)中求大神具体办法和源码 解决方案 解决方案二:连接vfp数据库vardbname=@"D:AMPwebVFP";//dbf文件所在目录varconn=newOleDbConnection(string.Format(@"provider=VFPOLEDB.1;SourceType=DBF;datasource={0};userid=admin;password=",dbname)); 其他一个select
asp.net(vb)为什么我单击提交留言时没有把留言信息执插入数据表中???
问题描述 事件代码:subpostarticle(senderasobject,easeventargs)dimconnasnewoledbconnection()conn.connectionstring="provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("guestbook.mdb")conn.open()dimartidasintegerdimcmdasnewoledbcomma
新人求助:关于使用VB编写ActiveX DLL
问题描述 问题一:请问在VS2003上怎么用VB编写ActiveXDLL(在其VB项目中没有这个选项).问题二:如果使用VB6.0编写ActiveXDLL,那么在类模块中,写构造函数.写属性.写委托等的声明时候都报错,请问这是什么原因?如下图:另外如果,要为当前类模块添加一个命名空间,如何添加?(我需要在另一个VB.net程序中引用该DLL)如下图这是DLL被引用的情况(VS2003中)这是我自己新建的VB6.0的ActiveXDLL 解决方案 解决方案二:一:(我只有VS2008,界面应该查不
vb.net下 编写.DLL的问题
问题描述 我想在VB.NET下编写.DLL之前从未写过.DLL有没有相关的资料希望能介绍一下谢了! 解决方案 解决方案二:写出来的dll只能被.net用,不好用啊解决方案三:我试着简单的写了一个在VB.NET下的DLL命名为A.DLL,写了两个函数,没有参数ImportsSystem.Runtime.InteropServices<ComClass()>PublicClassClassAPublicFunctionFA()Asstring'函数过程EndFunctionPublicFuncti