C#3.5+ORACLE8i和VB6.0+ORACLE8i

OracleConnection oracleConnection = new OracleConnection(@"Data Source=lys;Persist Security Info=True;User ID=system;Password=manager;Unicode=True");

try
{
    oracleConnection.Open();

    //OracleCommand oracleCommand = new OracleCommand("insert into test2 (name) values ('" + TextBox1.Text.Trim() + "')", oracleConnection);
    //oracleCommand.ExecuteNonQuery();

    DataSet dataSet = new DataSet();
    OracleDataAdapter oracleDataAdapter = new OracleDataAdapter("SELECT * FROM TEST2", oracleConnection);
    OracleCommandBuilder oralceCommandBuilder = new OracleCommandBuilder(oracleDataAdapter);
    oracleDataAdapter.Fill(dataSet);

    DataRow newDataRow = dataSet.Tables[0].NewRow();

    newDataRow["name"] = "一寸血";

    dataSet.Tables[0].Rows.Add(newDataRow);
    oracleDataAdapter.Update(dataSet);
 }
 finally
 {
    oracleConnection.Close();
 }

 
//带事务的 

OracleConnection oracleConnection = new OracleConnection(@"Data Source=lys;Persist Security Info=True;User ID=system;Password=manager;Unicode=True");
try
{

    oracleConnection.Open();

    //OracleCommand oracleCommand = new OracleCommand("insert into test2 (name) values ('" + TextBox1.Text.Trim() + "')", oracleConnection);
    //oracleCommand.Transaction=  oracleConnection.BeginTransaction();
    //oracleCommand.ExecuteNonQuery();
    //oracleCommand.Transaction.Commit();

    DataSet dataSet = new DataSet();

    OracleDataAdapter oracleDataAdapter = new OracleDataAdapter("SELECT * FROM TEST2", oracleConnection);
    oracleDataAdapter.SelectCommand.Transaction = oracleConnection.BeginTransaction();  
    OracleCommandBuilder oralceCommandBuilder = new OracleCommandBuilder(oracleDataAdapter);
    oracleDataAdapter.Fill(dataSet);

    DataRow newDataRow = dataSet.Tables[0].NewRow();
    newDataRow["name"] = TextBox1.Text.Trim();

    dataSet.Tables[0].Rows.Add(newDataRow);
    oracleDataAdapter.Update(dataSet);
    oracleDataAdapter.SelectCommand.Transaction.Commit();

}
finally
{
    oracleConnection.Close();
}

 

Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset

oConn.ConnectionTimeout = 0
oConn.Open "Provider=MSDAORA.1;Password=manager;User ID=system;Data Source=lys;Persist Security Info=True"
oConn.CommandTimeout = 0

oRs.CursorLocation = adUseClient
oRs.Open "SELECT * FROM TEST2", oConn, adOpenKeyset, adLockPessimistic
oRs.AddNew
oRs("NAME") = Trim(Text1.Text)
oRs.Update

oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing

'带事务
Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset

oConn.ConnectionTimeout = 0
oConn.Open "Provider=MSDAORA.1;Password=manager;User ID=system;Data Source=lys;Persist Security Info=True"
oConn.CommandTimeout = 0
oConn.BeginTrans

On Error GoTo ErrorHandler
oRs.CursorLocation = adUseClient
oRs.Open "SELECT * FROM TEST2", oConn, adOpenKeyset, adLockPessimistic
oRs.AddNew
oRs("NAME") = Trim(Text1.Text)
oRs.Update
oConn.CommitTrans

oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
Exit Sub

ErrorHandler:
oConn.RollbackTrans
End Sub