大龙全平台通用数据库6.0.2发布

ciiny2017

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



2017-10-15日更新
网盘地址：h ttps://pan.baidu.com/s/1hspc8RU