
18/04/2005, 02:54
|
| | Fecha de Ingreso: marzo-2005
Mensajes: 122
Antigüedad: 19 años, 11 meses Puntos: 0 | |
ejemplo completo Meter datos en base Access por parámetros.
Código:
Dim conn As OleDbConnection = New OleDbConnection()
Dim cmdselect As OleDb.OleDbCommand
Dim dremp As OleDb.OleDbDataReader
Dim ruta As String
Dim strsql As String
ruta = Server.MapPath("\balu\validar.mdb")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
conn.Open()
strsql = ""
strsql = strsql & "INSERT INTO Reservas ("
strsql = strsql & " Localizador,"
strsql = strsql & " Fentrada,"
strsql = strsql & " FSalida,"
strsql = strsql & " ) VALUES ( "
strsql = strsql & " @p1,"
strsql = strsql & " @p2,"
strsql = strsql & " @p3)"
Try
cmdselect = New OleDb.OleDbCommand(strsql, conn)
cmdselect.Parameters.Add("@p1", "mi cadena")
cmdselect.Parameters.Add("@p2", "mi cadena")
cmdselect.Parameters.Add("@p3", "mi cadena")
cmdselect.ExecuteNonQuery()
conn.Close()
Catch nombre As Exception
mensaje = "Error al Grabar " & nombre.Message
strScript = "<script language=javascript> alert('" & mensaje & "') </script>"
RegisterStartupScript("alertMay", strScript)
Exit Sub
End Try
|