Computer_IT/VisualBasic 2006.12.09 20:46
    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


ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Jet OLEDB:Database Password=password;Data Source=" & App.Path & "sample.mdb"


posted by 고급코드 고급코드
Computer_IT/VisualBasic 2006.11.08 22:56
Visual Basic

VB


Tray Alert Message



posted by 고급코드 고급코드
Computer_IT/VisualBasic 2006.09.19 10:07

http://support.microsoft.com/?id=837910  접속후 다운로드


regsvr32 "C:\Program Files\Microsoft Visual Studio\VB98\VB6IDEMouseWheelAddin.dll"   입력!





posted by 고급코드 고급코드
Computer_IT/VisualBasic 2006.09.12 11:07
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. ' 대문자로만 입력받음
  3.     KeyAscii = Asc(UCase(Chr(KeyAscii)))
  4. End Sub
 
posted by 고급코드 고급코드
Computer_IT/VisualBasic 2006.09.12 10:39
 
  1. Option Explicit
  2. Private Sub cmdAdd_Click()
  3. Dim Rc As Integer       ' RowCount
  4. Dim Kor As Integer, Eng As Integer, Math As Integer, Tot As Integer
  5. Dim ave As Single
  6.     If Trim(txtName) = "" Then
  7.         MsgBox "이름을 입력해줄래??"
  8.         Exit Sub
  9.     End If
  10.    
  11.     Rc = FGrid1.Rows
  12.     FGrid1.Rows = Rc + 1
  13.    
  14.     ' 입력값 계산
  15.     Kor = Val(txtKor)
  16.     Eng = Val(txtEng)
  17.     Math = Val(txtMath)
  18.    
  19.     Tot = Kor + Eng + Math
  20.    
  21.     ave = Round(Tot / 3, 2) ' 반올림 소수 2째 자리
  22.    
  23.    
  24.     ' Flex Grid 에 값 넣기..
  25.     FGrid1.TextMatrix(Rc, 0) = txtName
  26.     FGrid1.TextMatrix(Rc, 1) = txtKor
  27.     FGrid1.TextMatrix(Rc, 2) = txtEng
  28.     FGrid1.TextMatrix(Rc, 3) = txtMath
  29.     FGrid1.TextMatrix(Rc, 4) = Tot
  30.     FGrid1.TextMatrix(Rc, 5) = ave
  31.    
  32.     ' 입력값 공백으로...
  33.     txtName = ""
  34.     txtKor = ""
  35.     txtEng = ""
  36.     txtMath = ""
  37.    
  38.     txtName.SetFocus
  39.    
  40. End Sub
  41. Private Sub Form_Load()
  42.     FGrid1.Rows = 1
  43. End Sub
 
posted by 고급코드 고급코드
Computer_IT/VisualBasic 2006.09.12 10:05
 
  1. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  2.     Cancel = MsgBox("정말로 창을 닫으시겠습니까?", vbOKCancel + vbDefaultButton2, "프로그램 종료중")
  3.    
  4.     If Cancel = 1 Then
  5.         End
  6.     End If
  7.    
  8. End Sub
posted by 고급코드 고급코드