VB附加SQL 数据库

效果图:

                        

代码如下:

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

 

 

 

 

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值