作者winnieboy (~砍掉重練~)
看板Database
標題[SQL ](VB) Excel更新資料後匯入linux mysql~
時間Tue May 11 17:32:16 2010
各位大哥好，因工作需求要將excel匯入mysql 及 將 mysql匯出excel
以上二個功能都做完了，但還需要一個功能就是我匯入一份Excel後，
要修改Excel上的任意數值後再匯入一次，這時就會出現錯誤。
duplicate entry 'ABA00001' for key 1
感覺是不能用rs.AddNew,但把AddNew那行註解後也是出現一樣的訊息
我使用ADO 的方式，附上程式碼 希望有高手出現 Orz....
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER=MySQL ODBC 3.51 DRIVER;SERVER=192.168.2.18;DATABASE=test;UID=root;password=123456"
conn.Open
rs.Open "SELECT * FROM User ", conn, adOpenStatic, adLockOptimistic
Do Until Res.EOF
'rs.AddNew
rs("Serial_No") = Res.Fields(0).Value
rs("PW") = Res.Fields(1).Value
rs("Manufacture date") = Res.Fields(2).Value
rs("Product name") = Res.Fields(3).Value
Res.MoveNext
rs.Update
Loop
--
http://www.wretch.cc/user/littlesafe99
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.112.211.183
※ winnieboy:轉錄至看板 Visual_Basic 05/11 17:33