51Testing软件测试论坛

标题: 谁能干什么我这个代表什么 [打印本页]

作者: haihai1005 时间: 2007-7-4 21:30
标题: 谁能干什么我这个代表什么
Set cnn=createobject("adodb.connection")
Set objrsa=createobject("adodb.recordset")
cnn.open "provide=local;userid=administrator;password=123456789;data source=Test"
objrsa.open "select name ,pwd from users",cnn,2,2

objrsa.open "select name ,pwd from users",cnn,2,2 那个 CNN后面跟的2, 2 到底是什么意思 ,小弟真的不明白了还望高手知道,还有就是怎么在数据库中添加数据sdlkfj1

作者: rivermen 时间: 2007-7-5 09:26
Set conn= createobject("ADODB.Connection")
Set res= createobject("ADODB.Recordset")

conn.Open dbstr
res.Open sql ,conn,2,2

res.MoveFirst
MsgBox "Name: "& res("name") & VbCrLf & "Age: " & res("age") & VbCrLf & "Tel: " & res("Tel"),,"www.51testing.com"
res.AddNew
res("name")="王五"
res("age")="34"
res("Tel")="33445566"
res.Update
res.close
Set res=Nothing
Set conn=Nothing

作者: rivermen 时间: 2007-7-5 09:27
res.Open sql ,conn,2,2
好像是锁定数据库，操作期间没有其他操作干扰

作者: rivermen 时间: 2007-7-5 09:28
conn="Provider=MSDASQL.1;Persist Security Info=False;Data Source=QT_Flight32"
sql="delete  from Orders where Customer_name='111'"
Set res=nothing

OpenDB conn,sql,res

  '进行delete、update操作后，recordset对象是关闭的，即rs_news.Close不用写了
  CloseDB

'#################################################################
'#################################################################
' 连接数据库子程序
' 第一个参数：根据数据库的类型，设计连接字符串（参见udl文件）
' 第二个参数：连接数据库之后，进行查询的相应语句
' 第三个参数：查询记录返回到res
Sub OpenDB(conn,sql,res)
Set cnn=CreateObject("adodb.connection")
cnn.open conn
Set res=CreateObject("adodb.recordset")
res.open sql,cnn,1,1

End Sub

'#################################################################
'#################################################################
' 关闭数据库的连接
sub CloseDB
Set res=nothing
Set cnn=nothing
end sub

作者: 阅微草人 时间: 2007-7-5 09:53
http://www.51testing.com/?45405/ ... e_itemid_11735.html
你看一下就明白了。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)