sql sub（用VBA语言调用sql数据库数据到excel中）

1. 怎样在access中用脚本语句给字段添加注释
2. 用VBA语言调用sql数据库数据到excel中
3. 如何VBA将excel数据导入sql2005数据库的表中

怎样在access中用脚本语句给字段添加注释

            在Access中，可以使用以下脚本语句给字段添加注释：

ADD_COMMENT('字段名')：给字段添加注释，不会影响该字段的数据。

SET_COMMENT('字段名', '注释内容')：给字段添加注释，并显示注释内容。

例如，要给表中的myfield字段添加注释，可以使用以下脚本语句：

vbnet复制ADD_COMMENT(myfield) '这是一个注释'

在 Access 中，您可以使用 VBA 脚本来添加注释到字段。以下是一个示例代码，演示如何在 Access 表中使用 VBA 脚本为字段添加注释：

```vbnet

Sub AddCommentToField()

Dim fld As Field

Dim strSQL As String

' 选择要添加注释的字段

Set fld = CurrentDb().TableDefs("YourTableName").Fields("YourFieldName")

' 创建 SQL 语句字符串

用VBA语言调用sql数据库数据到excel中

sub test()Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" cnn.Open strCn SQL = "" cnn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn rs.Open SQL , cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中 cnn.Close Set cnn = Nothingend sub

请参考

连接数据库后，通过写SQL语句实现增删改查

如何VBA将excel数据导入sql2005数据库的表中

建议Excelhome论坛问，那里可以上传附件，大神看见了会直接给你改一个。Sub 导入数据() Workbooks.Open Filename:= _ "C:\Users\Administrator\Desktop\新建文件夹 (2)\新建 Microsoft Excel 工作表.xls" Range("A1:BK2359").Select Selection.Copy Windows("Book1.xlsx").Activate Range("B2").Select ActiveSheet.Paste Workbooks("新建 Microsoft Excel 工作表.xls").CloseEnd Sub自己看看改改吧

到此，以上就是小编对于SQLsubstr用法的问题就介绍到这了，希望介绍的3点解答对大家有用，有任何问题和不懂的，欢迎各位老师在评论区讨论，给我留言。