这是我的一段代码,是使用SQLDMO创建sql server数据库的一部分
总体的思路就是将.sql文件读取到string中,然后将该字符串作为参数(sql语句)传递给对象,如:adodb.connection等。
Private Sub cmdCreate_Click()
Dim NativeLogin As New SQLDMO.Login
Dim SysDataBase As New SQLDMO.Database
Dim SysFileData As New SQLDMO.DBFile
Dim SysLogFile As New SQLDMO.LogFile
Dim SysRole As New SQLDMO.DatabaseRole
Dim SysUser As New SQLDMO.User
Dim sql1 As String * 61800
Dim Fno As Integer
On Error GoTo errhunter
lblShow.Caption = "正在检测系统文件完整性……"
If Dir(App.Path + "\ct.sql") = "" Then
MsgBox "系统数据文件[ct.sql]丢失,数据库安装无法完成!", vbCritical, "错误"
Exit Sub
End If
Fno = FreeFile
Open App.Path + "\ct.sql" For Binary As #Fno
Get #Fno, , sql1
Close #Fno
PBarShow.Value = 9
If sql1 = "" Then
MsgBox "数据文件装载失败,数据库安装无法完成!", vbCritical, "错误"
Exit Sub
End If