记得看到过,但现在找不到了,请教各位大侠
解决方案 »
- 弱弱的请教一下关于调用DLL的问题,请各位帮忙看看
- 请问如何用truncate table 删除某个数据库中所有的表内容
- 小弟没分了,事情太重要了(对存储过程熟悉的)请进来看看!。。。我该怎么办???
- 打开的process无法被KILL掉怎么办?
- 简单的问题!
- 如何将MsFlexGrad控件中的数据,快速写入EXCEL中去?
- 如何定义和初始化一个很大的字节数组?
- 怎样给VB菜单加背景?使做出的菜单不再是单调的灰色!哪位高手指点迷津?
- 我想做一个调查,究竟来过VB版有多少人,请大家踊跃参与。
- 如何确定PictureBox中自定义坐标系统中鼠标的坐标值!
- 关于POSTMESSAGE的问题 在线等
- dll问题
注意当前数据库要和.sql里要求的一致,或者在.sql里指明了数据库,否则达不到预期结果.
opendatasource(...) 或 openrowset(...)
用法见联机手册
Const adLockOptimistic = 3
Const adCmdText = &H0001Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")strPathToTextFile = "C:\Scripts\"
strFile = "Test.txt"objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathtoTextFile & ";" & _
"Extended Properties=""text;HDR=NO;FMT=Delimited"""objRecordSet.Open "Select DISTINCT * FROM " & strFile, _
objConnection, adOpenStatic, adLockOptimistic, adCmdTextDo Until objRecordSet.EOF
Wscript.Echo objRecordSet.Fields.Item(0).Value
objRecordSet.MoveNext
Loop