- 小学二年级
- 4396027
- 45
- 0
- 5 朵
- 302 个
- 0 个
- 900
- 2017-03-26
|
1#
t
T
发表于 2017-10-18 01:20
|
|只看楼主
 - 您所在的用户组无法下载或查看附件
2.将大龙全平台通用数据库插件DL.dll放入按键的plugin文件里3.粘贴代码//按键精灵调用方式 SQLite 数据库类型,,密码,,数据库路径,ret = Plugin.DL.ConnectMyDB("SQLite", "", "12345678", "", "D:\test.db", 0)If ret =1 Then s = Plugin.DL.GetTable("SELECT * FROM people limit 0,10 ") MessageBox s //s = Plugin.DL.InsertSQL("insert into people(myname) values(1)") //MessageBox s //s = Plugin.DL.UpdateSQL("update people set myname ='givl2' where id = 3") //MessageBox s //s = Plugin.DL.DeleteSQL("delete from people where id = 3") //MessageBox s //s = Plugin.DL.ExecSQL("insert into people VALUES('1','1','2','3','1','2')") //MessageBox s ret = Plugin.DL.CloseMyDB Else MessageBox ret End If//-------------------------------------------------------------------------------------------------------------------------------//按键X调用方式 SQLite 数据库类型,,密码,,数据库路径,Import "DL.dll" DllReg (GetResPath() & "DL.dll") Dim sss = GetResPath() & "test.db" Dim ret = DL.ConnectMyDB("SQLite", "", "12345678", "", sss, 0) TracePrint ret If ret = 1 Then Dim s = DL.GetTable("SELECT * FROM people limit 0,10 ") MsgBox s //s = Plugin.DL.InsertSQL("insert into people(myname) values(1)") //MessageBox s //s = Plugin.DL.UpdateSQL("update people set myname ='givl2' where id = 3") //MessageBox s //s = Plugin.DL.DeleteSQL("delete from people where id = 3") //MessageBox s //s = Plugin.DL.ExecSQL("insert into people VALUES('1','1','2','3','1','2')") //MessageBox s ret = DL.CloseMyDB Else MsgBox ret End If //-------------------------------------------------------------------------------------------------------------------------------
数据库12345678这个密码是这么设定的呢? 请使用大龙加密工具,给数据库设定一个加密密码,千万不要忘记该密码,无法取回的。
 - 您所在的用户组无法下载或查看附件
本插件支持市面上所有的数据库,而且写法一致,没必要反复选择不同的插件来实现要求。 请加QQ群下载相关的工具 621816328
|