VB连接SQL SERVER实例
2024-05-31 04:11:38
简易vb连接sql server实例
需引用Microsoft ActiveX Data Objects
```vbnet
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5'联盟订单回撤
Private Sub Command1_Click()If connT = True ThenDim aa = Text1.TextIf Mid(a, 1, 6) = "LIFEMG" ThenSQL = "update AskForm set State=0 where billno='" & a & "';"RunSQL (SQL)ElseText1.Text = "输入单号！！！LIFEMG开头"End IfElseMsgBox ("当前数据库无法连接，请尝试连接测试后重试！")End If
End Sub'找回消失的批发销售单
Private Sub Command3_Click()If connT = True ThenDim bb = Text6.TextIf Mid(b, 1, 3) = "XHC" ThenSQL = "INSERT INTO PFSALEDETAIL SELECT PFSaleNo,SerialNo,PluCode,BarCode,PluName,CargoNo,Spec,ProdArea,Punit,Pcount,Unit,Price,Jprice,NetJPrice, OrnPrice,ZkRate,PFPrice,Counts,ZpCount,PFTotal,ZRTotal,Cost,NetCost,Total,JtaxRate,Tag,DepName,DepCode,Remark, ItemCnt,SglCount,OrnPFTotal,YSTotal,RtnTotal,RtnRate,PluDscTotal,ShareTotal,DscCode,AuthNo,null,null,null,null,null,null,0,0,0,0 FROM PFSaleDetail2 b WHERE b.PFSaleNo='" & a & "';"RunSQL (SQL)ElseText6.Text = "输入单号！！！XHC开头"End IfElseMsgBox ("当前数据库无法连接，请尝试连接测试后重试！")End If
End Sub'连接测试按钮
Private Sub Command2_Click()ipadd = Text2.Textdbase = Text3.Textdbpwd = Text4.TextCall ConnectToDataBase
End Sub'直接执行SQL
Private Sub Command4_Click()If connT = True ThenSQL = Text5.TextDim SpwdSpwd = "password"If (Spwd = InputBox("请输入密码确认,本操作无法回撤", "谨慎操作，非专业人士勿动", "Input password to continue!", 7000, 7000)) ThenMsgBox ("密码正确，继续操作")RunSQL (SQL)ElseMsgBox ("密码错误，非IT请勿操作")End IfElseMsgBox ("当前数据库无法连接，请尝试连接测试后重试！")End If
End Sub'其他用户正在进行日结帐
Private Sub Command5_Click()If connT = True ThenSQL = "delete from SysCfg where Section='SYSTEM' and ItemName='OVER';"RunSQL (SQL)ElseMsgBox ("当前数据库无法连接，请尝试连接测试后重试！")End If
End SubPrivate Sub Command8_Click()Call ShellExecute(Me.hWnd, "open", "http://222.72.136.234:8085/knowledgeQA/forum.php", "", "", SW_SHOW)
End Sub'通讯报错：分公司批发销售需先同步商品资料
Private Sub Command9_Click()If connT = True ThenSQL = "Truncate table tDRPInfSkuPlu;Truncate table Goods;Update tWebComCtrl set InCreValue=0 where ItemCode='31001';Exec pRcvPlu 01,31001,out;insert into Goods Select * from Goods_bak where Not exists (select 1 from Goods where PluCode= Goods_bak.PluCode);"RunSQL (SQL)ElseMsgBox ("当前数据库无法连接，请尝试连接测试后重试！")End If
End Sub'窗口初始化
Private Sub Form_Load()connT = Falseipadd = Text2.Textdbase = Text3.Textdbpwd = Text4.Text'Call Command2_Click
End SubPublic Sub Text1_Click()If Text1.Text = "输入单号 LIFEMG......" ThenText1.Text = ""End If
End SubPrivate Sub Text5_Click()If Text5.Text = "输入SQL语句" ThenText5.Text = ""End If
End SubPrivate Sub Text6_Click()If Text6.Text = "输入单号 XHC......" ThenText6.Text = ""End If
End Sub'数据库连接测试 --ERR
Function ConnectToDataBase() As BooleanTimer1.Enabled = TrueOn Error GoTo Error1Set myConn = New ADODB.ConnectionmyConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=" & dbpwd & ";Initial Catalog=" & dbase & ";Data Source=" & ipaddmyConn.OpenMsgBox "连接成功！", , "提示"connT = TruemyConn.CloseExit Function
Error1:connT = FalseMsgBox "连接错误！请重新输入数据库信息" & vbCrLf & Err.Description, , "警告"
End Function'数据库连接执行语句
Function RunSQL(SQL)Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.ConnectionString = "Provider=SQLOLEDB;Password='" & dbpwd & "';Persist Security Info=False;User ID='sa';Initial Catalog='" & dbase & "';Data Source='" & ipadd & "'"cn.OpenIf rs.State = adStateOpen Then rs.Closers.CursorLocation = adUseClientrs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimisticcn.CloseMsgBox ("执行完毕！")
End Function```VB连接SQL SERVER实例相关推荐
- 使用 SQL Server Management Studio (SSMS) 连接 SQL Server实例
参考资料 微软官方教程https://docs.microsoft.com/zh-cn/sql/ssms/tutorials/connect-query-sql-server?view=sql-ser ...
- VB连接Sql Server,Oracle,SyBase,Access数据库操作实例
- VB连接数据库是常用的操作 对于小型数据的存取是非常不错的.在设计时 对于不同数据的连接方式都不同 这里使用了ADODB连接字符串的方式来访问常见的数据库:Sql Server,Oracle,Sy ...
- VB连接SQL SERVER 数据库时ODBC设置
配置ODBC数据源 1,打开ODBC数据管理器,选择文件DSN,(关于用户DSN,系统DSN,文件DSN),点击"添加"按钮. 2,安装数据源的驱动程序,选择"sql s ...
- 服务器文件路径的例子,完整SQL Server实例迁移案例
1.确认备用服务器的SQL Server和原版本一致(select @@version返回的号码必须一模一样)--因为要恢复系统数据库,要保证恢复的master和msdb和原库一致,否则SQL Ser ...
- 如何连接sql托管实例_如何使用Windows托管的文件共享来支持SQL Server容器
如何连接sql托管实例 In a previous article, Automate Delivery of SQL Server Production Data Environments Usin ...
- VB.NET连接SQL server数据库解决方案(转载+亲自实践)
原文来自:http://hi.baidu.com/mwd_3330410/blog/item/ba0ccd240a0902184c088d83.html Microsoft Visual Basic. ...
- VB访问SQL Server数据库技术全揭密
VB访问SQL Server数据库技术全揭密 2006-08-03 05:00作者:出处:电子技术责任编辑:方舟 摘 要: 本文讨论了Visual Basic应用程序访问SQL Server数据库的几 ...
- 用Excel VBA连接SQL Server数据库并将表中的数据显示到Excel中
本实例使用VB语言和OLEDB类连接SQL Server 2005数据库. 在sheet1上右键→查看代码,加入如下代码: Sub admin()Dim conn, xRsSet conn = Cre ...
- asp毕业设计——基于vb+VB.NET+SQL Server的公文管理系统设计与实现（毕业论文+程序源码）——公文管理系统
基于vb+VB.NET+SQL Server的公文管理系统设计与实现(毕业论文+程序源码) 大家好,今天给大家介绍基于vb+VB.NET+SQL Server的公文管理系统设计与实现 ,文章末尾附有本 ...
- asp毕业设计——基于vb+VB.NET+SQL Server的数据存储与交换系统设计与实现（毕业论文+程序源码）——数据存储与交换系统
基于vb+VB.NET+SQL Server的数据存储与交换系统设计与实现(毕业论文+程序源码) 大家好,今天给大家介绍基于vb+VB.NET+SQL Server的数据存储与交换系统设计与实现,文章 ...
最新文章
- HTML DOM Attribute 对象
- numpy.lib.stride_tricks.as_strided() 高效切分数组
- Game of Hyper Knights LightOJ - 1315
- 关于junit测试类启动慢报错：failed to resolve org.junit.platform
- PrinterLogic 厂商修复影响所有联网端点的3个RCE漏洞
- [自动调参]深度学习模型的超参数自动化调优详解
- Spring boot 解决 hibernate no session异常
- java 实现根据ip重定向_从0到1用java再造tcpip协议栈：代码实现ping应用功能1
- Linux教学项——基础环境及命令教学（包括实用shell脚本）
- 华三交换机配置vrrp_h3c vrrp配置实例
- 小米5USB 计算机连接,小米手机如何连接win7电脑传文件|小米手机连接win7传文件的方法...
- 2012 快速减肥 美女舒淇的懒人减肥法
- 李沐老师 PyTorch版——线性回归 + softmax回归的简洁实现（3）
- pytorch中的神经网络模块基础类——torch.nn.Module
- 使用ASMap构建高密度遗传图谱
- acrobat导出html没图片,PDF 导出的文件格式选项
- 赋能 打造应对不确定性的敏捷团队 pdf_协会成长课堂｜《赋能》：打造应对不确定性的敏捷团队...
- PT100温度电阻转换器
- 自动驾驶/智能网联在物流小车末端配送示范应用现状
- 《互联网信贷风险与大数据》读书笔记（三）