使用VB远程创建SQL数据库及表.docVIP

使用VB远程创建SQL数据库及表 在进行C/S架构的数据库管理系统中，首要做的一件事是，给远程数据库服务器创建数据库及表、视图、存储过程等等。或是由于某种原因，需要对远程数据库进行修改或建表等等。于是就产生了远程操作数据库服务器的要求。 在这里，远程服务器的数据库是MS SQL2000，服务器地址是：00，数据库服务器使用WINDOWS身份验证，用户名sa，密码hssxezflb。 一、远程连接数据库服务器。 Dim ConnStr As String ‘数据库连接字符串 Dim SqlStr As String ‘查询语言字符串 Dim conn As New ADODB.Connection ‘ADO连接对象 Dim rs As New ADODB.Recordset ‘ADO数据集 2、设置数据库连接字符串并连接数据库master ConnStr =Driver={SQL Server}; Server=00; Uid=sa; Pwd=hssxezflb; database=master ‘可以写在一行，这里是为了排版需要 conn.Open ConnStr ‘打开数据库 if conn.StateadStateOpen Then msgbox “数据库打开失败” exit sub end if 数据库打开失败，原因很多，见《Window 2003 SQL2000远程连接的问题解决办法.doc》 数据库连接字符串的方式也可以这样进行书写 ConnStr =Provider=sqloledb.1; password=hssxezflb; user id=sa; initial catalog=master; data source=00” 3、创建所需要的数据库 在master数据库中，有一个表sysdatabases，记录了本SQL服务器的所有数据库。通过查询是否存在欲创建的数据库，如果不存在，则创建。如果存在，则另做处理（一般是换个数据库名称）。设欲创建的数据库名称为flb。 SqlStr = select Name from dbo.sysdatabases where Name = flb; rs.Open SqlStr, conn, adOpenKeyset, adLockOptimistic If rs.RecordCount = 0 Then 数据库不存在，则创建数据库 rs.Close conn.BeginTrans‘启动事件 SqlStr = Create Database flb; conn.Execute SqlStr conn.CommitTrans ‘提交事件 Else msgbox “数据库flb已经存在，无法创建。” rs.Close ‘数据库存在，给予提示 End If 4、完整代码如下： ‘远程连接数据库服务器并创建数据库flb Private Sub Command1_Click() Dim ConnStr As String Dim SqlStr As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset ConnStr = Driver={SQL Server};Server=00;Uid=sa;Pwd=hssxezflb;database=master conn.Open ConnStr if conn.StateadStateOpen Then msgbox “数据库打开失败” exit sub end if SqlStr = select Name from dbo.sysdatabases where Name = flb; rs.Open SqlStr, conn, adOpenKeyset, adLockOptimistic If rs.RecordCount = 0 Then 数据库不存在，则创建数据库 rs.Close conn.BeginTrans SqlStr = Create Database flb; conn.Execute SqlStr conn.CommitTrans Else msgbox “数据库f