통합검색
· 마을서비스란?  · 포럼마을  · 일반마을  · 테마마을  · 마을랭킹  · 활동왕
· 덱스퍼트란?  · TECBOX   · PRSBOX   · 이용안내  
· DEXT제품군  · 솔루션베이  · S/W & ESD 컴포넌트
· 프로그램베이 
· LiveSeminar  · LiveConference
SQL Server 포럼마을 입니다.
  마을등급 SQL Server   이 마을은 포럼마을 입니다이 마을은 자유가입제 마을 입니다 마을소개 페이지로 이동 전입신청
마을촌장촌장 김종열 주민 1827 since 2006-12-29
우리마을 공지사항
질문&답변
강좌&팁
자유게시판
자료실
앨범
개인게시판
마을 게시판
등록된 마을 게시판이
없습니다.
랑데브 게시판
칼럼 게시판
개발자 고충상담
Dev Talk
자유토론방
벼룩시장
재나미 우스개
구인/프로젝트 정보
사람인 채용 게시판
  고객지원 게시판
마이 데브피아
 나의 e-Money 내역
 활동왕 My Page
 스크랩한 게시글보기
 쪽지관리
 주소록관리
 일정관리

 질문&답변
 [긴급] 오라클에서 단일 인용부 지정에러--Ora-01756: 단일 인용부를 지정해주세요..  | Programming 2003-09-02 오전 7:08:03
김정순 (macarang)  김정순님께 메시지 보내기김정순님을 내 주소록에 추가합니다.김정순님의 개인게시판 가기 번호: 41368  / 읽음:716

안녕하세요

현제 VB로 오라클 DB에 접속해서 그림파일을 바로 넣어주려고 합니다.

 

근데 에러가 나서요...

그림 파일을 Binary로 읽어서 그 놈을 CVar로 변환해 준 후 DB에 올릴려고 하는데 자꾸

Insert문에서 "단일 인용부를 지정해주세요...." 라면 에러가 뜹니다...

무엇이 잘못된 것인지...보시면 vImage에 값은 잘 들어오는데..

 

아님 방법이 잘못되었나요??

 

제발 도와주세요..오늘 오전까지 못하면 큰일입니다...밤새 이것만 고민했는데..

부탁드려요..고수님들...

그럼 그 부분 소스도 올립니다...

 

 

Dim rs As New ADODB.Recordset

'Dim Conn As ADODB.Connection   이미 선언함

Dim btImage() As Byte

Dim vImage As Variant

 

On Error GoTo ErrTrap

 

    

    Con_SERIS   'DB 연결

    

    

 If Dir(sFilePath) = "" Then

    sysfunSaveImege = False

    Exit Function

 End If

 

 If FileLen(sFilePath) < 10 Then   '파일 길이의 바이트 수

    sysfunSaveImege = False

    Exit Function

 End If

 

 

 Open sFilePath For Binary As #1

 

 '해당 파일 읽기

 ReDim btImage(FileLen(sFilePath) - 1)

 Get #1, , btImage

 

 Close #1

 

 

 Set rs = New ADODB.Recordset

 

 'DB에 저장

 rs.CursorType = adOpenKeyset

 rs.LockType = adLockOptimistic

 

 rs.Open sTableName, Conn, , , adCmdTable

 

 Dim InsertPhotoSQL As String

 Dim JobNo As String

 Dim TestItem As String

 

 JobNo = "ASC030902"

 TestItem = "EFT"

 

 

 

 

 'rs.Filter = sFilter   필터 적용하지 말자.

 

 If rs.EOF Then

    sysfunSaveImege = False

    Exit Function

 End If

 

 vImage = CVar(btImage)

 rs.Fields(sColumnName) = vImage

 

 

 InsertPhotoSQL = "Insert into " & sTableName & " values ('" & JobNo & "','" & TestItem & "','" & vImage & "')"

 

 

'실제로 테이블에 레코드를 삽입한다.

rs.Open InsertPhotoSQL, Conn

 

이 글에 답변 등록하기
목록 보기   지금 보고 계시는 글을 회원님의 my Mblog >> 스크랩에 넣어두고 다음에 바로 보실 수 있습니다.  
회사소개  |   개인정보취급방침  |  제휴문의  |   광고문의  |   E-Mail 무단수집거부  |   고객지원  |   이용안내  |   세금계산서
사업자등록번호 안내: 220-81-90008 / 통신판매업신고번호 제 2010-서울강남-00026호
서울시 강남구 논현동 87-2 미래빌딩 5층 / TEL. 02_6719_6200 / FAX. 02-6499-1910 / 대표: 홍영준
Copyright ⓒ (주) 데브피아. All rights reserved.