Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.107;DATABASE=wp_core;user id=root; password=45retret4"
Conn.open str
Set Rs = CreateObject ("ADODB.Recordset" )
select_role_id="select * from `wp_core`.`wp_role` limit 0, 5000"
rs.open select_role_id,conn,1,3
if (not Rs.eof) then
role_id=rs(0)
msgbox(role_id)
rs.fields("id")=8888
rs.update
end if
rs.addnew
rs.fields("id")="8888"
rs.fields("name")="zhouruijun"
msgbox(rs(0))
msgbox(rs(1))
rs.update()
Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing
[ 本帖最后由 小宝2006 于 2006-9-18 15:30 编辑 ]