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 技術サポート情報一覧]
|