Public Class form1
Public Sub ConnectToOdbc()
Dim cn As New System.Data.Odbc.OdbcConnection
cn = New System.Data.Odbc.OdbcConnection(\"driver={CUBRID Driver};server=localhost;port=33000;uid=dba;pwd=;db_name=9920;\")
Try
Dim mystring As String = \"select * from custom\"
Dim cmd As System.Data.Odbc.OdbcCommand = New System.Data.Odbc.OdbcCommand(mystring)
cn.Open()
Catch ex As Exception
MessageBox.Show(\"Failed to connect to data source\")
Finally
\'conn.Close()
End Try
End Sub
\'큐브리드 연결 코드는 위와 같습니다.
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim sql As String
sql = \"select * from(path) where path_p_id = (select trace_p_id from trace, custom where trace.trace_c_id = custom.c_id and custom.c_name = \'조은혜\');\"
TextBox2.Text = \"select * from(path) where path_p_id = (select trace_p_id from trace, custom where trace.trace_c_id = custom.c_id and custom.c_name = \'조은혜\');\"
End Sub
end class
\'예상대로 연결이 됬다면 쿼리가 실행되야 하는데.. 그냥 문자열로 쿼리를 찍어주네요..
\'VB에서 큐브리드 연결에 어디가 틀렸는지 검토해주시면 감사하겠습니다.
|