国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

使用ADO

Set Rs = GetObject("ADODB.Recordset")
GetObject("ADODB.Connection")
GetObject("ADODB.Command")
GetObject("ADOX.Catlog")
...

*.VBS腳本，借助ADO,實(shí)現(xiàn)數(shù)據(jù)庫讀寫操作

1、建立與數(shù)據(jù)庫的連接
set conn = server.CreateObject("ADODB.connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&"Database/test.mdb"
conn.open
2、建立記錄集
set rs = createObject("ADODB.recordSet")
strSQL = "select userID,rChild,lChild from userInfo where userID=‘"&userID&"‘"
rs.open strSQL,conn,1,3,1
3、用rs.moveNext，rs.movePrevious，rs.moveLast，rs.moveFirst等方法操作記錄集

‘聲明變量
Dim rs,conn,aaa,bbb,ccc

‘建立數(shù)據(jù)庫連接
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&"Data.mdb"
conn.open

‘創(chuàng)建記錄集
Set rs = CreateObject("ADODB.Recordset")

‘打開數(shù)據(jù)表表
rs.Open "SELECT * FROM t_table WHERE ID = 1",conn,1,3

‘更新數(shù)據(jù)表
If Not rs.Eof Then
aaa = rs("aaa")
bbb = rs("bbb")
ccc = rs("ccc")
Else
rs.Addnew
rs("aaa") = 1
rs("bbb") = now()
rs("ccc") = "字符串"
rs.Update
End If