前面看了一编用VB代码创建ACCESS数据库的文章,写的很好.
根据思路,写下创建SQL 数据库的方法,供大家参考.
1:引用ADO2.5lib
2:在窗体上添加一个按钮COMMAND1
3:按钮代码如下:
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)"'首先连接MASTER数据库
cnn.Open strsql
strsql = "create database text1"'创建数据库TEXT1
rs.Open strsql, cnn, adOpenStatic, adLockReadOnly
cnn.Close'关闭连接MASTER是连接
Set cnn = Nothing'释放连接
strsql = "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
以上个人意见,欢迎互相交流
QQ:32416070