[雜事]2013-05-07 VB 實現 與mysql 連線

這是跟免費的APPSERV版本做連線

目前我的database 名稱為 history

table 為 record

可以試試看

但是記得去 "設定引用項目內 把Microsoft ActiveX Data Object 6.0 打勾









Dim adoConnS As New ADODB.Connection
Dim adoCmdS As New ADODB.Command
Dim cStrsql As String
If gConnect = "" Then gConnect = "DRIVER=MySQL ODBC 3.51 Driver;SERVER=localhost;DATABASE=history;USER=root;password=1234;OPTION=3;"
adoConnS.Open gConnect
adoCmdS.ActiveConnection = adoConnS '連結
cStrsql$ = "insert into record values('01','OK',now())"  // 我的table內設定三個欄位放東西


而 在這邊我欄位要放入  > 01   OK 還有 現在的時間now() <=至於時間要顯示到多精確就要看你的欄位給的空間多大 

adoCmdS.CommandText = cStrsql$ '新增字串
adoCmdS.Execute
adoConnS.Close

        Set connAdo = CreateObject("ADODB.Connection")
        Set R = CreateObject("ADODB.Recordset")
        connAdo.Open gConnect
        R.CursorLocation = adUseClient
        StrSQL = "SELECT *FROM record"
        R.Open StrSQL, connAdo, 1
     
        Set DataGrid1.DataSource = R


忘了說一點  記得去安裝 ADODB   上網搜尋一下 就有解答了  很多地方都有教學 這邊舊布加入