用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

  • 2
    点赞
  • 1
    收藏
  • 打赏
    打赏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 1

打赏作者

zuoxingyu

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值