求一个vb6.0+SQL数据库操作实例

求一个vb6.0+SQL数据库操作实例

这个貌似我以前写的一个系统初始化的程序

追问给点简单的代码可以吗？我是菜鸟中的菜鸟！追答Public Function Creat_Database(Paths As String, Files As String) As Boolean
'在SQLserver 中建立一个库
Dim SQL$
SQL = ""
SQL = SQL & "CREATE DATABASE " & Files
SQL = SQL & " ON "
SQL = SQL & "( NAME = '" & Files & "_dat',"
SQL = SQL & " FILENAME = '" & Paths & Files & "_dat.jdt')"
'SQL = SQL & " SIZE = 10MB,"
'SQL = SQL & " MAXSIZE = 50MB,"
'SQL = SQL & " FILEGROWTH = 5MB )"
SQL = SQL & "LOG ON"
SQL = SQL & "( NAME = '" & Files & "_log',"
SQL = SQL & " FILENAME = '" & Paths & Files & "_log.jdt')"
'SQL = SQL & " SIZE = 5MB,"
'SQL = SQL & " MAXSIZE = 25MB,"
'SQL = SQL & " FILEGROWTH = 5MB )"
'On Error GoTo Err1
Cm.Execute SQL
Creat_Database = True
Exit Function
Err1:
Creat_Database = False
End Function

Public Function Creat_Table(data As String, Files As String) As Boolean
'本模块用于从*.sql中导入数据库结构到SQL Server
Dim SQL, Txtline As String

On Error Resume Next
Cn.Close
On Error GoTo Err1
ConSQL Load_ini("服务器名"), Load_ini("用户名"), Load_ini("口令"), data, "Cn"
SQL = " "
Open App.Path & "\log.txt" For Output As #2 ' 打开输出文件。
' 将错误数据写入文件。

Open App.Path & Files For Input As #1 ' 打开SQL文件。
Do While Not EOF(1)
Line Input #1, Textline
If Not (Trim(Textline) = "GO") Then
SQL = SQL & Textline & Chr(13)
Else
Cn.Execute SQL 'Mid(SQL, InStr(SQL, "C"))
SQL = " "
End If
Loop
Close #1
Close #2
'If Creat_Table = False Then
' Shell App.Path & "\log.txt"
'End If

Exit Function
Err1:
Print #2, "This is a Error !"
Print #2, Err.Description
Print #2, Err.Number
Print #2, "**********"
Creat_Table = False
Resume Next
End Function