VB에서 CUBRID ODBC/OLEDB 사용하는 방법 및 샘플코드.

Private Sub Command1_Click()

 

    Dim Conn As New ADODB.Connection

    Dim cmd As New ADODB.Command

    Dim rs As New ADODB.Recordset

    Dim strConn As String

   

    'ODBC드라이버 연결

    'strConn = strConn & "driver={CUBRID Driver};"

    'strConn = strConn & "server=localhost;"

    'strConn = strConn & "port=33000;"

    'strConn = strConn & "uid=dba;"

    'strConn = strConn & "pwd=;"

    'strConn = strConn & "db_name=demodb;"

 

    'OLE DB 드라이버 연결

    strConn = strConn & "Provider = CUBRIDProvider;"

    strConn = strConn & "Data Source = demodb;"

    strConn = strConn & "Location = localhost;"

    strConn = strConn & "User ID = dba;"

    strConn = strConn & "Password =;"

    strConn = strConn & "Port = 33000;"

    strConn = strConn & "Fetch Size = 100;"

    strConn = strConn & "Persist Security Info = True;"

 

    Set Conn = New ADODB.Connection

    With Conn

      .ConnectionString = strConn

      .Open

    End With

 

    With cmd

        .ActiveConnection = Conn

        .CommandText = "SELECT * FROM code;"

        .CommandType = adCmdText

    End With

 

    With rs

        .Open cmd

    End With

   

    List1.Clear

    If Not rs.EOF Then rs.MoveFirst

    Do While Not rs.EOF

        List1.AddItem rs.Fields(0) & ", " & rs.Fields(1)

        rs.MoveNext

    Loop

  

    Conn.Close

   

    Set Conn = Nothing

    Set cmd = Nothing

    Set rs = Nothing

End Sub