岛国福利:vbScript,VBS *.VBS脚本,如何实现数据库读写操作?

来源:百度文库 编辑:偶看新闻 时间:2024/03/29 04:51:57
使用ADO

Set Rs = GetObject("ADODB.Recordset")
GetObject("ADODB.Connection")
GetObject("ADODB.Command")
GetObject("ADOX.Catlog")
... 响应者 2:*.VBS脚本,借助ADO,实现数据库读写操作 响应者 3:1、建立与数据库的连接
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等方法操作记录集 响应者 4:‘声明变量
Dim rs,conn,aaa,bbb,ccc

‘建立数据库连接
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&"Data.mdb"
conn.open

‘创建记录集
Set rs = CreateObject("ADODB.Recordset")

‘打开数据表表
rs.Open "SELECT * FROM t_table WHERE ID = 1",conn,1,3

‘更新数据表
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