社区
VB基础类
帖子详情
请问在VB中Server.Create("ADODB.Steam")中应怎样使用呢
maxid
2004-07-31 05:46:14
如题,是要调用Microsoft ActiveX Data Objects Library吗?然后呢
...全文
105
6
打赏
收藏
请问在VB中Server.Create("ADODB.Steam")中应怎样使用呢
如题,是要调用Microsoft ActiveX Data Objects Library吗?然后呢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
maxid
2004-08-01
打赏
举报
回复
不同啦,虽然是子类,但我刚学VB啦,手头上没有多少这方面的资料
zcm123
2004-07-31
打赏
举报
回复
-_-asp是vb的“子类” 你可以把vbs部分提取出来在vb中是用阿
hhjjhjhj
2004-07-31
打赏
举报
回复
参见ADO帮助文件
C:\Program Files\Common Files\Microsoft Shared\OFFICE11\2052\ADO210.CHM
maxid
2004-07-31
打赏
举报
回复
我是想知道在VB中(不是asp,vbs,vba)如何可以使用adodb.stream.........
maxid
2004-07-31
打赏
举报
回复
.................楼上的兄弟,你你......你看清题目了吗?
zcm123
2004-07-31
打赏
举报
回复
一个例子
目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本
最关键的是没有10行代码以下的 :)
我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传:
strFileName = Request.QueryString("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server."123_onweb.gif",2
使用方法:
把上面的代码写成upload.asp
在浏览器里面输入:
http://XXX/upload.asp?file1=c:\上传文件\123.gif
XXX为你的主机地址
执行完后你会看到你的目录下面多了一个123_onweb.gif
他就是你要文件拉!!!!
根据原理我们可以扩展以下代码:
upload.asp文件
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
strFileName = Request.Form("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%>
upload.htm文件
<form name="FORM" action="upload.asp" method="post">
<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</form>
ADO
DB
.rar_
ado
ado
db
_
ado
db
ado
_
vb
sql
server
vb
ADO
方式,连接SQL
SERVER
数据库。
VB
连接sql
server
数据库
Dim rs As New
ADO
DB
.Recordset s = "Driver={SQL
Server
}; Database=trsip; UID=sa; PWD=oall
server
;
Server
=10.47.1.12 " conn.ConnectionString = s conn.Open txtsql = "select top 1 * from book" Set rs...
VB
连接SQL数据库示例
VB
连接SQL数据库示例 建一个工程,建立一个form1,form1
中
的代码如下: Dim rsNew As
ADO
DB
.Recordset Dim CnNew As
ADO
DB
.Connection Dim wsh As New WshShell Dim
server
link As String Private Sub Command1_Click()
Rich Explorer 3.1.1
支持四种数据库:Access(
ADO
DB
, KADAO, Diamond), Interbase(未完善), Oracle(DOA, ODAC),
Db
isam。支持更换贴子显示风格,还可自定义(从论坛下载或自己写XSL),用Access与Oracle数据库的速度都还可以,
Db
isam也过得...
VB
6
ADO
DB
.RecordSet
为了更精确地跟踪数据,要用RecordSet组件创建包括数据的游标,游标就是... 在RecordSet组件
中
,经常
使用
的属性和方法有: rs.Fields.Count:RecordSet对象字段数。 rs(i).Name:第i个字段的名称,i为0至r...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章