Insertar registro en base de datos
Publicado por LitO_ (11 intervenciones) el 03/06/2005 18:51:09
Es asi, estoy estudiando ADO.NET y me esta volviendo loco, no puedo agregar un registro a una base de datos.
Cuando llamo a este procedimiento me tira error "Referencia a objeto no establecida como instancia de un objeto."
Existes las 3 caja de texto que llamo abajo.
Pongo este codigo:
Sub Insertar(sender As Object, e As EventArgs)
Dim str As String
str = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=C:\Inetpub\wwwroot\asp\db.mdb"
Dim Conexion As New OleDbConnection (str)
Dim Comando As OleDbCommand
DIM q As String
q = "insert into datos(id, nombre, apellido) values (@id, @nombre, @apellido)"
Comando.CommandText = q
Comando.Connection = Conexion
Comando.Parameters.Add(new OleDbParameter("@id", OleDbType.Integer))
Comando.Parameters("@id").Value = idTexto.Text
Comando.Parameters.Add(new OleDbParameter("@nombre", OleDbType.VarWChar, 20))
Comando.Parameters("@nombre").Value = nombreTexto.Text
Comando.Parameters.Add(new OleDbParameter("@apellido", OleDbType.VarWChar, 20))
Comando.Parameters("@apellido").Value = apellidoTexto.Text
Comando.Connection.Open()
Comando.ExecuteNonQuery()
Comando.Connection.Close()
End Sub
Cuando llamo a este procedimiento me tira error "Referencia a objeto no establecida como instancia de un objeto."
Existes las 3 caja de texto que llamo abajo.
Pongo este codigo:
Sub Insertar(sender As Object, e As EventArgs)
Dim str As String
str = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=C:\Inetpub\wwwroot\asp\db.mdb"
Dim Conexion As New OleDbConnection (str)
Dim Comando As OleDbCommand
DIM q As String
q = "insert into datos(id, nombre, apellido) values (@id, @nombre, @apellido)"
Comando.CommandText = q
Comando.Connection = Conexion
Comando.Parameters.Add(new OleDbParameter("@id", OleDbType.Integer))
Comando.Parameters("@id").Value = idTexto.Text
Comando.Parameters.Add(new OleDbParameter("@nombre", OleDbType.VarWChar, 20))
Comando.Parameters("@nombre").Value = nombreTexto.Text
Comando.Parameters.Add(new OleDbParameter("@apellido", OleDbType.VarWChar, 20))
Comando.Parameters("@apellido").Value = apellidoTexto.Text
Comando.Connection.Open()
Comando.ExecuteNonQuery()
Comando.Connection.Close()
End Sub
Valora esta pregunta


0