사원 관리 프로그램에서 개개인 신상명세서와 사진을 을 입력 하고 검색이나 해당 사원을 선택시

신상명세와 이미지가 나오게 하는 겁니다.

그런데 텍스는 되는데 이미지는 어떻게 할질을 모르겠습니다.

저장은 잘되는데 불러올때 어떻게 쿼리을 돌려 할지....컨트롤은 이미지 컨드롤을 사용 할려구 합니다.

저는 DB 서버는 MySql을 쓰고 있습니다. 디비 필드속성(blob)은 이미지 속성으로 되있고 서버에서

확인시 이미지는 디비에 들어가 있는것 같습니다....

사진 로드는 이미지 더블클릭 이벤트로 하여 더블 클릭시 다이얼로그 컴포넌트을 이용해서

사진을 이미지 컨트롤에 불러 드리고 저장 합니다..

DB에 이미지 저장시 경로명이 아닌 이미지가 저장이 됩니다...

로드시 아랫부분에 보시면 체크을 해놓았습니다..

제가 그렇게 했는데 안되네요...방법좀 알려 주십시요.

그리구 부탁인데요 쿼리부분 좀 보시고 쿼시도 좀 알려 주십시요.

입력시는 다음과 같습니다(입력시는 잘됩니다)

strsql = " insert into insasa (name, bu, sa, jik, jicark, ieb, tea, "

strsql = strsql & "jumin, tel, hp, addres, post, kibon, ea, baname,"

strsql = strsql & "jiksu, kuk, bunum, jikkisu, kungsu, familysu, jangsu, kita,image) "

strsql = strsql & "values ('" & UCase(Trim(Text1.Text)) & "',"

strsql = strsql & "'" & Trim(Text2.Text) & "',"

strsql = strsql & "'" & Trim(Text3.Text) & "',"

strsql = strsql & "'" & Trim(Text4.Text) & "',"

strsql = strsql & "'" & Trim(Text5.Text) & "',"

strsql = strsql & "'" & Trim(MBtext.Text) & "',"

strsql = strsql & "'" & Trim(Text12.Text) & "',"

strsql = strsql & "'" & Trim(Text10.Text) & "',"

strsql = strsql & "'" & Trim(Text7.Text) & "',"

strsql = strsql & "'" & Trim(Text8.Text) & "',"

strsql = strsql & "'" & Trim(Text6.Text) & "',"

strsql = strsql & "'" & Trim(Text9.Text) & "',"

strsql = strsql & "'" & Trim(Text13.Text) & "',"

strsql = strsql & "'" & Trim(Text14.Text) & "',"

strsql = strsql & "'" & Trim(Text15.Text) & "',"

strsql = strsql & "'" & Trim(Text16.Text) & "',"

strsql = strsql & "'" & Trim(Text17.Text) & "',"

strsql = strsql & "'" & Trim(Combo1.Text) & "',"

strsql = strsql & "'" & Trim(Text18.Text) & "',"

strsql = strsql & "'" & Trim(Text19.Text) & "',"

strsql = strsql & "'" & Trim(Text20.Text) & "',"

strsql = strsql & "'" & Trim(Text21.Text) & "',"

strsql = strsql & "'" & Trim(Text22.Text) & "',"

strsql = strsql & "'" & Trim(Image1.Picture) & "')"

다음은 해상사원을 검색해서 텍스트 박스와 이미지 컨트롤에 사진의 데이터을 뿌려주는 곳입니다

strsql = "select bu,sa,jik,kibon,jiksu,jikkisu,familysu,ea,kuk from insasa where name = '" & Trim(Text19.Text) & "'"

rs.CursorLocation = adUseClient

rs.Open strsql, db, adOpenDynamic, adLockReadOnly

If rs.RecordCount > 0 Then

Text20.Text = rs.Fields("bu")

Text21.Text = rs.Fields("sa")

Text22.Text = rs.Fields("jik")

Text8.Text = rs.Fields("kibon")

Text1.Text = rs.Fields("jiksu") + rs.Fields("jikkisu")

Text2.Text = rs.Fields("familysu")

Text15.Text = rs.Fields("ea")

Text16.Text = rs.Fields("kuk")

----------Image1.DataField = rs.Fields("image")--------------바로 이부분 입니다...

rs.Close

Else

MsgBox "입력하신 사원은 이름은 존재하지 않습니다", vbOKOnly, "확인"

Text19.SetFocus

Text19.SelStart = 0

Text19.SelLength = Len(Text19.Text)

rs.Close