高分求vb6/VB.net运用ORACLE8/9的代码

Question

举一个简单保存数据的例子：
        
 Dim conn As New OracleClient.OracleConnection("Password=hcb;User ID=hcb;Data Source=db")
 Dim cmd As New OracleClient.OracleCommand()
 Dim strsql As String
 Dim dtDate As Date dtDate = CType(listYear.SelectedItem.Value.Trim & "-" & listMonth.SelectedItem.Value.Trim & "-" & listDay.SelectedItem.Value.Trim, Date)
 conn.Open()
 cmd.Connection = conn
 If Val(hID.Value.Trim) = 0 Then
            '新增
     strsql = "insert into DayPlan(dPlanDate,dPlanContent,dFinishNote,dFinishRate,dOtherNote) " _
                   & " values(to_date('" & Format(dtDate, "yyyyMMdd") & "','YYYYMMDD'),'" _
                   & txtContent.Text.Trim.Replace("'", "''") & "','" & txtFinish.Text.Trim.Replace("'", "''") & "', " & Val(txtRate.Text.Trim) & ",'" & txtOther.Text.Trim.Replace("'", "''") & "') "
            cmd.CommandText = strsql
            cmd.ExecuteNonQuery()
        Else
            '修改
            strsql = "update DayPlan " _
                   & "   set dFinishRate = " & Val(txtRate.Text.Trim)
            If hContent.Value.Trim = "1" Then
                strsql = strsql & ", dPlanContent = '" & txtContent.Text.Trim & "' "
            End If            If hFinish.Value.Trim = "1" Then
                strsql = strsql & ", dFinishNote = '" & txtFinish.Text.Trim.Replace("'", "''") & "' "
            End If            If hOther.Value.Trim = "1" Then
                strsql = strsql & ", dOtherNote = '" & txtOther.Text.Trim.Replace("'", "''") & "' "
            End If            strsql = strsql & " where dPlanID = " & hID.Value.Trim
            cmd.CommandText = strsql
            cmd.ExecuteNonQuery()        End If
        conn.Close()

Answer 1

你去.net里面找找，有很多你想要的东西

Answer 2

UP如果有VB6连ORACLE的源码，则更好！同志们，帮我一把啊

Answer 3

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.RecordsetPrivate Sub Form_Load()
cnn.ConnectionString = "Provider=OraOLEDB.Oracle;" & _
                          "Data Source=" & mydata & ";" & _
                          "User ID=" & userid & ";" & _
                          "Password=" & password & ";"
cnn.Open
rst.Open sql, cnn, 3, 1
不过要装客户端，我自己正在编著这个程序，试过了。绝对有用

Answer 4

Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    
    Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.Open "Provider=MSDAORA.1;" & _
                 "Password=qsun;User ID=qsun;" & _
                 "Data Source=manu;"
    
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandType = adCmdText
    cmd.CommandText = "{call pkg_typ.pro_test(?,{resultset 0, p_cur})}"
    cmd.Parameters.Append cmd.CreateParameter("p_id", adNumeric, adParamInput, 10, 1)
    Set rs = cmd.Execute
    
    Do Until rs.EOF
        Debug.Print rs.Fields(0)
        rs.MoveNext
    Loop
    
    rs.Close
    conn.Close
End Sub

Answer 5

Dim OraConnectionString As String = "Provider=OraOLEDB.Oracle.1;User Id=system;Password=manager;Data Source=sid;"        Dim mySqlString As String
        Dim OraConnection As New OleDb.OleDbConnection(OraConnectionString)
        Dim OraCommand As New OleDb.OleDbCommand()
        Dim OraReader As OleDb.OleDbDataReader        Try
            mySqlString = "select id,name from t1"
            OraCommand.CommandText = mySqlString
            OraCommand.Connection = OraConnection
            OraConnection.Open()            OraReader = OraCommand.ExecuteReader(CommandBehavior.CloseConnection)
            While OraReader.Read
                If IsDBNull(OraReader.Item(0)) Then
                    System.Console.WriteLine("id=;")
                Else
                    System.Console.WriteLine("id=" & OraReader.Item(0).ToString & ";")
                End If                If IsDBNull(OraReader.Item(1)) Then
                    System.Console.WriteLine("name=.")
                Else
                    System.Console.WriteLine("name=" & OraReader.Item(1).ToString & ".")
                End If
            End While            OraReader.Close()
            OraReader = Nothing
            OraConnection.Close()   'close connect at here...
        Catch myException As Exception
            MessageBox.Show(myException.ToString)
        Finally
            If OraConnection.State = Data.ConnectionState.Open Then
                OraConnection.Close()
                If Not (OraReader Is Nothing) Then
                    OraReader = Nothing
                End If                If Not (OraCommand Is Nothing) Then
                    OraCommand = Nothing
                End If
            End If
        End Try

Answer 6

先谢了！
再发啊！
CSDN的朋友就是好！再接再励哦！
明天晚上九点一定给分！