vb中如何创建mysql表_用VB代码在SQL SERVER 中创建数据库,表,列.以及对数据库的操作 | 学步园...

前面看了一编用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