用 sqlinsertfile 在二进制字段中 插入图片文件 时报错，显示 “=附近有语法错误”，该如何处理呢，谢谢！
Dim purl As String=""
Dim weurl As String=""
Dim gdid As String=""
Dim mphone As String=""
Dim i As Integer=1
For Each dr As DataRow In DataTables("chinatea_poi_wechat").DataRows
i=i+1
If i>5
Return
End If
purl=dr(“purl”)
weurl=dr(“avatar”)
gdid=dr("gdid")
mphone=dr("mphone")
If len(purl)>20 Or len(weurl)>20
Dim drimage As DataRow
drimage=DataTables("cn_gd_poi_image").addnew()
drimage("gdid")=gdid
drimage("mphone")=mphone
datatables("cn_gd_poi_image").save()
If len(purl)>20
Dim hc As New HttpClient(purl)
If hc.GetFile("d:\chinateacrm\temp\shop.jpg") Then
MessageBox.show("shop文件下载成功","提示")
Dim filename As String="d:\chinateacrm\temp\shop.jpg"
drimage.SQLInsertFile("storepic",filename)
Else
MessageBox.show("shop文件下载失败","提示")
End If
End If
If len(weurl)>20
Dim hc1 As New HttpClient(weurl)
If hc1.GetFile("d:\chinateacrm\temp\wechat.jpg") Then
MessageBox.show("文件下载成功","提示")
drimage.SQLInsertFile("wepic","d:\chinateacrm\temp\shop.jpg")
Else
MessageBox.show("文件下载失败","提示")
End If
End If
End If
Next
output.show("end")
加好友 
发短信
Post By：2020/8/19 22:36:00 [显示全部帖子]
