이번 포스팅은 5개의 버튼 각각의 코드입니다. 버튼은 등록, 수정, 삭제, 초기화, 닫기 이렇게 5개입니다. 우선 등록 버튼은 매입처명, 구분, 발주구분을 입력한뒤 클릭시 DB에 저장(INSERT)하는 코드입니다. '등록 Private Sub btnRegister_Click() If txtPurchase.Value = "" Then MsgBox "매입처명을 입력해 주세요.", vbCritical, "입력오류" Exit Sub End If Call Connect_DB '중복 매입처 체크 SQL = "SELECT * FROM purchase WHERE purchaseName LIKE '" & txtPurchase.Value & "'" rs.CursorLocation = adUseClient '★★★★★★★★..
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Option Explicit Dim Cn As ADODB.Connection Dim rs As ADODB.Recordset Dim SQL As String Sub DataBase연결() On Error Resume Next Dim a, b, c, d As String a = "DB IP 어드레스" 'IP 어드레스 b = "DB 이름" 'DB c = "ID" 'ID d = "password" 'PW Set Cn = New ADODB.Connection Set rs = New ADODB.Recordset Cn.Open "Provider = SQLOLEDB;Data Source=" & a & ";Initial Catalog= " ..
오랫만에 블로그를 개설해 봅니다. 이 블로그의 목적은 엑셀을 활용해서 유통회사의 재고관리, 수발주관리등을 만들기 위함에 있습니다. 현재 제가 다니는 회사(직원 3명뿐인 작은)가 식자재를 납품하는 유통회사라서 재작년쯤부터 엑셀 vba와 sql server(ms-sql)을 이용해서 조금씩 만들고 있습니다. 물론 회사에서 천년경영이라는 ERP 프로그램도 사용하고 있습니다만 보통 만들어져서 판매되고 있는 ERP 프로그램의 경우에는 저희같은 소규모의 유통회사가 원하는 기능과는 조금 거리가 있는게 사실입니다. 해서 원하는 기능이라던지 원하는 양식을 사용하기 위해서 엑셀로 조금씩 공부도 해가며 만들어 가고 있습니다. 물론 저는 엑셀의 전문가라던지 그런 사람은 아닙니다. 단지 만들어가면서 필요한 내용이라던지 제가 알아..
