VB 6.0에서 MSSQL 접근하기

우선 VB 6.0을 실행.

 

 

켜서 간단하게 표준 EXE를 생성.

 

 

여기서 마우스 포인터가 가르키는 컨트롤을 클릭하고 창 안에다가 드래그해서 컨트롤 생성.

 

Command1_Click()라는 메서드 안에 코드 작성.

<내용>

Private Sub Command1_Click()

Dim MyConnObj As New ADODB.Connection
Dim myRectSet As New ADODB.Recordset

MyConnObj.Open "Provider = sqloledb;Data Source=서버이름;Initial Catalog=테이블이름", "아이디", "패스워드", -1

Dim sqlStr As String

sqlStr = "select * from 테이블이름"

myRectSet.Open sqlStr, MyConnObj, adOpenKeyset

MsgBox "Total Number of records = " & myRectSet.RecordCount

MyConnObj.Close

End Sub

서버 매니저에서

 

Server name이라고 된게 서버 이름. Login이 아이디, Password가 패스워드.
테이블이름은 여기서 로그인해서 들어간 후에 사용할 테이블 이름.

위에서 굵게 표시한 부분은 없어도 됨. 제대로 접근이 됐는지 알아보기 위한 메세지 박스에 넣어서 테스트 해보면 됨.

참고로 ADODB를 쓰기 위해선 라이브러리 등록을 해야됨.
VB 6.0 메뉴 상단에 프로젝트의 참조를 들어가서 Microsoft ActiveX Data Objects 2.8 Library를 체크하고 확인.