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%%