我想用VB连接oracle，执行这一条更新update yong_a set b=1 where a = （控件test1填进去的数字）

Question

只需执行这一条sql语句：update yong_a set b=1 where a = （控件test1填进去的数字），最好能用adodb连接
数据库是：diy   帐号：system  密码：1；小弟不才，看了两天VB连接oracle还是没弄懂，希望高手搭救！
希望能把整一个语句写下来让小弟研究研究

Answer 1

添加datagrid控件用于显示数据
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=diy;", "system", "1"
date_connection = True
Exit Function
dataconnectionerr:
   MsgBox Err.Description
   Data_Connect = False
End FunctionPrivate Sub Command1_Click()
On Error GoTo error1:
Set rs = New Recordset
sql = "update yong_a set b=1 where a ="+test1.text+""
      rs.Open sql, CNADO, adOpenStatic
      Set DataGrid1.DataSource = rs
      Exit Sub
error1:
      MsgBox "no table"
End Sub
以前写的！

Answer 2

忘记了，还要引用
Microsoft Data Environment instance 1.0
Microsoft  ActiveX Data Objects 2.8 library

Answer 3

我将这段代码弄上去，控件datagrid加了，然后Microsoft Data Environment instance 1.0
Microsoft ActiveX Data Objects 2.8 library 也引用了，但它提示no table,SQL语句我在SQL查询可以查出来

Answer 4

显示no tabel表示已经连接了，你把sql = "update yong_a set b=1 where a ="+test1.text+""改成sql = "select * from tabs"；如果显示有数据的话那就是你SQL写的有问题。

Answer 5

我改成sql = "select * from tabs"之后，运行点击Command1控件之后还是提示：no table，不知道哪里出问题了

Answer 6

CNADO.Open "DATA SOURCE=diy;", "system", "1"  这个你确认下，不知道我有没弄反。！

Answer 7

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=diy;", "system", "1"
'CNADO.Open "DATA SOURCE=数据库;", "账号", "密码"
date_connection = True
Exit Function
dataconnectionerr:
   MsgBox Err.Description
   Data_Connect = False
End Function
Private Sub Command1_Click()
Call Command2_Click
End SubPrivate Sub Command2_Click()
On Error GoTo error1:
Set rs = New Recordset
sql = "" + Text1.Text + ""
      rs.Open sql, CNADO, adOpenStatic
      Set DataGrid1.DataSource = rs
      Exit Sub
error1:
      MsgBox "no table"
End SubPrivate Sub Form_Load()
data_connection
End Sub引用这两个
忘记了，还要引用
Microsoft Data Environment instance 1.0
Microsoft ActiveX Data Objects 2.8 library
然后加一个控件textbox，一个DataGrid（用于显示数据），一个Command！
DataGrid控件是这个Microsoft Datagrid control 6.0(OLEDB)
然后在text1.text里输入你的SQL语句执行。！这样就可以了。！

Answer 8

昨天是忘记加这个了
Private Sub Form_Load()
data_connection
End Sub是两个Command！