作者nina1234586 (Infinity)
看板Visual_Basic
標題[VB6 ] 將資料寫入SQL SERVER中
時間Fri Nov 6 20:01:58 2009
其實我只是要寫一個將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
1F：推 ClubT:你查一下 conn 是什麼吧 11/06 22:30
我知道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="
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)
2F：推 yves0417:沒看到加入label2資料的指令阿 11/07 16:45
3F：→ nina1234586:請問是Adodc1.RecordSource=lable2.text 嗎？ 11/07 16:57
4F：→ yves0417:rs.update前加上 rs("RFIDNO")=label2.caption 11/07 20:07
5F：→ yves0417:不然直接用SQL語法Insert就好 11/07 20:09