Select COLUMN_NAME 列名, DATA_TYPE 字段类型, COLUMN_COMMENT 字段注释
from INFORMATION_SCHEMA.COLUMNS
Where table_name = 'companies'--表名
AND table_schema = 'testhuicard'--数据库名
AND column_name LIKE 'c_name'--
实现对工作簿中的工作表标签匹配，并对其中的数据进行加工处理，用到了循环遍历，及文件输出Dim MyPath
Sub ClickThere()
' 得到当前活动工作簿的根目录
MyPath = ActiveWorkbook.Path & "\"
Close #1
' 打开文件
Open MyPath & "test.txt" For Output As #1
' 填
--创建表test
IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[test]') AND type in (N'U'))
DROP TABLE [dbo].[test]
CREATE TABLE [dbo].[test](
[id] [int] IDENTITY(1,1) NOT NULL,
declare @row varchar(30)
declare @tbname varchar(30)
DECLARE string_find_cursor CURSOR FAST_FORWARD FOR
SELECT [name]
FROM sysobjects where type='U' and name like 'A%
本版专家分：155结帖率 99.42%
