안녕하세요. 또 질문을 올립니다. 죄송합니다. 꾸벅...
Dim s_Sql As String
Dim rs_Ado As ADODB.Recordset
s_Sql = \"SELECT t_no,t_subal \"
s_Sql = s_Sql & \" FROM tbl_telio \"
s_Sql = s_Sql & \" WHERE t_no=10001\"
Set rs_Ado = New ADODB.Recordset
---> 아래 부분에서 레코드 Open시 아래와 같이 에러가 발생합니다.
[oleDB 이용시 => CUBRIDProvider.dll ]
에러는 [cas.exe에 문제가 있어서 프로그램을 종료하여야 합니다....] 라고 메세지박스가 표시됩니다.
[ODBC 이용시 => cubrid_odbc.dll ]
에러는 [-2147467259 : 데이터 공급자나 기타 서비스가 E_FAIL 상태를 반환했습니다.] 이렇게 나옵니다.
rs_Ado.Open s_Sql, cn_AdoCub, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic
if rs_Ado.RecordCount>0 then
rs_Ado(\"t_no\") = 10001
rs_Ado(\"t_subal\") = \"T\" \'sa_Data(7)
rs_Ado.Update
end if
rs_Ado.Close
Set rs_Ado = Nothing
-------------------------------------------------------------------------------------------
참고로 cn_AdoCub.Execute s_Sql 식으로 하면 정상적으로 처리됩니다.
그리고 갱신이 아니고 조회는 레코드셋 Open시 에러없이 잘 불러옵니다.
정리를 하자면
DB갱신은 Execute를 사용하고
조회는 레코드셋 즉 rs_Ado.Open s_Sql xxxxx 을 이용하여야 할까요?
OLDDB든 ODBC를 이용을하든 둘 중 하나를 선택해서 개발을 진행해야 할 것같은데
도움부탁드립니다. 시간을 너무 잡아 먹는것 같아 큰일이네요.
혹시 도움이 될만한 가이드가 있으면 부탁드리구요.
현재 개발환경은
VB6.0, 큐브리드가 설치된 서버는 winXP Home입니다.
최종사용자 환경에 따라서
winXP Home, winXP Pro, Vista, Win2003 서버 등으로 서비스예정입니다.
|