1. Invitado Únete a nosotros si quieres ser locutor de la radio
    Descartar aviso
  2. InvitadoLlegaron al foro las userbar
    Descartar aviso
  3. Invitado Disfruta de un momento en el día donde podrás escuchar música de todo tipo, y si tienes pedidos o un género en particular no olvides que lo puedes dejar en comentarios para complacer aquellos gustos. Pop, Rock, Gotic, Kpop, Jpop, Alternativo, Salsa, Merengue, Baladas, etc. Música en diferentes idiomas desde inglés, japonés, coreano, ruso, español, y más.
  4. Invitado Asi que todos los viernes a las 21 horas mexico tendremos un pequeño programa donde hablaremos de peliculas, series, animacion, comics, manga, anime, videojuegos y de toda esas pequeñas cosas de la vida que todos amamos. Y todo acompañado con buena musica. Recuerden: El Angel Nocturno, con Satoshi, el regreso que nadie esperaba ni querian... Solo por CZRadio. Viernes 21 hrs Mexico, 23 hrs Argentina
  5. Invitado Durante mis emisiones platicare sobre videojuegos que ya conozco, que tengo curiosidad y sobre las novedades de la industria. Podrán escuchar música de todo tipo, y si se presta, incluso del mismo juego del que estaré hablando. Charlare con ustedes sobre las curiosidades, secretas teorías y trama que estas bellas obras de arte esconden. CLARO que si el juego acaba de salir no diré SPOILERS (a menos de que el público lo pida) Ya si el juego es viejo, pues… ¿la mayoría ha de conocerlo verdad?
  6. Invitado Hubo un circo, durante el siglo XIX fue muy popular, pero por alguna razón fue cerrado bruscamente.... ¿Te atreves a entrar?
    Descartar aviso

Pendiente Alta Registro Rumble Roses

Tema en 'Asistencia CemZoonita' iniciado por ElSchumi DelaAcera, 13 Septiembre 2014.

Cargando...
  1.  
    ElSchumi DelaAcera

    ElSchumi DelaAcera Creador del tema Equipo administrativo Critico

    Tauro
    Hola.
    :sticker1:

    Estoy haciendo un programa que registra a las competidoras de Rumble Roses (Espero que alguien conozca el juego.) Es un programa que utiliza una base de datos de Access con un programa de Visual Basic.
    El programa está bien programado, el problema es que al momento de registrar los datos, ese es, no lo registra.

    Les dejo todo: formulario, Tablas en Access y programación.

    upload_2014-9-13_7-19-20.png upload_2014-9-13_7-19-45.png

    upload_2014-9-13_7-21-2.png
    Imports System.Data
    Imports System.Data.OleDb

    Public Class Form1
    Dim Conexion As New OleDbConnection
    Dim comandos As New OleDbCommand

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    Conexion.Close()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Try
    Conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\RumbleRoses\RumbleRoses.accdb"
    Conexion.Open()
    MsgBox("Conectado a la BD" & vbCrLf & vbInformation & vbCrLf & "Correcto")
    Catch ex As Exception
    MsgBox("Error al conectar a la BD " & vbCritical & vbCrLf & "Sin Conexíón")
    End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
    comandos = New OleDbCommand("INSERT INTO Roster (Nombre, Nacionalidad, Edad, Peso, Altura, Busto, Cintura, Cadera, KillerMove, LethalMove, Humiliation) VALUES (TextNombre, TextNacionalidad, TextEdad, TextPeso, TextAltura, TextBusto, TextCintura, TextCadera, TextKillerMove, TextLethalMove, TextHumiliation)", Conexion)
    comandos.Parameters.AddWithValue("@Nombre", TextNombre.Text)
    comandos.Parameters.AddWithValue("@Nacionalidad", TextNacionalidad.Text)
    comandos.Parameters.AddWithValue("@Edad", TextEdad.Text)
    comandos.Parameters.AddWithValue("@Peso", TextPeso.Text)
    comandos.Parameters.AddWithValue("@Altura", TextAltura.Text)
    comandos.Parameters.AddWithValue("@Busto", TextBusto.Text)
    comandos.Parameters.AddWithValue("@Cintura", TextCintura.Text)
    comandos.Parameters.AddWithValue("@Cadera", TextCadera.Text)
    comandos.Parameters.AddWithValue("@KillerMove", TextKillerMove.Text)
    comandos.Parameters.AddWithValue("@LethalMove", TextLethalMove.Text)
    comandos.Parameters.AddWithValue("@Humiliation", TextHumiliation.Text)
    comandos.ExecuteNonQuery()
    MsgBox("Guardado", vbInformation, "Correcto")
    Catch ex As Exception
    MsgBox("Error al guardar registro", vbCritical, "Atención!")
    End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Conexion.Close()
    Me.Close()
    End Sub
    End Class

    Espero que me puedan solucionar lo más pronto posible este fin de semana. Se los voy a agradecer mucho.
     
  2.  
    Rancon

    Rancon Cemzoonita

    Capricornio
    ¿Esta seguro que debe ser "VALUES (TextNombre, TextNacionalidad,......", en lugar de "VALUES (?, ?,......" o "VALUES (@Nombre, @Nacionalidad,......"?, Es decir, "?" o el nombre de los parametros que esta mandando.
    Eso, suponiendo que no llega a los Catch (o que yo este equivocado/no vea otra cosa).
     

Comparte esta página