Ret = Plugin.Access.Connect(path,"")
If RET = true Then
Form1.短信1.Text="连接数据库成功"
原ID = Plugin.Access.SelectData("MSG_Inbox", "max(ID)", "MMSUrl='" &num &"'")
Do
新ID = Plugin.Access.SelectData("MSG_Inbox", "max(ID)", "MMSUrl='" &num &"'")
If 新ID = 原ID Then
Delay 5000
Else
Form1.短信老.Text=Form1.短信老.Text&"提取前"&新ID&VBCrLf
新ID = Lib.算法.提取字串符中所有数字(新ID)
Form1.短信老.Text=Form1.短信老.Text&"提取后"&新ID&VBCrLf
yzm = Plugin.Access.SelectData("MSG_Inbox", "MsgTitle","ID="&新ID)
If instr(yzm,"百度")>0 Then
Form1.短信1.Text=yzm
Exit Do
Else
Form1.短信1.Text="【获取到不是来自百度的短信???】"&VBCrLf&yzm
Exit Do
End If
End If
Loop
Ret = Plugin.Access.Close()
End If
1、新建或者打开要连接数据库的脚本。在下面的Global数据域中或者本地数据表中任选一个表格后,点击鼠标右键依次选择“数据表”“导入”“来自数据库”;
2、点击“创建”,打开选择数据源页,选择“机器数据源”,点击“新建”;
3、点击下一步打开选择数据源驱动程序页,选择完成后点击下一步;
4、名称字段可以任意命名,服务器为数据库所在非服务器地址等信息后,点击下一步;
5、选择“使用用户输入登陆ID和密码的SQL Server验证”,录入要连接数据库的用户
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)