vba sql 捞取字段名 我想根据xls中的列的值通过VBA代码生成insert语句（.sql）,高手指点下，谢谢

vba sql查询 sql一般用在多条件查询，对数据库读写等。1.VBA如何建立sql连接A．在VBA Project 窗口中，“工具—引用—Microsoft ActiveX Data Objects 2.0 Library”，如下图所。怎么用Sql语句获取一个数据库中的所有表的名字 查询数据库里所有表名和字段名的语句1.SQL 查询所有表名：SELECT NAME FROM SYSOBJECTS WHERE TYPE='U'SELECT*FROM INFORMATION_SCHEMA.TABLES2.查询表的所有字段名：SELECT NAME FROM SYSCOLUMNS WHERE ID=OBJECT_ID(' 表名')SELECT*FROM INFORMATION_SCHEMA.TABLESSELECT*FROM INFORMATION_SCHEMA.VIEWSSELECT*FROM INFORMATION_SCHEMA.COLUMNS3.ORACLE 查看所有表名：SELECT TABLE_NAME FROM USER_TABLES4.ACCESS 查看所有表名：SELECT NAME FROM MSYSOBJECTS WHERE TYPE=1 AND FLAGS=05.MSYSOBJECTS 是系统对象，默认情况是隐藏的。通过工具、选项、视图、显示、系统对象可以使之显示出来。vba sql查询 sql一般用在多条件查询，对数据库读写等。1.VBA如何建立sql连接A．在VBA Project 窗口中，“工具—引用—Microsoft ActiveX Data Objects 2.0 Library”，如下图所示B．VBA语句Private Sub CommandButton1_Click()Dim cnn As ADODB.Connection’定义变量Dim sql$，Stext$，i As IntegerWorksheets(3).Cells.ClearStext=IIf(TextBox1.Value=\"\"，\"*\"，TextBox1.Value)Set cnn=CreateObject(\"adodb.connection\")’生成对象cnn.Open\"Provider=Microsoft.Jet.OLEDB.4.0；Extended Properties=Excel 8.0；Data Source=\"&ThisWorkbook.FullName’打开数据库If TextBox1=\"\"Thensql=\"select*from[sheet2$]\"’sql语句Elsesql=\"select*from[sheet2$]where 姓名 like '\"&TextBox1.Value&\"'End IfWorksheets(3).[a1].CopyFromRecordset cnn.Execute(sql)’执行sql语句cnn.CloseSet cnn=NothingEnd Sub2.sub text()Dim cnn As ADODB.Connection’定义变量Dim rs as adodb.recordsetSet cnn=CreateObject(\"adodb.connection\")’生成对象，若定义变量时为Dim cnn As New ADODB.Connection，此句可省略cnn.Open\"Provider=Microsoft.Jet.OLEDB.4.0；Extended Properties。VBA EXCEL SQL数据库，从事统计、财务工作的人，在工作中经常会与数字打交道。对于数据的管理，通过数据库来维护其完整性、准确性，是不错的选择，然而一般的统计、财务人员。

#sql语言#sql数据库#vba#数据库#select