vb6을 사용하여 SQL Server에 somee를 연결하는 방법

Question

vb6에서 SQL Server에 연결하려고하지만 코드를 알지 못합니다.

• SQL Server 버전 : SQL 서버 2008 R2 Express를
• SQL 서버 주소 : koroikadb.mssql.somee.com
• 로그인 이름 :
  내 제공자는 "somee은"나에게이 데이터를했다 XXXXXX
• 로그인 패스워드 : YYYYYY
• 연결 문자열 : 워크 스테이션 ID = koroikadb.mssql.somee.com, 패킷 길이 = 4096, 사용자 ID = XXXXXX; PWD = YYYYYY, 데이터 소스 = koroikadb.mssql.somee.com; 지속 보안 정보 = False; 초기 카타로그 = koroikadb

감사

당신은 가장 가능성 MDAC 2.8을 설치해야합니다

Answer 1

로그인합니다. 당신이 설치 한 일단 http://www.microsoft.com/en-us/download/details.aspx?id=5793

에서, VB6의 IDE에서 프로젝트를로드하고 다음을 클릭합니다 : (Microsoft 데이터 액세스 구성 요소) 당신은 여기에서 다운로드 할 수 있습니다

프로젝트> 참조 추가>

을

다음 사항을 확인

Microsoft ActiveX 데이터는 2.8 라이브러리

Microsoft ActiveX 데이터 OBJE 개체

Dim MyDB As New ADODB.Connection 
Dim MyRecordset as New ADODB.RecordSet 
MyDB.ConnectionString = "workstation id=koroikadb.mssql.somee.com;packet size=4096;user id=xxxxxx;pwd=yyyyyy;data source=koroikadb.mssql.somee.com;persist security info=False;initial catalog=koroikadb" 
MyDB.Open 
MyRecordset.Open "SELECT * FROM people",MyDB, adOpenForwardOnly,adLockReadonly 
If Not MyRecordset.EOF Then 
    Do 
     MyRecordset.MoveNext 
    Loop Until MyRecordset.EOF 
End If 
MyRecordset.Close 
MyDB.Close 
Set MyRecordset = Nothing 
Set MyDB = Nothing 

: CTS 레코드 2.8 라이브러리

확인>

그런 다음 다음 코드는 MS-SQL 데이터베이스에 연결하는 데 사용할 수 있습니다