Dim cnn,strSql Set cnn = CreateObject("adodb.connection") cnn.Open "driver={sql server};server=10.2.*.1;uid=xiaoming;database=DBprod;pwd=123456" strSQL = "select top 10 * from usertable " Sheets("TEST1").Range("
SELECT b.name as TableName,a.name as columnname From syscolumns a INNER JOIN sysobjects b ON a.id=b.id where b.type='U' AND a.name='destid' 原文地址:https://www.cnblogs.com/coce/p/10173422.html