用VB代码在SQL SERVER 中创建数据库,表,列.以及对数据库的操作
2005-04-15 18:10
483 查看
前面看了一编用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
根据思路,写下创建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
相关文章推荐
- Entity Framework (先创建数据库Model类,以及操作数据库的方法。 最后从代码生成数据库和数据库模型)
- SQL语句汇总(一)——数据库与表的操作以及创建约束
- 通过eclipse方法来操作Hadoop集群上cassandra数据库(包括创建Keyspace对象以及往数据库写入数据)
- SQL Server Mobile 学习(二):通过 VS2005 创建和连接及操作 SQL Server Mobile 数据库
- SQL Server第一堂课:创建数据库,创建表,以及表中最基本的增,删,改
- sql server创建数据库代码模板
- 创建数据库以及基本操作
- 03创建数据库和表以及测试数据库的操作(单元测试框架)
- SQL server 2000创建数据库角色以及向数据库角色添加用户的命令
- [完整代码]创建不受数据库限制的报表 VB.Net 版本 -1
- php数据库操作-创建库和表以及插入数据
- 嵌入式 QT创建数据库以及数据库基本操作问题
- SQL Server Mobile 学习(二):通过 VS2005 创建和连接及操作 SQL Server Mobile 数据库
- SQL Server 2008 镜像操作心得(非域控环境中创建数据库镜像)
- 如何在代码中通过命令行创建SQL SERVER 数据库
- SQL Server 在指定数据库下 创建表(操作)
- vb 6.0数据库操作代码例子
- vb sql server创建数据库实现增、删、改、查等基本操作
- mysql读写分离的完整配置【centos6.5-mini版操作系统中mysql数据库的操作日志以及创建的数据库和表均在/var/lib/mysql此目录下,yum源在/var/lib/yum下】
- [完整代码]创建不受数据库限制的报表 VB.Net 版本 -2