Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - Rivax

#1
Hola, estoy intentando hacer una select a Access 2007 en Visual Basic con Visual Studio 2013, peor no soy capaz de hacerlo.

La cadena de conexión está bien, pues me permite insertar los datos, pero cuando intento sacarlos de la base de datos y mostrarlos en cajas de texto, no sé por qué, no me deja hacerlo.

Los he probado de muchas maneras y nada. Aquí dejo el código a ver si alguien me puede orientar  ;-)

Código (vbnet) [Seleccionar]

Try

    'Se abre la conexión
    Dim Conexion As OleDbConnection = New OleDbConnection(StrConexion)
    Dim str As String

    str = "SELET Descripcion FROM Productos WHERE(Id = 3)"
    txtTotalProductos.Text = str.ToString

    'Se cierra la conexión
    Conexion.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try


Esta era  una consulta de ejemplo para mostrar los datos en una caja de texto, que yo creo que debería funcionar pues los datos de BD y demás está bien.




#2
Hola, estoy haciendo un pequeño programa para gestionar una tienda de animales (nada serio, sólo un ejercicio de clase), pero tengo un problemilla con la base de datos.
El problema es que el programa me ejecuta, pero cuando le pulso al botón para introducirlos no me los introduce ni se me ponen en blanco los textBox, ¿en qué puedo estar fallando?

Aquí pongo el código que tengo en la clase animales, en este caso quiero meter los datos de los textBox en las columnas Id, Precio, Cantidad de la tabla Animales, que pertenece a la base de datos TiendaAnimales:

Código (vbnet) [Seleccionar]
Imports System.Data
Imports System.Data.OleDb

Declaro la cadena de conexión:
Código (vbnet) [Seleccionar]
Public Class Animales

    'Cadena de conexión:
    Dim StrConexion As String = "Provider=Microsoft.jet.OLEDB.7.0; Data Source=C:***Tiendanimales\database\TiendaAnimales.accdb"

Abro la conexión:
Dim Conexion As OleDbConnection = New OleDbConnection(StrConexion)
Defino el comando:
Dim Comando As System.Data.OleDb.OleDbCommand = New OleDbCommand(StrComando, Conexion)
    Dim StrComando As String = "Select * from TiendaAnimales"


Y aquí pongo el código del botón, que después de introducir los datos y pulsar este botón, me debería insertar los datos en la base de datos y borrar todo, pero no lo hace y no tampoco me notifica ningún error
Código (vbnet) [Seleccionar]
Private Sub btnAñadirAnimal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadirAnimal.Click
        Try
            'Abrimos la conexión
            Conexion.ConnectionString = StrConexion
            Conexion.Open()
            Dim query As String
            query = "INSERT INTO Proveedores (Id, Precio, Cantidad) VALUES (@id, @precio, @cantidad)"
            Dim cmd As OleDbCommand = New OleDbCommand(query, Conexion)
            cmd.Parameters.AddWithValue("@id", CInt(txtIDAnimal.Text))
            cmd.Parameters.AddWithValue("@precio", CInt(txtPrecioAnimal.Text))
            cmd.Parameters.AddWithValue("@cantidad", CInt(txtCantidadAnimales.Text))
            Try
                cmd.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            'Cerramos la conexión
            Conexion.Close()
        Catch ex As Exception
            Exit Sub
        End Try
        txtIDAnimal.Text = " "
        txtPrecioAnimal.Text = " "
        txtCantidadAnimales.Text = " "
    End Sub
End Class
#3
Estoy intentando diseñar una página web para un trabajo (de momento en HTML5 y CSS3, que es lo único que sé) y me gustaría diseñar un logo para poner en la cabecera. No tengo ni idea de diseño gráfico así que me gustaría que recomendaseis algún programa o algo.

El tema de la página web es sobre tecnología e informática.

Gracias de antemano, un saludo ;)