Development/VB.NET2 VB 6.0에서 Recordset의 Value 가져오기 예상외로 난해함. 필드명이나 제일 상단 Value는 가져오나 index로 가져오기 어려움. 일단 쿼리를 통해 Recordset을 가져왔다는 가정하에서 진행. myRectSet As New ADODB.Recordset 를 통해 myRectSet로 테이블을 가져왔음. Dim var As Variant var = myRectSet.GetRows(myRectSet.RecordCount) For i =0 To UBound(var, 2) MsgBox (var(0, i)) Next myRectSet.Close 이게 다임. GetRows시 i를 넣어서 가져오는 줄 알았으나 전체 갯수를 가져와야 됨. 이 후 UBound를 통해 다시 전체갯수를 알아올수 있는 듯. MsgBox에 var()를 통해, 첫번째는 필드, 두번째는.. 2012. 5. 12. 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, MyConnO.. 2012. 5. 12. 이전 1 다음
