怎样用vb6.0编程实现在sql server中创建数据库和表？急。。。。

Question

好久没用，忘了。
记得vb中可以用代码他建一个数据环境，然后可以在其中建立数据库与表。
不过最常用的是直接创建一个与master数据库的连接cn,
使用cn.Execute()来执行创建数据库的sql语句。
同样的方法创建表。

Answer 1

Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
strsql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=(local)"
cnn.Open strsql
strsql = "create database text1"
rs.Open strsql, cnn, adOpenStatic, adLockReadOnly
cnn.Close
Set cnn = Nothingstrsql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=text1;Data Source=(local)"
cnn.Open strsql
strsql = "create table text1( a varchar(50))"
rs.Open strsql, cnn, adOpenStatic, adLockReadOnly
MsgBox "ok"
End Sub'创建数据库ＴＥＸＴ１和表ＴＥＸＴ１，字段Ａ