Question

求助 VB制作 SQL脚本的建表

我用的是ORACLE的数据库，想用VB做一个EXE脚本，直接进行建表 但其中需要判断数据库的实例名、管理员和密码 - -! 大概窗体如下面地址：
现在有现成的3个.spl建表的文件。但是不会用VB写代码T-T 大大们帮帮我吧...

Answer 1

'/************************************************************************************/
'/函数功能：执行制定的数据脚本文件
'/参数说明：参数一 ADO对象 参数二 文件路径
'/编 写 人：于莹莹
'/编写日期：2006-1-12
'/************************************************************************************/
Public Function ExecuteSQLScriptFile(cn As ADODB.Connection, sqlFile As String) As Boolean
Dim strSql As String, strTmp As String
On Error GoTo ExecuteSqlErr
Open sqlFile For Input As #1
strSql = ""
Do While Not EOF(1)
Line Input #1, strTmp
If UCase$(strTmp) = "GO" Then
cn.Execute strSql
strSql = ""
Else
strSql = strSql & strTmp & vbCrLf
End If
Loop
If strSql <> "" Then cn.Execute strSql
Close #1
ExecuteSQLScriptFile = True
Exit Function
ExecuteSqlErr:
Close #1
ExecuteSQLScriptFile = False
End Function

不知道对你有没有用,我这里有个这样的程序,不过用的数据库是SQL的,也一样是.sql文件

我的baidu HI 天天在线

注:.sql文件的编码一定要是ANSI的