TC官方合作论坛

标题: 通用任何数据库的插件·大龙数据库插件 [打印本页]

作者: ciiny2017 时间: 2018-7-24 13:53
标题: 通用任何数据库的插件·大龙数据库插件
调用示例：function button0_click()
      var path=sysgetcurrentpath()
      var DL=com("DL.DLdb")
//---------------------------------------------------------------------------------
//SQLite数据库
var FilePath = path&"测试用的部分数据库文件\\test.db"
var ret=DL.ConnectMyDB("SQLite", "", "", "",FilePath, 0)
      if(ret=1)
      var s1=DL.GetTable("SELECT * FROM people limit 0,10  ")
   messagebox(s1)

               var s2=DL.InsertSQL("insert into people(myname) values(1)")
               messagebox(s2)

               var s3=DL.UpdateSQL("update people set myname ='givl2' where id = 3")
               messagebox(s3)

               var s4=DL.DeleteSQL("delete from people where id = 3")
               messagebox(s4)

               var s5=DL.ExecSQL("insert into people VALUES('1','1','2','3','1','2')")
               messagebox(s5)

      end
      ret = DL.CloseMyDB
      messagebox(ret)
//---------------------------------------------------------------------------------
//Access数据库
var FilePath = path&"测试用的部分数据库文件\\my.accdb"
var ret=DL.ConnectMyDB("Access", "", "", "localhost",FilePath, 0)
      if(ret=1)
      var s1=DL.GetTable("SELECT top 10 * FROM people ")
               messagebox(s1)

               var s2=DL.InsertSQL("insert into 本地学员(myname) values(1)")
               messagebox(s2)

               var s3=DL.UpdateSQL("update 本地学员 set myname ='givl2' where id = 3")
               messagebox(s3)

               var s4=DL.DeleteSQL("delete from 本地学员 where id = 1")
               messagebox(s4)

               var s5=DL.ExecSQL("insert into 本地学员 VALUES('1','1','2','3','1','2')")
               messagebox(s5)

      end
      ret = DL.CloseMyDB
      messagebox(ret)
//---------------------------------------------------------------------------------
//MySQL数据库
var ret=DL.ConnectMyDB("MySQL", "root", "1234560", "localhost", "studb", 3306)
      if(ret=1)
      var s1=DL.GetTable("SELECT * FROM people limit 0,10  ")
            messagebox(s1)

               var s2=DL.InsertSQL("insert into people(myname) values(1)")
               messagebox(s2)

               var s3=DL.UpdateSQL("update people set myname ='givl2' where id = 3")
               messagebox(s3)

               var s4=DL.DeleteSQL("delete from people where id = 3")
               messagebox(s4)

               var s5=DL.ExecSQL("insert into people VALUES('1','1','2','3','1','2')")
               messagebox(s5)

      end
      ret = DL.CloseMyDB
      messagebox(ret)
//---------------------------------------------------------------------------------
   //SQL Server数据库
var ret=DL.ConnectMyDB("SQL Server", "admin", "123456", "202.102.11.252", "datebase", 1433)
      if(ret=1)
      var s1=DL.GetTable("SELECT top 10 * FROM whsw  ")
            messagebox(s1)

               var s2=DL.InsertSQL("insert into whsw(myname) values(1)")
               messagebox(s2)

               var s3=DL.UpdateSQL("update whsw set myname ='givl2' where id = 3")
               messagebox(s3)

               var s4=DL.DeleteSQL("delete from whsw where id = 3")
               messagebox(s4)

               var s5=DL.ExecSQL("insert into whsw VALUES('1','1','2','3','1','2')")
               messagebox(s5)

      end
      ret = DL.CloseMyDB
      messagebox(ret)
//---------------------------------------------------------------------------------
   //Oracle数据库
var ret=DL.ConnectMyDB("Oracle", "账号", "密码", "localhost", "", 0)
      if(ret=1)
      var s1=DL.GetTable("SELECT top 10 * FROM people  ")
            messagebox(s1)

               var s2=DL.InsertSQL("insert into people(myname) values(1)")
               messagebox(s2)

               var s3=DL.UpdateSQL("update people set myname ='givl2' where id = 3")
               messagebox(s3)

               var s4=DL.DeleteSQL("delete from people where id = 3")
               messagebox(s4)

               var s5=DL.ExecSQL("insert into people VALUES('1','1','2','3','1','2')")
               messagebox(s5)
      end
      ret = DL.CloseMyDB
      messagebox(ret)
end

QQ讨论群：621816328

大龙通用数据库插件帮助文档.chm (101.96 KB, 下载次数: 62)

作者: ciiny2017 时间: 2018-7-24 19:48
插件见附件不需要任何驱动调用任何数据库的方式相同

作者: ciiny2017 时间: 2018-7-24 19:50

插件见附件不需要任何驱动调用任何数据库的方式相同

DL.zip

3.43 MB, 下载次数: 17

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)