|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
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
|
|