Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim Conectar As OleDb.OleDbConnection
Dim Oleadatador As OleDb.OleDbDataAdapter
Dim Oledataset As DataSet = New DataSet()
Conectar = New OleDb.OleDbConnection()
Conectar.ConnectionString = "Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist Security Info=True;Initial Catalog=nuevas;Data
Source=PC1;Workstation ID=PC1;"
Conectar.Open()
Oleadatador = New OleDb.OleDbDataAdapter("select * from tabla1", Conectar)
Oleadatador.Fill(Oledataset, "tabla1")
Dim RegistroNuevo As DataRow = Oledataset.Tables("Tabla1").NewRow
RegistroNuevo("ID") = 6
RegistroNuevo("NOMBRE") = "CLAUDIO"
RegistroNuevo("VALOR") = 9
Oledataset.Tables("tabla1").Rows.Add(RegistroNuevo)
Dim comm As OleDb.OleDbCommand
comm = New OleDb.OleDbCommand()
comm.Connection = Conectar
comm.CommandText = "INSERT INTO TABLA1 (ID, NOMBRE, VALOR) VALUES (@ID,
@NOMBRE, @VALOR)"
comm.Parameters.Add("@ID", OleDbType.Numeric, 9, "ID")
comm.Parameters.Add("@NOMBRE", OleDbType.VarChar, 10, "NOMBRE")
comm.Parameters.Add("@VALOR", OleDbType.Decimal, 9, "VALOR")
Oleadatador.InsertCommand = comm
Oleadatador.Update(Oledataset, "TABLA1")
"IDcom - Edison Rojas" <ediso...@jetband.com.ar> escribió en el mensaje
news:OvhBZouY...@TK2MSFTNGP15.phx.gbl...
> ME EL SIGUENTE ERROR : Excepción no controlada del tipo
> 'System.Data.OleDb.OleDbException' en system.data.dll
> EN LA LINEA ->Oleadatador.Update(Oledataset, "TABLA1")<-
Hola:
Para consultas sobre ADO .NET, te sugeriría que las efectuaras en los grupos
de noticias propios de .NET existentes en este mismo servidor de noticias:
microsoft.public.es.dotnet.ado
microsoft.public.es.dotnet.vb
No obstante, y viendo el código fuente que has publicado, yo te recomendaría
que si vas a trabajar con bases de datos SQL Server 7.0 ó 2000, en lugar de
utilizar el espacio de nombre «System.Data.OleDb», utilices el espacio de
nombres propio para SQL Server: «System.Data.SqlClient». Es decir, en lugar
de declarar objetos OleDb..., decláralos como Sql... Por ejemplo, para los
objetos Connection y Command, sería así:
Dim Conectar As SqlClient.SqlConnection
Dim comm As SqlClient.SqlCommand
Un saludo
--
Enrique Martínez
[MS MVP - VB]
Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.
"Guillermo Peralta" <guillermo...@SPAMonenet.com.ar> escribió en el
mensaje news:eZD4KwuY...@tk2msftngp13.phx.gbl...