请问在SQL SERVER中如何不通过客户端配置工具而添加一个ALIAS？

Question

首先来说,如果你的网络配置好了的话,不需要添加alias就可以访问SQL服务器.直接输入sa密码和数据库所在的计算机IP地址是可以直接连接的.

Answer 1

至于在程序中自动添加alias,可以通过写注册表实现.(我是在win2000中测试的,楼主可以自行测试一下win98)在SQL客户端中添加的别名,都会放在注册表中:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo对于TCP/IP协议,它是这样定义的.
在该键下面,新建一个字符串值,名称对应SQL的别名(alias)
值是这样构成的:
DBMSSOCN,192.168.0.33,14330
DBMSSOCN固定,代表使用tcp/ip协议
192.168.0.33 是远程SQL服务器的ip地址,当然也可以用服务器名
14330        是远程SQL服务器的端口,如果不指定,则使用默认端口
知道了这些,那么就可以在程序中,往注册表中写对应的键值就可以了.

Answer 2

至于建库的问题,可以将模板库生成SQL脚本文件,然后在需要建库的时候执行这个脚本文件就可以了.
执行脚本文件,可以自己写过程实现,也可以调用isql.exe来实现isql的简单用法,注意参数的大小写:
isql /S"sql服务器名" /U"用户名" /P"密码" /i"要执行的sql脚本文件" /d"在那个数据库中执行"如果SQL的身份验证模式为"仅windows",则用:
isql /S"sql服务器名" /E /i"要执行的sql脚本文件" /d"在那个数据库中执行"

Answer 3

生成数据库脚本的方法:sql200企业管理器
  --右键要导出的数据库
  --所有任务
  --生成SQL脚本
  --<常规>里选择"生成全部对象脚本"","在脚本文件中包含说明性标题"选上
  --<设置格式>里,将"包含扩展属性",选上
  --<选项>中,将"表脚本选项"中的内容全部选择上
  --<选项>中,"安全性选项"是决定是否要包含创建数据库及用户权限等的设置,根据你的需要选择
  --其他所有的选项保持默认值
  --然后确定,将其保存成一个.sql文件

Answer 4

'执行指定SQL脚本文件的VB代码示例'*************************************************************************
'**函 数 名：s_ExecuteSqlFile
'**功能描述：在指定的数据库对象中,执行指定的脚本文件
'**输    入： sFileName     要执行的脚本文件名
'**        ： iDb           数据库对象,要求是:ADODB.Connection
'**        ： sPassword     登陆密码
'**输    出： 无
'**调用模块： 无
'**作    者： 邹建
'**日    期： 2004年03月09日
'*************************************************************************
Sub s_ExecuteSqlFile(ByVal sFileName$, ByVal iDb As Object)
    Dim iFn As Object
    
    Dim iSql$, iStr$
    
    Set iFn = CreateObject("FileSystemObject").OpenTextFile("c:\1.txt", 1)
    
    With iFn
        While .AtEndOfStream = False
            iStr = iFn.ReadLine
            If UCase(iStr) = "GO" Then
                If iSql <> "" Then
                    iDb.Execute iSql
                    iSql = ""
                End If
            Else
                iSql = iSql & vbCrLf & iStr
            End If
        Wend
        iFn.Close
    End With
End Sub
'调用示例
'要求引用Microsoft ActiveX Data Objects 2.x Library
'
'数据库连接字符串模板
'身份验证模式为:"sql server和windows"
'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名
'
'身份验证模式为:"仅windows"
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=SQL服务器名Sub test()
    Dim iDb As ADODB.Connection
    Dim iConn$
    
    '数据库连接字符串    iConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
    
    Set iDb = New ADODB.Connection
    iDb.Open iConn
    
    s_ExecuteSqlFile "c:\a.sql", iDb '执行脚本文件: c:\a.sql
    
    iDb.Close
    Set iDb = Nothing
End Sub