VB连接SQL SERVER实例

最新推荐文章于 2022-03-13 19:02:06 发布

gusup_cn

最新推荐文章于 2022-03-13 19:02:06 发布

阅读量2.3k

点赞数 3

分类专栏： 2020 文章标签： VB 实例源码网络编程 vb.net sqlserver 数据库连接存储过程

本文链接：https://blog.csdn.net/Nothva/article/details/107177127

版权

本文提供了一个简易的VB连接SQL Server的实例，讲解如何利用Microsoft ActiveX Data Objects进行数据库连接和操作，包括存储过程的使用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

简易vb连接sql server实例
需引用Microsoft ActiveX Data Objects

![在这里插入图片描述](https://img-blog.csdnimg.cn/20200707111306176.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L05vdGh2YQ==,size_16,color_FFFFFF,t_70)

```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 Then
        Dim a
        a = Text1.Text
        If Mid(a, 1, 6) = "LIFEMG" Then
            SQL = "update AskForm set State=0 where billno='" & a & "';"
            RunSQL (SQL)
        Else
        Text1.Text =

最低0.47元/天解锁文章