1. Invitado La navidad llego a Cz, ¿Por que no vas a visitar la choza de Santa Cooz?
  2. Invitado ¿Te gustaría participar?, podrías ganar una versión chibi de ti <3
    Descartar aviso
  3. Invitado ¿Puedes jugar sin repetir palabra?
    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 Cemzoonita Critico Aces & Eights

    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