//打開數據連接 https://www.newasp.net/soft/110660.html 下載 組件

Function connOpen()

Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _

"SERVER=localhost;" & "UID=root; PWD=root; OPTION=3; DATABASE=demo;stmt=SET NAMES GB2312"

'注意ODBC驅動版本號，現在最新的 MySQL 5.4 + ODBC 5.1

'另外可以有 DATABASE=XX，或者在程序里使用 use database 語句

'OPTION是什么作用不知道，我這里可以不寫

conn.Open

Set rs = CreateObject("ADODB.Recordset")

rs.CursorLocation = adOpenKeyset'游標位置(數據集存在服務器內存還是客戶端內存)//有警告信息可以突略 adOpenKeyset adUseNone https://blog.csdn.net/xzsfg6825/article/details/80047946

End Function

//執行記錄

Function mysql_query(sql)

Call connOpen()

conn.Execute sql

rs.Close

Set rs = Nothing

db.Close

Set db = Nothing

End Function

//獲取數據列表

Function mysql_list(sql)

Call connOpen()

rs.Open sql, conn

While rs.EOF = False '如果EOF為真，則表示"游標"已經在最后一條記錄后面。

MsgBox ("user_name:" & rs("neirong") & "||password:" & rs("time"))

rs.MoveNext

Wend

rs.Close

Set rs = Nothing

db.Close

Set db = Nothing

End Function

//寫入

Call mysql_query("INSERT INTO anjian_mysql(`id`,`neirong`) values('3','參數保存的不錯就是有提示錯誤')")

//讀取

Call mysql_list("select * from anjian_mysql")

Sub 按時進行

Do

NowTime = Time

TracePrint NowTime

SWTime = "19:45:20"//你要的設置的時間，也可作為變量隨意

If Hour(SWTime) = Hour(NowTime) and Minute(SWTime) = Minute(NowTime) and Second(SWTime) = Second(NowTime) Then

Exit Do

End If

Delay 1000

Loop

MessageBox "開始執行了"

RunApp "www.ajjl.cn"

//或者用 RunApp "IEXPLORE.EXE"

Delay 1000

Rem 選擇窗口

Hwnd = Plugin.Window.Foreground()

stemp=Plugin.Window.GetClass(Hwnd)

If stemp="IEFrame" then

MessageBox "接下來演示關閉網頁"

Call Plugin.Window.CloseEx(Hwnd)

Else

Delay 300

Goto 選擇窗口

End If

//或者用以下簡單方法

Delay 2000

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("www.ajjl.cn")

Delay 2000

MessageBox "接下來演示關閉網頁"

Hwnd=Plugin.Web.GetHwnd()

Call Plugin.Window.Close(Hwnd)

End Sub

總結

以上是生活随笔為你收集整理的mysql按键精灵接口,mysql,按键精灵,读取写入的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。