모듈을 이용해 sql 커넥션을 만들고 싶습니다.
안찬
안녕하세요.모듈에 ms-sql을 연동하는 함수를 만들었습니다.비베 6.0에선 되었었는데, net에는 되질 않아서 질문합니다.
Public Sub DB_Conn()
ConnStr = Provider=SQLOLEDB;server=localhost;uid=sa;pwd=q123;initial catalog=mook1;
Dim Conn As New OleDbConnection(ConnStr)
Conn.Open()
End Sub비베 6.0에선 위와 같은 코드를 작성해서 이벤트마다 넣어서 사용했었습니다.
ex)
Private Sub Command1_Click()
Call Conn_DB ' 연결 선언
Call Open_DB(3, Me)
On Error GoTo ERR
If Scr_compact(1, Me) = False Then Exit Sub 'ok
Call DB_save(1, Me) 'ok
Call Grid_setting(1, Me)
Call Grid_dist(1, Me)
Call Scr_clear(1, Me)
Exit Sub
ERR:
MsgBox 조건이 맞지 않습니다.
Conn.Close
End Sub
그런데 비베 net에선 위와 같이 작성하면되 에러가 나서 어떻게 바꿔야 하는지 모르겠습니다.
Conn_DB 내용을 일일이 입력을 하면 구동은 되는데 말입니다.
기존 모듈이나 클래스 형태로 DB를 커넥션 하는 부분을 만들고 싶은데
어떻게 해야하는지 궁금합니다.
부탁드립니다.
-
첫삥
Module Module1
Public con As New ADODB.Connection
Public Sub DB_Conn()
con = New ADODB.Connection
Dim Connstr As String
Connstr = \Provider=SQLOLEDB;server=localhost;uid=sa;pwd=q123;initial catalog=mook1;\
Conn.Open(Connstr)
End Sub
End Module