반응형
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 |
[VB] MSN Style Notification Messages 구현소스
Computer_IT/VisualBasic2006. 11. 8. 22:56
반응형
invalid-file반응형
'Computer_IT > VisualBasic' 카테고리의 다른 글
| [VB] Access OLEDB & Access Passworld, 암호 설정되어있을시 연결문자열 (0) | 2006.12.09 |
|---|---|
| [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 |
[VB] Visual Basic 6 - IDE에서 MouseWheel 사용
Computer_IT/VisualBasic2006. 9. 19. 10:07
반응형
http://support.microsoft.com/?id=837910 접속후 다운로드
regsvr32 "C:\Program Files\Microsoft Visual Studio\VB98\VB6IDEMouseWheelAddin.dll" 입력!
반응형
'Computer_IT > VisualBasic' 카테고리의 다른 글
| [VB] Access OLEDB & Access Passworld, 암호 설정되어있을시 연결문자열 (0) | 2006.12.09 |
|---|---|
| [VB] MSN Style Notification Messages 구현소스 (1) | 2006.11.08 |
| [VB] 키보드의 대문자만 입력 (0) | 2006.09.12 |
| [VB] Microsoft FlexGrid Control 6.0 Example (0) | 2006.09.12 |
| [VB] 종료시 확인하기, Terminate 시 확인 (0) | 2006.09.12 |
[VB] 키보드의 대문자만 입력
Computer_IT/VisualBasic2006. 9. 12. 11:07
반응형
- Private Sub Text1_KeyPress(KeyAscii As Integer)
- ' 대문자로만 입력받음
- KeyAscii = Asc(UCase(Chr(KeyAscii)))
- End Sub
반응형
'Computer_IT > VisualBasic' 카테고리의 다른 글
| [VB] Access OLEDB & Access Passworld, 암호 설정되어있을시 연결문자열 (0) | 2006.12.09 |
|---|---|
| [VB] MSN Style Notification Messages 구현소스 (1) | 2006.11.08 |
| [VB] Visual Basic 6 - IDE에서 MouseWheel 사용 (0) | 2006.09.19 |
| [VB] Microsoft FlexGrid Control 6.0 Example (0) | 2006.09.12 |
| [VB] 종료시 확인하기, Terminate 시 확인 (0) | 2006.09.12 |
[VB] Microsoft FlexGrid Control 6.0 Example
Computer_IT/VisualBasic2006. 9. 12. 10:39
반응형
- Option Explicit
- Private Sub cmdAdd_Click()
- Dim Rc As Integer ' RowCount
- Dim Kor As Integer, Eng As Integer, Math As Integer, Tot As Integer
- Dim ave As Single
- If Trim(txtName) = "" Then
- MsgBox "이름을 입력해줄래??"
- Exit Sub
- End If
- Rc = FGrid1.Rows
- FGrid1.Rows = Rc + 1
- ' 입력값 계산
- Kor = Val(txtKor)
- Eng = Val(txtEng)
- Math = Val(txtMath)
- Tot = Kor + Eng + Math
- ave = Round(Tot / 3, 2) ' 반올림 소수 2째 자리
- ' Flex Grid 에 값 넣기..
- FGrid1.TextMatrix(Rc, 0) = txtName
- FGrid1.TextMatrix(Rc, 1) = txtKor
- FGrid1.TextMatrix(Rc, 2) = txtEng
- FGrid1.TextMatrix(Rc, 3) = txtMath
- FGrid1.TextMatrix(Rc, 4) = Tot
- FGrid1.TextMatrix(Rc, 5) = ave
- ' 입력값 공백으로...
- txtName = ""
- txtKor = ""
- txtEng = ""
- txtMath = ""
- txtName.SetFocus
- End Sub
- Private Sub Form_Load()
- FGrid1.Rows = 1
- End Sub
반응형
'Computer_IT > VisualBasic' 카테고리의 다른 글
| [VB] Access OLEDB & Access Passworld, 암호 설정되어있을시 연결문자열 (0) | 2006.12.09 |
|---|---|
| [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] 종료시 확인하기, Terminate 시 확인 (0) | 2006.09.12 |
[VB] 종료시 확인하기, Terminate 시 확인
Computer_IT/VisualBasic2006. 9. 12. 10:05
반응형
- Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
- Cancel = MsgBox("정말로 창을 닫으시겠습니까?", vbOKCancel + vbDefaultButton2, "프로그램 종료중")
- If Cancel = 1 Then
- End
- End If
- End Sub
반응형
'Computer_IT > VisualBasic' 카테고리의 다른 글
| [VB] Access OLEDB & Access Passworld, 암호 설정되어있을시 연결문자열 (0) | 2006.12.09 |
|---|---|
| [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 |
