谢谢大红袍！！！
由于我有数据需要传入对方的数据库，对方提供了以下例子，的但我不懂如何在咱们狐表软件这边实施以下代码。能否麻烦您帮助修改一下，谢谢您！
Dim bytData() As Byte
Dim Bllabel As String
Bllabel = "TF15-03K0001" '大标签
Dim Slabel As String
Slabel = "81478872,8676321" '小标签的集合 用,隔开
Dim Fwcode As String
Fwcode = "00972110097211,00972110097211" '小标签的防伪码 集合 用,隔开
Dim objHTTP As Object
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.open "GET", "http://tfgs.qn.qs12315.com/datacontrol.ashx?type=collocation&Blabel=" & Bllabel & "&Slabel=" & Slabel & "&Fwcode=" & Fwcode, False
objHTTP.send
If objHTTP.Status = 200 Then
bytData = objHTTP.responseBody
Debug.Print StrConv(bytData, vbUnicode)
MsgBox (StrConv(bytData, vbUnicode)) ' vbUnicode 防伪Y为插入成功.N:xxxxx为失败.xxxx代表失败的信息
End If
Set objHTTP = Nothing
加好友 
发短信
Post By：2015/9/7 15:29:00 [显示全部帖子]
