Access是一款非常流行的關系型數據庫系統,而MySQL則是世界上最流行的開源數據庫系統之一。在某些情況下,您可能需要將Access中的數據同步到MySQL數據庫中。下面我們來介紹如何利用VBScript將數據從Access同步到MySQL。
首先,我們需要在Access數據庫中創建一個查詢來選擇需要同步的數據。保存該查詢并將查詢名稱復制到剪貼板中,稍后會用到它。
'連接Access數據庫 dim conn set conn = createobject("adodb.connection") conn.open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Administrator\Desktop\test.accdb" '選擇需要同步的數據 dim rs set rs = createobject("adodb.recordset") rs.open "select * from table1",conn,3,3 '連接MySQL數據庫 dim mysqlConn set mysqlConn = createobject("adodb.connection") mysqlConn.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=localhost;database=test;uid=root;pwd=123456" mysqlConn.Open '創建MySQL表 mysqlConn.execute "create table if not exists table1 (id int(11) NOT NULL AUTO_INCREMENT, col1 varchar(255), col2 varchar(255), col3 int(11), PRIMARY KEY (id))" '將Access中選定的記錄插入到MySQL表中 while not rs.eof mysqlConn.execute "insert into table1 (col1, col2, col3) values('" & rs(0) & "', '" & rs(1) & "', " & rs(2) & ")" rs.movenext wend '關閉數據庫連接 rs.close conn.close mysqlConn.close
上述代碼可以通過Windows計劃任務每天自動運行,以確保Access中的數據一直與MySQL數據庫保持同步。