作者：绿色风
分类：
时间：2022-08-17
浏览：126
楼主
wise |
Q:如何使用VBA在SQL server创建一个表？
A：ALT+F11→插入模块，在模块中输入以下代码：- Sub CreateTable()
- Dim conn As Object, rs As Object
- Dim SQL As String
- '***********************需要修改此处的SQL Server 数据库条件******************************
- MyServer = "WISE-THINK" '存放数据的SQL Server 服务器
- mydata = "VBA学习专用" '存放数据的SQL Server 数据库
- '***********************修改结束*********************************************************
- Set conn = CreateObject("ADODB.Connection") '建立ADODB连接对象
- Set rs = CreateObject("ADODB.recordset") '建立收集器对象
- conn.connectionstring = "Driver={sql server};" _
- & "server=" & MyServer & ";" _
- & "uid=;pwd=;" _
- & "database=" & mydata _
- & ";AutoTranslate=False"
- '服务器是:WISE-THINK
- conn.Open '打开连接SQL server
- If MsgBox("是否创建一个表?", vbQuestion + vbYesNo) = vbYes Then
- '创建表的SQL语句
- SQL = "Create table 套餐 ( 品牌 nvarchar(255),套餐名称 nvarchar(255),套餐月费 float,协议期限 int,预存话费 float) "
- conn.Execute SQL
- MsgBox "创建表成功!", vbInformation
- Else
- MsgBox "创建表取消", vbInformation
- End If
- conn.Close
- Set conn = Nothing
- End Sub
|
2楼
纵鹤擒龙水中月 |
学习了 |
3楼
bensonlei |
国内很多数据库接口都用VB+SQL. |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一