[VB6 ] 將資料寫入SQL SERVER中
其實我只是要寫一個將label2中的資料
寫入sql server 中 RFID資料表的 RFIDNO欄位
無奈本人資質駑鈍...沒有程式的基本sense測試了很久 但還是一直找不到錯
希望大家幫我看看 謝謝
連線的部份因為用php寫 所以就先不貼出來
Private Sub SaveData() '儲存寫入
Dim rs As ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
If AddNewStatus = True Then
rs.Open "select RFIDNO from RFID", conn, adOpenStatic, adLockOptimistic,
adCmdT
AddNewStatus = False
rs.AddNew
rs.Update
rs.Close
Set rs = Nothing
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.131.139.10
推
11/06 22:30, , 1F
11/06 22:30, 1F
我知道conn是連線
補上連線
Dim scnn As String
Dim strCnn As String
Dim Cmd1 As ADODB.Command
Dim Rst As ADODB.Recordset
登入資料庫~用php寫的
<?xml version="1.0" encoding="UTF-8"?>
<IEA:SysStates xmlns:IEA="" rel="nofollow">http://shigun.com/">
<IEA:hostname>http://203.67.46.25/RoadAll.php</IEA:hostname>
<IEA:database>
<IEA:source>192.192.xxx.xxx</IEA:source>
<IEA:name>misendb</IEA:name>
<IEA:loginUser>sa</IEA:loginUser>
<IEA:passWord>0000</IEA:passWord>
<IEA:provider>SQLOLEDB</IEA:provider>
</IEA:database>
</IEA:SysStates>
再麻煩大家看看 謝謝你們
※ 編輯: nina1234586 來自: 140.131.139.9 (11/07 14:47)
推
11/07 16:45, , 2F
11/07 16:45, 2F
→
11/07 16:57, , 3F
11/07 16:57, 3F
→
11/07 20:07, , 4F
11/07 20:07, 4F
→
11/07 20:09, , 5F
11/07 20:09, 5F