作者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