白开心
IT博客
::
首页
:: ::
联系
::
聚合
::
管理
::
9 随笔 :: 76 文章 :: 28 评论 :: 0 Trackbacks
<
2024年12月
>
日
一
二
三
四
五
六
24
25
26
27
28
29
30
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
1
2
3
4
公告
独坐在路边街角,冷风吹醒,默默地伴着我的孤影。
常用链接
我的随笔
我的评论
我参与的随笔
留言簿
(12)
给我留言
查看公开留言
查看私人留言
文章分类
.Net(学习ing...)(39)
(rss)
Asp+vbScript(14)
(rss)
JavaScript(14)
(rss)
T-SQL(8)
(rss)
经典收藏(8)
(rss)
设计模式
(rss)
文章档案
2013年4月 (1)
2013年3月 (1)
2012年7月 (1)
2012年4月 (1)
2011年10月 (1)
2011年8月 (1)
2011年3月 (1)
2011年2月 (1)
2011年1月 (1)
2010年9月 (1)
2010年6月 (1)
2010年4月 (2)
2010年1月 (1)
2009年11月 (1)
2009年10月 (6)
2009年9月 (3)
2009年8月 (2)
2009年5月 (1)
2008年10月 (2)
2008年9月 (2)
2008年7月 (2)
2008年6月 (1)
2008年3月 (1)
2008年2月 (1)
2008年1月 (1)
2007年12月 (5)
2007年11月 (4)
2007年10月 (2)
2007年9月 (2)
2007年7月 (1)
2007年6月 (2)
2007年4月 (2)
2007年1月 (1)
2006年12月 (1)
2006年11月 (2)
2006年8月 (1)
2006年7月 (1)
2006年5月 (2)
2006年4月 (1)
2006年2月 (1)
2006年1月 (1)
2005年12月 (10)
相册
PhotoShop Study For HuangHuaXiang
我的相册
收藏夹
.NET(1)
(rss)
其他类别
(rss)
搜索
最新评论
1. re: JQUERY的表单异步提交[未登录]
1111111
--111
2. re: JQUERY的表单异步提交
eqedqedasd
--123
3. re: 委托和匿名函数
评论内容较长,点击标题查看
--bracelet shopping
4. re: 递归查询
您好!你的在我这里怎么执行不了啊!
--小陈
5. re: JS操作Xml的相关方法[未登录]
不能保丰到服务器上?
--11
阅读排行榜
1. 窦房折返性心动过速(928)
2. ∷∷∷∷男人感悟一百条∷∷∷∷(710)
3. 人生致命的八个经典问题(657)
4. 秋天不回来(570)
5. 圣诞(467)
评论排行榜
1. 圣诞(0)
2. 人生致命的八个经典问题(0)
3. ∷∷∷∷男人感悟一百条∷∷∷∷(0)
4. 窦房折返性心动过速(0)
5. 秋天不回来(0)
ASP访问VFP自由表学习
<
%
Call
Main
Function
Main()
Dim
filePath
Dim
cnSQL
Set
cnSQL
=
server.CreateObject(
"
Adodb.Connection
"
)
filePath
=
"
E:\NET3.5代码学习\BI学习\DBF
"
'
On Error GoTo ERRORHANDLER
cnSQL.ConnectionString
=
"
Provider=SQLOLEDB.1;SERVER=HJ\NCZERG;DATABASE=DTS;UID=sa;PWD=spider*123
"
cnSQL.Open
'
cnSQL.Open "Provider=SQLOLEDB.1;User ID=sa;password=spider*123;Initial Catalog=DTS;Data Source=."
SearchFolder cnSQL, filePath
'
ERRORHANDLER:
If
(cnSQL.State
=
adStateOpen)
Then
Response.Write(
"
<br>Close
"
)
cnSQL.Close
End
If
Main
=
DTSTaskExecResult_Success
End Function
'
get all dbf files in folder
Sub
SearchFolder(cnSQL ,Folder)
dim
fso,cnDBF,rsDBF,strDBF
Dim
objFile, objFolder
Set
cnDBF
=
Server.CreateObject(
"
Adodb.Connection
"
)
Set
rsDBF
=
server.CreateObject(
"
Adodb.RecordSet
"
)
set
fso
=
server.CreateObject(
"
scripting.filesystemobject
"
)
'
open this dbf table
strDBF
=
"
Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=
"
&
Folder
&
"
;Exclusive=No;Collate=Machine;NULL=NO
"
cnDBF.ConnectionString
=
strDBF
cnDBF.Open
'
get all files in folder
Set
objFolder
=
fso.GetFolder(Folder)
For
Each
objFile In objFolder.Files
'
MsgBox objFile.Path
If
(
Right
(objFile,
4
)
=
"
.dbf
"
)
Then
ExecuteDBF cnSQL,cnDBF,rsDBF, objFile
End
If
Next
cnDBF.Close
'
For Each objFolder In objFolder.SubFolders
'
SearchFolder objFolder
'
Next
End Sub
Public
Sub
ExecuteDBF(cnSQL,cnDBF,rsDBF,dbfPath)
Dim
Conn,ConnStr,rs,tableName,i
'
get tablename from filepath
Dim
arr
arr
=
Split
(dbfPath,
"
\
"
)
tableName
=
arr(
Ubound
(arr))
rsDBF.Open
"
select * from
"
&
tableName, cnDBF,
1
,
3
If
(rsDBF.RecordCount
>
0
)
Then
For
i
=
1
To
rsDBF.RecordCount
Response.Write(
"
<br>
"
&
rsDBF(
"
acctName
"
))
Call
ExecuteInsert(cnSQL,rsDBF(
"
acctName
"
))
rsDBF.MoveNext
Next
End
If
rsDBF.Close()
End Sub
'
insert
Public
Sub
ExecuteInsert(cnSQL, userName)
Dim
Cmd
Set
Cmd
=
Server.CreateObject(
"
ADODB.Command
"
)
with
Cmd
.ActiveConnection
=
cnSQL
'
cnSQL is connection object
.CommandText
=
"
proc_Insert
"
'
your procedure name
.CommandType
=
4
'
this is a procedure
.Prepared
=
true
'
要求将SQL命令先行编译
.Parameters.append .CreateParameter(
"
@UserName
"
,
200
,
1
,
50
,userName)
.Execute
end
with
Set
Cmd
=
Nothing
'
adBigInt: 20 ;
'
adBinary : 128 ;
'
adBoolean: 11 ;
'
adChar: 129 ;
'
adDBTimeStamp: 135 ;
'
adEmpty: 0 ;
'
adInteger: 3 ;
'
adSmallInt: 2 ;
'
adTinyInt: 16 ;
'
adVarChar: 200 ;
End Sub
%
>
posted on 2009-10-25 18:40
白开心
阅读(329)
评论(0)
编辑
收藏
引用
所属分类:
Asp+vbScript
只有注册用户
登录
后才能发表评论。
Powered by:
IT博客
Copyright © 白开心