mysql, QuickMacro, Read Write

// open data connection https://www.newasp.net/soft/110660.html download components 
Function connOpen () 
the Set Conn = the CreateObject ( "ADODB.Connection") 
conn.ConnectionString = "the DRIVER = {} the MySQL the ODBC Driver 3.51 ; "& _ 
" SERVER = localhost; "&" UID = root; PWD = root; OPTION = 3; DATABASE = Demo; stmt = the SET NAMES GB2312 " 
'Note the ODBC driver version number, and now the latest MySQL 5.4 + ODBC 5.1 
' in addition there may DATABASE = XX, or use a use database statement in the program 
'OPTION What effect do not know, I can not write here 
conn.Open 
the Set rs = CreateObject ( "ADODB.Recordset") 
rs.CursorLocation = adOpenKeyset' cursor position (there is a data set or a client server memory memory) // warning message may suddenly slightly adOpenKeyset adUseNone https: //blog.csdn.NET / xzsfg6825 / Article This article was / the Details / 80,047,946 
End Function 

// execute recording 
Function mysql_query (SQL) 
    Call connOpen ()
    SQL conn.Execute 
    rs.Close 
    the Set rs = Nothing 
    db.Close 
    the Set db = Nothing 
End Function 

// Get Data list 
Function mysql_list (SQL) 
    Call connOpen () 
    rs.Open SQL, conn 
    the While rs.EOF = False 'If EOF is true, it means "cursor" has been a record behind in the final. 
        MsgBox ( "user_name:" & rs ( "neirong") & "|| password:" & rs ( "Time")) 
        rs.MoveNext 
    Wend 
    rs.Close 
    the Set rs = Nothing 
    db.Close 
    the Set db = Nothing 
End Function 
// write 
Call mysql_query ( "INSERT INTO anjian_mysql ( ` id`, `neirong`) values ( '3', ' good is saved parameters have an error')" 
Call mysql_list ( "

	

 
    nowtime = Time 
    TracePrint nowtime 
    SWTime = "19:45:20" // set the time you want, but also as a random variable 
    If Hour (SWTime) = Hour ( NowTime ) and Minute (SWTime) = Minute (nowtime) and Second (SWTime) = Second (nowtime) the Then 
        Exit the Do 
    End the If 
    Delay 1000 
Loop 
MessageBox "started up" 

the RunApp "www.ajjl.cn" 
// or use RunApp "IEXPLORE .EXE " 
Delay 1000 
Rem selection window 
Hwnd = Plugin.Window.Foreground () 
STEMP = Plugin.Window.GetClass (Hwnd) 
the If STEMP =" IEFrame "the then 
MessageBox" The next demo off page " 
Call Plugin.Window.CloseEx(Hwnd)
Else
Delay 300
Goto selection window 
End the If 
// or use the following simple methods 
Delay 2000
Plugin.Web.Bind Call ( "WQM.exe") 
Call Plugin.Web.Go ( "www.ajjl.cn") 
Delay 2000 
MessageBox "The next demo off page" 
Hwnd = Plugin.Web.GetHwnd () 
Call Plugin. Window.Close (Hwnd) 
End Sub