• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

通用所有数据库的插件，按键TC易语言VB,VC,DELPHI调用ACTIVEXDLL

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

以按键精灵调用为例，以此类推

//按键插件调用方式 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
 
//按键插件调用方式 MySQL
ret = Plugin.DL.ConnectMyDB("MySQL", "root", "1234560", "localhost", "studb", 3306,"月卡卡号")
If ret =1 Then 
       s = Plugin.DL.GetTable("SELECT * FROM 本地学员 limit 0,10 ")
       MessageBox s
       //s = Plugin.DL.InsertSQL("insert into 本地学员(stuname) values(1)")
       //MessageBox s        
       //s = Plugin.DL.UpdateSQL("update 本地学员 set stuname ='givl' where id = 1")
       //MessageBox s
      // s = Plugin.DL.DeleteSQL("delete from 本地学员 where id = 1")
       //MessageBox s
       //s = Plugin.DL.ExecSQL("insert into 本地学员 VALUES('1','1','2','3','1','2')")
       //MessageBox s
       ret = Plugin.DL.CloseMyDB  
    Else 
  MessageBox ret            
End If
 
 
//按键插件调用方式 SQL Server
ret = Plugin.DL.ConnectMyDB("SQL Server", "admin", "123456", "202.102.11.252", "datebase", 1433,"月卡卡号")
 
If ret =1 Then 
       s = Plugin.DL.GetTable("SELECT top 10 * FROM whsw  ")
       MessageBox s
       //s = Plugin.DL.InsertSQL("insert into 本地学员(stuname) values(1)")
       //MessageBox s        
       //s = Plugin.DL.UpdateSQL("update 本地学员 set stuname ='givl' where id = 1")
       //MessageBox s
      // s = Plugin.DL.DeleteSQL("delete from 本地学员 where id = 1")
       //MessageBox s
       //s = Plugin.DL.ExecSQL("insert into 本地学员 VALUES('1','1','2','3','1','2')")
       //MessageBox s
       ret = Plugin.DL.CloseMyDB  
    Else 
  MessageBox ret            
End If
 
//按键插件调用方式 SQLite
ret = Plugin.DL.ConnectMyDB("SQLite", "", "", "", "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
 
//按键插件调用方式 Access
ret = Plugin.DL.ConnectMyDB("Access", "", "", "localhost", "D:\my.accdb", 0,"月卡卡号")
If ret =1 Then 
       s = Plugin.DL.GetTable("SELECT top 10 * FROM people ")
       MessageBox s
       //s = Plugin.DL.InsertSQL("insert into 本地学员(stuname) values(1)")
       //MessageBox s        
       //s = Plugin.DL.UpdateSQL("update 本地学员 set stuname ='givl' where id = 1")
       //MessageBox s
      // s = Plugin.DL.DeleteSQL("delete from 本地学员 where id = 1")
       //MessageBox s
       //s = Plugin.DL.ExecSQL("insert into 本地学员 VALUES('1','1','2','3','1','2')")
       //MessageBox s
       ret = Plugin.DL.CloseMyDB  
    Else 
  MessageBox ret            
End If
 
//按键插件调用方式 Oracle
ret = Plugin.DL.ConnectMyDB("Oracle", "账号", "密码", "localhost", "", 0,"月卡卡号")
If ret =1 Then 
       s = Plugin.DL.GetTable("SELECT top 10 * FROM people ")
       MessageBox s
       //s = Plugin.DL.InsertSQL("insert into 本地学员(stuname) values(1)")
       //MessageBox s        
       //s = Plugin.DL.UpdateSQL("update 本地学员 set stuname ='givl' where id = 1")
       //MessageBox s
      // s = Plugin.DL.DeleteSQL("delete from 本地学员 where id = 1")
       //MessageBox s
       //s = Plugin.DL.ExecSQL("insert into 本地学员 VALUES('1','1','2','3','1','2')")
       //MessageBox s
       ret = Plugin.DL.CloseMyDB  
    Else 
  MessageBox ret            
End If
 
网盘下载
链接: https://pan.baidu.com/s/1oKn1osfUihLNEwyJ3oXRPw 密码: n4km

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi与DirectX之DelphiX(18):TDXDraw中描绘图片的命令发布时间：2022-07-18
下一篇：
Delphi操作ini文件+TStrings用法(转)发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap