반응형
OLEDB 로 연결 (암호)
With ConnDB
.CursorLocation = adUseClient
.ConnectionTimeout = 0
.CommandTimeout = 0
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Jet OLEDB:Database Password") = "password" '암호
.Open App.Path & "\sample.mdb" '디비경로
End With
With ConnDB
.CursorLocation = adUseClient
.ConnectionTimeout = 0
.CommandTimeout = 0
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Jet OLEDB:Database Password") = "password" '암호
.Open App.Path & "\sample.mdb" '디비경로
End With
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Jet OLEDB:Database Password=password;Data Source=" & App.Path & "sample.mdb"
반응형
'Computer_IT > VisualBasic' 카테고리의 다른 글
| [VB] MSN Style Notification Messages 구현소스 (1) | 2006.11.08 |
|---|---|
| [VB] Visual Basic 6 - IDE에서 MouseWheel 사용 (0) | 2006.09.19 |
| [VB] 키보드의 대문자만 입력 (0) | 2006.09.12 |
| [VB] Microsoft FlexGrid Control 6.0 Example (0) | 2006.09.12 |
| [VB] 종료시 확인하기, Terminate 시 확인 (0) | 2006.09.12 |
