当前位置：首页 → 问答吧 → 用DataGrid控件显示Oracle数据出错的问题

用DataGrid控件显示Oracle数据出错的问题

时间：2011-09-26

来源：互联网

VB code


Public CNADO As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs1 As New ADODB.Recordset
Dim sql As String
Dim connect As String
Function data_connection() As Boolean
On Error GoTo dataconnectionerr
Set CNADO = New ADODB.Connection
CNADO.Provider = "MSDAORA"
CNADO.ConnectionTimeout = 10
CNADO.CursorLocation = adUseClient
CNADO.Open "DATA SOURCE=test;", "test", "test"
date_connection = True
Exit Function
dataconnectionerr:
   MsgBox Err.Description
   Data_Connect = False
End Function
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
Set rs = New Recordset
sql = "" + Text1.Text + ""
      rs.Open sql, CNADO, adOpenStatic
      Set DataGrid1.DataSource = rs
End Sub
Private Sub Form_Load()
data_connection
End Sub