액세스2000을 이용해서 CD관리 프로그램을 짜고 있는데요..
자꾸만 13런타임 오류입니다. 형식이 일치하지 않습니다.라는 메세지가 뜨거든요..
에러나는 부분이
Dim frmdb As Database
Dim frmtb As Recordset
Dim Sql As String
Set frmdb = OpenDatabase(App.Path & "\CDLIST.mdb")
Sql = "select * from 보유장수"
Set frmtb = frmdb.OpenRecordset(Sql, dbOpenDynaset) <- 여기 이부분에서 형식이 일치하지 않는다는 메세지가 납니다.
frmtb.MoveFirst
While Not frmtb.EOF
cbo장수.AddItem (frmtb!보유장수)
frmtb.MoveNext
Wend
frmtb.Close
Set frmtb = Nothing
frmdb.Close
Set frmdb = Nothing
제가 보기에는 맞는 문장인것 같은데.. 비주얼 베이직에서 데이터베이스를 쓸려면 따로 설정해 주어야 하는게 있는지요.. 답변 부탁드릴께요.
첫댓글 Set frmtb = frmdb.OpenRecordset(Sql) 이렇게 넣어보세요..
그래도 똑같은 오류가 뜨네요.. ^^;; 답변 감사합니다.
그리고 CDLIST.mdb가 읽을 수 없는 데이터 베이스 유형이라는 오류가 생기거든요.. ACCESS 2000을 써서 생셩시켰거든요..
MDAC를 최신 버전으로 업데이트 시켜서 해보세요