VB附加SQL 数据库
来源:互联网 发布:北航网络教育学位证 编辑:程序博客网 时间:2024/05/19 13:16
效果图:
代码如下:
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
- VB附加SQL 数据库
- SQL语句附加数据库
- sql不能附加数据库
- SQL Server2008附加数据库
- 附加sql数据库
- 附加数据库.sql
- 用SQL添加附加数据库
- sql数据库分离与附加
- SQL语句附加还原数据库
- T-sql分离附加数据库
- SQL附加分离数据库(命令)
- 附加sql server 20005数据库
- sql server2000附加数据库失败
- SQL SERVER 2008数据库附加
- sql附加数据库只读问题
- sql 2005 附加数据库错误
- T-sql分离附加数据库
- SQL语句附加还原数据库
- POJ 3069
- Asp.Net细节性问题精萃
- POJ 3070
- 无语的龟腚
- ListBox 中获得选中项的方法
- VB附加SQL 数据库
- VB读取INI文件
- 各大著名搜索引擎简介
- 清明你是怎么过的
- 正则表达式入门
- 国产手机广告坠落史
- 采用基类的方式判断用户是否登录(1)
- 试用EF开发WEB应用程序(6): 解析Query String中的各参数值
- 人最可取的地方就是一个字----坚持!两个字----再坚持!三个字----继续坚持!