Dim conn Dim name Dim suu Dim inn '檢查字段 SystemUtil.Run "http://192.168.0.233/web/guest/home" '這一段就是復制當時記事本里的那一段語句 這段語句有個問題就是 自己要手動往里添加用戶密碼噢 所以我再里面加了一個Password=1111 Mysql="Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Password=1111;Data Source=sqltest" 'select screenName,screenName from user_ where screenName like 'test__'; '這段話表示說 搜索數據庫內 USER_ 表內 screenName，screenName 這2個列里面所有包含 test 的數據 sql="select screenName,greeting from user_ where screenName like 'test__';" Set conn=CreateObject("ADODB.CONNECTION") conn.Open Mysql If conn.State<>0 Then Reporter.ReportEvent micPass,"連接成功","連接成功" else Reporter.ReportEvent mimicFail,"連接失敗","連接失敗" End If Set res=CreateObject("ADODB.Recordset") res.Open sql,conn,1,1 '1,1表示只讀;1,3表示插入數據;2,3表示修改數據 res.MoveFirst'使游標指向第一個記錄 sum="" 'res.EOF表示游標到達最后一行 While Not res.EOF '讀取整個表內的所有數據 ' For i=0 to res.Fields.Count-1'str.Fields.Count表示字段個數 ' sum=sum& res(i) & " " '把整個記錄顯示出來 ' Next |