Wrox Home  
Search P2P Archive for: Go

  Return to Index  

aspx_espanol thread: Anadir datos en ACCESS


Message #1 by "Jose-Pablo" <jplrened@t...> on Tue, 12 Nov 2002 19:55:26 -0400
esto es una funcion para agregar unos datos pasandole parametros con ado espero te sirva, haaaaa una
recomendacion olvidate de lo que era recorset....

Function Insertar(ByVal Asunto As String, _

                                ByVal Producto As String, _

                                ByVal Descrip As String, _

                                ByVal Fecha As String, _

                                ByVal Usuario As String) As Integer

Dim connectionString = "File name=c:\Helpdesk.udl"

Dim Connection As OleDbConnection = New OleDbConnection(connectionString)

Dim queryString As String = "INSERT INTO requisicion ([Asunto], [Producto], [Descripcion], [Fecha], " & _

" [Usuario]) VALUES ('" & Asunto & " ', '" & Producto & " ', '" & Descrip & _

" ', '" & Fecha & " ', '" & Usuario & " ')"

Dim Command As OleDbCommand = New OleDbCommand(queryString, Connection)

Dim rowsAffected As Integer = 0

Connection.Open()

Try

rowsAffected = Command.ExecuteNonQuery

'ESTO ES PARA QUE VALIDE SI HAY ERROR O NO Y AVISE AL USUARIO CON UN MSGBOX

If Err.Number <> 0 Then

Dim strScript As String

strScript = "<script language='vbscript'> " & _

"msgbox ""Error al tratar de insertar los datos"",vbError, ""ERROR"" </script>"

Page.RegisterClientScriptBlock("ScriptID", strScript)

End If

If Err.Number = 0 Then

Dim strScript As String

strScript = "<script language='vbscript'> " & _

"msgbox ""Sus datos fueron insertados correctamente"",vbinformation, ""Felicidades.."" </script>"

Page.RegisterClientScriptBlock("ScriptID", strScript)

End If

Finally

Connection.Close()

End Try

Return rowsAffected

End Function

  ----- Original Message ----- 
  From: Jose-Pablo 
  To: ASP.Net en Español 
  Sent: Tuesday, November 12, 2002 5:55 PM
  Subject: [aspx_espanol] Anadir datos en ACCESS


  Estoy tratando de cambiar de ASP a ASP.net y no se me esta haciendo facil.

  Estoy en el proceso de aprender a anadir datos en un base de datos ACCESS con VB y no puedo conseguirlo.

  Alguien me puede decir como o enviarme un e-mail con un codigo para tener una base?

  Estoy intentado seguir algunos tutoriales bajados del web pero no puedo llegar donde quiero.

  Alguna yuda?

  Gracias.




  ---
  Usted está suscrito a aspx_espanol como: 
  negrabichuela@y...
  Para darse de baja, envíe un mensaje en blanco a 
  %%email.unsub%%



  Return to Index