|
- 小学二年级
- 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
|
闽公网安备 35010002000112号