ASP.NET - Insertar datos en Access 2000 con asp.net 2003

 
Vista:

Insertar datos en Access 2000 con asp.net 2003

Publicado por Joan Esteban (2 intervenciones) el 23/04/2009 17:50:19
Tengo inconveniente al querer insertar dos datos a una tabla, la base de datos se llama bd_empresa, y la tabla clientes con dos campos
documento texto 10
nombre texto 10

Tengo un formulario Web en asp.net 2003, de ahi capturo los dos campos y no me deja insertar, coloque los datos en forma fija para ver si me inserta los datos y tampoco, que debo hacer ya que con esta misma estructura y cambiando los datos necesarios para utilizarlo en Sql 2000 me funciona perfectamente, pero en access 2000, no he podido sera que alguien me colabora con esta duda. Remito el codigo utilizado desde el formulario asp.net 2003

Private Sub btn_grabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_grabar.Click
Dim miconexion1 As OleDbConnection
Dim cadenaconexion1, sentenciasql As String
Dim cod_error As String
Dim registros As Integer
Dim Cadena As String
Dim comando As OleDbCommand
Dim var1, var2, a As String
registros = 0
var1 = (CType(txttitulo, TextBox).Text)
var2 = (CType(txttexto, TextBox).Text)
Cadena = "'" & var1 & "','" & var2 & "'"
cadenaconexion1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Inetpubwwwrootweb_empresadatosd_empresa.mdb"
'*****************************************
miconexion1 = New OleDbConnection(cadenaconexion1)
cod_error = 0
Try
miconexion1.Open()
Catch errorconexion As OleDbException
cod_error = 1
End Try
'*****************************************
'sentenciasql = "insert into clientes(documento,nombre) values (" & Cadena & ")"
sentenciasql = "insert into clientes(documento,nombre) values ('123','JOAN')"
'*****************************************
comando = New OleDbCommand(sentenciasql, miconexion1)
Try
registros = comando.ExecuteNonQuery()
Catch errorconexion As OleDbException
End Try
'*****************************************
miconexion1.Close()
If registros > 0 Then
Me.txttitulo.Text = ""
Me.txttexto.Text = ""
Me.MsgBox1.ShowMessage("Registros Insertados")
Else
Me.MsgBox1.ShowMessage("Registros No Insertados")
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder