一、連接：Mssql 實(shí)例
Dim rs,cmd,sql
Set rs=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
cmd.activeconnection="Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=fd_xzfw;Data source=192.168.0.111"
cmd.commandtype=1
sql="select * from zfoa_user where user_code='admin'"
cmd.commandtext=sql
Set rs =cmd.execute()
Set rs=nothing
Set cmd.activeconnection=nothing
Set cmd=nothing
二、連接：Access 實(shí)例
Option explicit
Dim Cnn ,strDb,Rst,strCnn,ilen '//定義變量
strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Ole DB Services=-4;Data Source=D:\test\test.mdb" ' //將獲得的連接字符串賦值到
Set Cnn=CreateObject("ADODB.Connection") '//生成數(shù)據(jù)庫連接對(duì)象
Cnn.Open strCnn ' //打開數(shù)據(jù)庫
Set Rst=CreateObject("ADODB.Recordset") '//生成記錄集對(duì)象
Rst.Open "select * from [user]" ,Cnn
Do While Not Rst.EOF
For iLen=1 to 3 '//我的表中只有3個(gè)字段,當(dāng)然這種方法通用性不是很好
Select Case iLen
Case 1
strDb=strDb&Rst.Fields.item(iLen)&" "
Case 2
strDb=strDb&"+ "&Rst.Fields.item(iLen)&" "
Case 3
strDb=strDb&"= "&Rst.Fields.item(iLen)
End Select
Next
strDb=strDb&chr(13)
Rst.MoveNext
Loop
Rst.Close
cnn.close
msgbox strDb
三、連接Excel 表實(shí)例
DataTable.ImportSheet "D:\test\test.xls" ,1 ,"Global"
Set mysheet=datatable.GetSheet("Global")
mysheet.setcurrentrow (1)
c=mysheet.Getparameter(1).value
msgbox c
四、連接datatable
mysheet=DataTable.GetSheet("Global")
Val=mysheet.GetParameter("pswd").ValueByRow(3)
Msgbox val
只是一部分，相關(guān)的還在整理!
