用VB查询数据库

lovemh1987

想用vba 查询这个sql代码  ，但是不知道该怎么写，有大佬指导下吗  

DECLARE @cloumns VARCHAR(40);
DECLARE @tablename VARCHAR(40);
DECLARE @str VARCHAR(40);
DECLARE @counts INT;
DECLARE @sql NVARCHAR(2000);
DECLARE MyCursor CURSOR FOR
SELECT a.name AS Columns,
       b.name AS TableName
FROM syscolumns a,
     sysobjects b,
     systypes c
WHERE a.id = b.id
      AND b.type = 'U'
      AND a.xtype = c.xtype
      AND c.name LIKE '%char%';
SET @str = '';
OPEN MyCursor;
FETCH NEXT FROM MyCursor
INTO @cloumns,
     @tablename;
WHILE (@@Fetch_Status = 0)
BEGIN
    SET @sql = N'select @tmp_counts=count(*) from ' + @tablename + N' where ' + @cloumns + N' = ''' + @str + N'''';

    EXECUTE sp_executesql @sql, N'@tmp_counts int out', @counts OUT;
    IF @counts > 0
    BEGIN
        PRINT '表名为:' + @tablename + ',字段名为' + @cloumns;
    END;
    FETCH NEXT FROM MyCursor
    INTO @cloumns,
         @tablename;
END;
CLOSE MyCursor;
DEALLOCATE MyCursor;

zpy2

ADO的 command对象 执行存储过程
https://learn.microsoft.com/zh-cn/sql/ado/guide/data/calling-a-stored-procedure-with-a-command?view=sql-server-ver16