Date: Wed, 2 Jun 2004 16:06:28 +0900
 From: "Kuma" <who@example.co.jp>
 
 
初めて投稿させて頂きます.
あるサーバ上にあるExcelファイルを,SQLServerに登録する
仕組みを考えております(バイナリの登録).
SQLServerのデータ型はimage型です.
AppendChunk の使用方法がわかりません.
保存したデータに対し,ASP等から取出しをしようとすると,Excelのエラーが
表示されます.
「このファイルの形式を認識できません.」
以下のソースを実行すると,SQLServerには登録され,フィールドの値は
0x45003A005C00540065006D0070005C007300680069007
300680061005F006D00730074002E0078006C007300 の様になっています.
---------------------test.vbsの内容--------------------------
Dim objFS, objFile
Dim objCon, ObjRs, objCmd
Dim ConStr
ConStr = "Provider = SQLOLEDB;"
ConStr = ConStr + "Data Source = dbserver;"
ConStr = ConStr + "User Id = sa;"
ConStr = ConStr + "Password = pw;"
ConStr = ConStr + "Initial Catalog = dbname"
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile("c:\hoge\hoge.xls")
Set objCon = WScript.CreateObject("ADODB.Connection")
Set objCmd = WScript.CreateObject("ADODB.Command")
Set objRs = WScript.CreateObject("ADODB.Recordset")
objCon.ConnectionString = ConStr
objCon.Open
With objCmd
  .ActiveConnection = objCon
  .CommandText = "Table_Excel"
  .CommandType = adCmdTable
End With
With objRs
  .CursorType = adOpenDynamic
  .LockType = adLockPessimistic
  .Open objCmd
  .AddNew
  .Fields("Obj_ID") = 12345
  .Fields("Obj_Excel").AppendChunk objFile
  .Update
  .Close
End With
----------------------------------------------------
いろいろ調べてはいたのですが,AppendChunkの使い方が良くないようです.
3日ほど勉強していますが,ちょっと限界のようです.
ご教授お願いします.
SQLServer7.0
  
| [MSDE/SQLServerに関して、今、どんなことにお困りですか?] |  
| よろしければお困りの内容を、電子メールで教えて下さい。 |  
| 
質問を電子メールで作成する
 |  
 
  [ウィンドを閉じる][MSDE/SQLServer FAQ ][MSDE / MSDE2000 技術サポート情報一覧] 
                                 
                        |