Ver Mensaje Individual
  #3 (permalink)  
Antiguo 18/04/2005, 02:54
jiglesiasn
 
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