vb6 - vb6からdbfファイルに画像を挿入して取得する方法

Question

VB6 で .dbf ファイルに画像を保存して取得するコードを書いていますが、dbf ファイルでどのフィールド タイプを取得すればよいかわかりません。dbfファイルでどのフィールドを取得する必要があり、VB6でどのコードを記述すればよいかを誰かが提案できますか?? 前もって感謝します..

Answer 1

私はずっと前にメモフィールドでそれをしました。コードは foxpro にあります。見る：

CREATE TABLE Abc.dbf Free (Filename c(50), Store M(4)) &&Create a table with FileName character field

※メモ欄として保存

1.

Append blank &&to add a blank record
APPEND MEMO store from "D:\Shah.Jpg" overwrite 
*This will copy the contents of the file. If Overwrite is ignored, and the memo has some contents,
*The contents of the file will be appended to it, which should be avoided.
REPLACE filename WITH "Shah.Jpg"
*Add as many files as you wish to other records.
Copy memo Store to "SomePhoto.jpg" && will copy to the default folder
*Or 
Copy memo store to "c:\MyPhotos\Shah.JPG" &&You must save or know the extension of the file

2.

append blank
filedata=FILETOSTR("D:\Shah.JPG")
REPLACE store WITH filedata
STRTOFILE(store,"SomeFileName.JPG")
*OR
STRTOFILE(store,"c:\MyPhotos\SomeFileName.JPG")

それはあなたの問題を解決するはずです。

Answer 2

私はずっと前にメモフィールドでそれをしました。コードは foxpro にあります。見る：

CREATE TABLE Abc.dbf Free (Filename c(50), Store M(4)) 

*FileName 文字フィールドを持つテーブルを作成します

*そしてメモ欄として保存 方法1:

空白を追加 &&して空白のレコードを追加する

APPEND MEMO store from "D:\Shah.Jpg" overwrite 

※ファイルの内容がコピーされます。Overwrite を無視し、メモに内容が含まれている場合は、 * ファイルの内容が追加されます。これは回避する必要があります。

REPLACE filename WITH "Shah.Jpg" 

*他のレコードに必要な数のファイルを追加します。

Copy memo Store to "SomePhoto.jpg" 

• デフォルトのフォルダにコピーするか、

  Copy memo store to "c:\MyPhotos\Shah.JPG"

*保存するか、ファイルの拡張子を知っている必要があります

方法 2。

空白を追加

filedata=FILETOSTR("D:\Shah.JPG") 

REPLACE store WITH filedata 

STRTOFILE(store,"SomeFileName.JPG") 

*また

STRTOFILE(store,"c:\MyPhotos\SomeFileName.JPG")

***あなたの問題を解決するはずです。