ADOを使用してパラメータを使用したVBA呼び出しストアドプロシージャ

Question

ADOを使用してVBA内の2つのパラメータを使用してSQL Serverストアドプロシージャを呼び出そうとしています。私はエラーメッセージ "ランタイムエラー '13'タイプの不一致"を得た。

Dim cnn As New ADODB.Connection 
Dim cmd As New ADODB.Command 

cnn.ConnectionString = "Provider=SQLNCLI11;" _ 
       & "Server=(Local);" _ 
       & "Database=Inventory;" _ 
       & "Integrated Security=SSPI;" _ 
       & "DataTypeCompatibility=80;" 
cnn.Open 

With cmd 
    .ActiveConnection = cnn 
    .CommandType = "adCmdText" 
    .CommandText = "usp_mySP" 
    .Parameters.Append .CreateParameter("@fileName1", adChar, adParamInput, , File1.Name) 
    .Parameters.Append .CreateParameter("@fileName2", adChar, adParamInput, , File2.Name) 
    .Execute 
End With 

File1.NameとFile2.Name私はFileSystemObjectオブジェクトを使用して得た2最新-変更されたファイルの名前です：私はオンラインでの検索時間を費やしてきたが、ちょうどそれが働いて得ることができない... は、ここに私のコードです。

usp_mySPは、本質的にbcpコマンドを使用してタブ区切りファイルをエクスポートするストアドプロシージャです。それはSQL Severで完璧に動作します。

アドバイスやコメントはありますか？

Answer 1

さらに数時間の試行錯誤の後、私は最終的にコードを動作させます。そして、adCharからadVarCharに変更を指摘していただきありがとうございます。

Dim cnn As New ADODB.Connection 
Dim cmd As New ADODB.Command 

cnn.ConnectionString = "Provider=SQLNCLI11;" _ 
      & "Server=(Local);" _ 
      & "Database=Inventory;" _ 
      & "Integrated Security=SSPI;" _ 
      & "DataTypeCompatibility=80;" 
cnn.Open 

With cmd 
    .ActiveConnection = cnn 
    .CommandType = adCmdStoredProc 
    .CommandText = "usp_mySP" 
    .Parameters.Append .CreateParameter("@fileName1", adVarChar, adParamInput, 50, File1.Name) 
    .Parameters.Append .CreateParameter("@fileName2", adVarChar, adParamInput, 50, File2.Name) 
    .Execute 
End With 
MsgBox"Thank God! Finally it's working!" 
cnn.Close