以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  阿里API测试带入自己数据的时候有错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157566)

--  作者:dahaiforever
--  发布时间:2020/10/21 9:40:00
--  阿里API测试带入自己数据的时候有错误
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119481
学习了这个以后,想插入自己数据库中的数据,但是总是报错

图片点击可在新窗口打开查看此主题相关图片如下:123.jpg
图片点击可在新窗口打开查看

以下内容为程序代码:

1
2 \'短信验证码触发条件
3 If e.DataCol.Name = "状态" Then \'如果是已结帐列的内容变动
4 If e.NewValue = "已发" Then \'而且变动后的值是True(已勾选)
5
6 MessageBox.Show(e.DataRow("验证码") & e.DataRow("电话") & e.DataRow("客户名称")& e.DataRow("重量KG")& e.DataRow("备注")& e.DataRow("联系人"))
7 e.DataRow("发送时间")= Date.Today()
8
9 Dim product As String = "Dysmsapi" \'无需更改,官方名称
10 Dim domain As String = "dysmsapi.aliyuncs.com" \'无需更改,官方名称
11 Dim accessId As String = "LTAI4G1CzZ7Njm1apjn9ngoZ" \'更换为您的AccessKey
12 Dim accessSecret As String = "LV9ZhKnvHX0usMZqQfioEdAvM1pzxT" \'更换为您的AccessSecret
13 Dim regionIdForPop As String = "cn-hangzhou" \'无需更改,官方名称
14
15 Dim profile As Aliyun.Acs.Core.Profile.IClientProfile = Aliyun.Acs.Core.Profile.DefaultProfile.GetProfile(regionIdForPop, accessId, accessSecret)
16 Aliyun.Acs.Core.Profile.DefaultProfile.AddEndpoint(regionIdForPop, regionIdForPop, product, domain)
17 Dim acsClient As Aliyun.Acs.Core.IAcsClient = New Aliyun.Acs.Core.DefaultAcsClient(profile)
18 Dim request As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest = New Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest()
19 Dim response As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsResponse = Nothing
20
21
22 Try
23 request.PhoneNumbers = e.DataRow("电话")
24 request.SignName = "ABC商城" \'更换为您备案的短信签名
25 request.TemplateCode = "SMS_204970658" \'更换您备案的短信模板
26 request.TemplateParam = "{""code"":"e.DataRow("验证码")"}" \'如果您有可替换的标签,可以设置设置json,也可以注释掉
27 \'request.OutId = "YourID" \'这玩意暂时没用
28 response = acsClient.GetAcsResponse(request)
29 MessageBox.show(response.Message) \'这里输出发送结果."OK"就是行了.
30 Catch ex As Exception
31 MessageBox.show("短信代码有问题,请联系技术员")
32 End Try
33




--  作者:有点蓝
--  发布时间:2020/10/21 9:52:00
--  
request.TemplateParam = "{""code"":""" & e.DataRow("验证码") & """}" \'

麻烦以后直接贴代码即可,不要使用这种有行号的模式发代码,很难看

--  作者:dahaiforever
--  发布时间:2020/10/21 10:17:00
--  
收到,谢谢