VB附加SQL 数据库

最新推荐文章于 2023-02-25 11:37:33 发布

zhan198271

最新推荐文章于 2023-02-25 11:37:33 发布

阅读量953

点赞数

分类专栏： VB 文章标签： vb sql list 数据库 string command

本文链接：https://blog.csdn.net/zhan198271/article/details/2259245

版权

VB 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

效果图：

代码如下：

Public m As String, l As String, strdata As String
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
On Error GoTo dataErr
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=zhan;User ID=sa;password=zhan;Initial Catalog=master"
1 cn.Execute ("sp_attach_db @dbname ='" & strdata & "', @filename1 = N" & "'" & m & "', @filename2 = N" & "'" & l & "'")
MsgBox "附加成功！", , "VB附加数据库"
Exit Sub
dataErr:
MsgBox Err.Description, , "VB附加数据库"
End Sub
Private Sub Command2_Click()
With CommonDialog1
     .InitDir = "E:/ASP光盘修改文件/mr/fl"
     .ShowOpen
     If .FileName <> "" Then
        Text1 = .FileName
        m = .FileName
        l = Mid(.FileName, 1, Len(.FileName) - 8) & "Log.LDF"
        strdata = Mid(.FileTitle, 1, Len(.FileTitle) - 9)
        If List1.ListCount > 0 Then
          List1.Clear
          List1.AddItem .FileTitle & "      " & m
          List1.AddItem strdata & "_Log.LDF" & "      " & l
        Else
          List1.AddItem .FileTitle & "      " & m
          List1.AddItem strdata & "_Log.LDF" & "      " & l
        End If
     Else
       MsgBox "请选择数据文件！", , "VB附加数据库"
     End If
End With
End Sub
Private Sub List1_Click()
Label4 = List1.Text
End Sub