fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"\")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str) ... ...
分类：
其他好文 时间：
2018-06-16 16:59:46
阅读次数：
134
<%set rs=server.createobject("adodb.recordset")sql="select * from [img] order by id DESC"rs.open sql,conn,1,3%><%rs.pagesize=10pagecount=rs.pagecountp ...
分类：
Web程序 时间：
2018-06-08 14:20:06
阅读次数：
217
<%'定义一个nextrs函数来找出下一篇的IDfunction nrsnrs=server.CreateObject("adodb.recordset")sql="select * from articles where id>"&a1&" order by id"set nrs=conn.exe ...
分类：
Web程序 时间：
2018-06-08 14:17:01
阅读次数：
305
<% set rss=server.createobject("adodb.recordset") ssql="select * from [dormitory] left join [allot] on allot.r_id=dormitory.r_id and dormitory.build=a ...
分类：
Web程序 时间：
2018-06-08 14:16:55
阅读次数：
249
<%set rs=server.CreateObject("adodb.recordset")sql="select * from [student_admin] order by id DESC"rs.open sql,conn,1,3%><%rs.pagesize=15'这个是显示最新的8条记录 ...
分类：
Web程序 时间：
2018-06-08 14:07:49
阅读次数：
210
以下是我用treeview控件按部门和员工显示设备领用情况代码. Option Compare Database Dim rec As New ADODB.Recordset Dim recPlant As New ADODB.Recordset Dim nodindex As Node Dim k ...
分类：
其他好文 时间：
2018-05-03 01:00:44
阅读次数：
391
Private Sub Form_Load() '引用C:\windows\system32\MSCOMCTL.OCX，否则提示出错。 Dim Rec As New ADODB.Recordset Dim stRecQL As String Dim Item As Integer Dim i As ...
分类：
数据库 时间：
2018-05-01 13:55:12
阅读次数：
215
学习Python的过程中，我们会遇到Access的读写问题，这时我们可以利用win32.client模块的COM组件访问功能，通过ADODB操作Access的文件。 1、导入模块 2、建立数据库连接 3、打开一个记录集 4、对记录集操作 5、用SQL语句来增、删、改数据 6、遍历记录 7、关闭数据库 ...
分类：
数据库 时间：
2018-04-26 14:07:47
阅读次数：
214
ECShop v2.7.2没有使用一些开源的数据库操作类，比如adodb或者PEAR，而是封装了自己的实现。这样做的好处是实现非常轻量，只有一个文件，27Kb，大大减小了分发包的文件大小。另外，当网站需要做memcached缓存时，也可以很方便的实现。当然，这样做的后果就是数据库的选择非常狭窄，无法 ...
分类：
数据库 时间：
2018-04-16 14:30:39
阅读次数：
170
在_ConnectionPtr析构的时候要将_ConnectionPtr置NULL ADODB::_ConnectionPtr conn;conn.CreateInstance(__uuidof(ADODB::Connection));.........conn.Close();conn = NUL ...
分类：
编程语言 时间：
2017-10-26 13:27:40
阅读次数：
190
