通过VBA将值动态传递给SQL Server
免责声明：我是VBA新手 我希望通过Excel工作表上的字段传递SQL查询（30881570）中的值。我试过几种不同的方法通过VBA将值动态传递给SQL Server,sql,sql-server,excel,vba,Sql,Sql Server,Excel,Vba,免责声明：我是VBA新手 我希望通过Excel工作表上的字段传递SQL查询（30881570）中的值。我试过几种不同的方法 Private Sub cmdImport\u Click（） 调用cmdClear\u单击 Dim conn作为新ADODB.Connection，cmd作为新ADODB.Command，rs作为新ADODB.Recordset 与康涅狄格州 .ConnectionString=_ “Provider=SQLOLEDB；”&_ “数据源=PRGTAPPDBSWC019；”
Private Sub cmdImport\u Click（）
调用cmdClear\u单击
Dim conn作为新ADODB.Connection，cmd作为新ADODB.Command，rs作为新ADODB.Recordset
与康涅狄格州
.ConnectionString=_
“Provider=SQLOLEDB；”&_
“数据源=PRGTAPPDBSWC019；”&_
“初始目录=DETEP；”和_
“集成安全=SSPI；”
打开
以
使用cmd
.ActiveConnection=conn
.CommandText=“从[dbo].[tbl\u PMHeader]中选择*，其中[PMHeader\u PM\u NUM]=“30881570”
.CommandType=adCmdText
以
设置rs.Source=cmd
美国公开赛
'需要从指定范围开始填充标题行吗
对于intColIndex=0到rs.Fields.Count-1
范围（“B1”）.Offset（0，intColIndex）.Value=rs.Fields（intColIndex）.Name
下一个
'这是将数据表复制到的位置
ActiveSheet.Range（“B2”）.CopyFromRecordset rs
工作表（“表1”）。栏（“B:BB”）。自动调整
工作表（“表1”）.范围（“A25”）.公式=“=COUNTA（B:B）-1”
端接头
WHERE.CommandText = "SELECT * FROM [dbo].[tbl_PMHeader] " & _
"WHERE [PMHeader_PM_NUM] = '" & Sheets("mySheet").Range("A1") & "'"
mySheetA1“另见：
- MSDN博客：
- MSDN博客：
Private Sub cmdImport\u Click（）
Dim conn作为新的ADODB连接
Dim cmd作为新的ADODB.Command
将rs设置为新ADODB.Recordset
作为字符串的Dim sqlStr
与康涅狄格州
.ConnectionString=_
“Provider=SQLOLEDB；”&_
“数据源=PRGTAPPDBSWC019；”&_
“初始目录=DETEP；”和_
“集成安全=SSPI；”
打开
以
订单号=图纸（“图纸1”）。范围（“A22”）
strSql=“从[dbo].[tbl_PMHeader]中选择*”&_
“其中[PMHeader\u PM\u NUM]=”&订单号
使用cmd
.ActiveConnection=conn
.CommandText=strSql
.CommandType=adCmdText
以
'调用cmdClear\u单击
设置rs.Source=cmd
美国公开赛
'需要从指定范围开始填充标题行吗
对于intColIndex=0到rs.Fields.Count-1
范围（“B1”）.Offset（0，intColIndex）.Value=rs.Fields（intColIndex）.Name
下一个
'这是将数据表复制到的位置
ActiveSheet.Range（“B2”）.CopyFromRecordset rs
工作表（“表1”）。栏（“B:BB”）。自动调整
工作表（“表1”）.范围（“A25”）.公式=“=COUNTA（B:B）-1”
端接头
Debug.Print