necesito entender el uso de VB.NET junto con MYSQL

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP) (Moderador: kub0x)

necesito entender el uso de VB.NET junto con MYSQL

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: necesito entender el uso de VB.NET junto con MYSQL (Leído 2,299 veces)

Belial & Grimoire

Desconectado

Mensajes: 559

Tea_Madhatter

necesito entender el uso de VB.NET junto con MYSQL

« en: 11 Marzo 2013, 18:25 pm »

estoy aprendiendo a usar Visual net con mysql, ya llevo varios años de no usar visual basic y me estoy confundiendo demasiado, me podrian ayudar diciendome donde encuentro informacion sobre como programar con .NET para mysql?

miren esto es lo que llevo, ya son varias paginas donde busco y son distintas formas de acceso, pero no encuentro alguna que me sirva, algo que note es que hay formas de usar Reader y Datatable, alguien me podria explicar su uso

les dejo el codigo que llevo, esta medio revuelto de varios intentos, pero espero sea entendible

Código

Imports MySql.Data.MySqlClient
 
Public Class Form1
 
    Private Sub SalirToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SalirToolStripMenuItem.Click
        End
    End Sub
 
    Private Sub AbrirToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbrirToolStripMenuItem.Click
 
        Dim con As New MySqlConnection()
        Dim user As String = "root"
        Dim pass As String = "gazette"
        Dim servidor As String = "localhost"
        Dim dbase As String = "bdatos"
        con.ConnectionString = "database=" & dbase & ";" & "server=" & servidor & ";" & "user id=" & user & ";" & "password=" & pass & ";"
        con.Open()
        Dim quer As String = "SELECT * FROM bdatos WHERE id = 1"
        Dim mycmd As MySqlCommand = New MySqlCommand(quer, con)
 
        mycmd.Parameters.AddWithValue("1", TextBox1.Text)
 
        Dim reader As MySqlDataReader = mycmd.ExecuteReader()
        If reader.Read() Then
            TextBox1.Text = CStr(reader("nombre"))
        End If
 
 
    End Sub
End Class


	En línea

NetJava

Desconectado

Mensajes: 195

Re: necesito entender el uso de VB.NET junto con MYSQL

« Respuesta #1 en: 11 Marzo 2013, 21:09 pm »

Lo he copiado todo un poco rápido.

Cadena de conexión:

Código:

'Para dar valores a la cadena de conexión:
    Public Sub ms_cadena_conexion()
        str_ConexionBD = "server=" & str_bd_servidor & ";"

        If str_bd_usuario <> "" And str_bd_usuario <> " " Then
            str_ConexionBD = str_ConexionBD & "user id=" & str_bd_usuario & ";"
        End If

        If str_bd_password <> "" And str_bd_password <> " " Then
            str_ConexionBD = str_ConexionBD & "password=" & str_bd_password & ";"
        End If

        str_ConexionBD = str_ConexionBD & "port=" & str_bd_puerto & ";" & _
                "database=" & str_bd_basedatos & "; Persist Security Info=True;"
    End Sub

Código:

Imports System

Imports MySql.Data.MySqlClient
Imports MySql.Data.MySqlClient.MySqlConnection
Imports MySql.Data.MySqlClient.MySqlCommand
Imports MySql.Data.MySqlClient.MySqlDataReader

Código:

Public Sub ms_modifiDocumento()
        Dim str_sql As String = ""
        str_sql = "Update documentos Set " & _
            "doc_titulo = '" & str_doc_titulo & "'," & _
            "doc_fchAlta = '" & dat_doc_fchAlta & "'," & _
            "doc_importancia = '" & str_doc_importancia & "'," & _
            "doc_dirDocumento = '" & str_doc_dirDocumento & "' " & _
            "Where PK_doc_idDoc = " & PK_doc_idDoc & ""
        cls_conexion.ms_modificar(str_sql)
        ms_limpiar()
    End Sub

Código:

Public Sub ms_modificar(ByVal str_sql As String)
        Try
            InicializadorDataAdapterDataSet()
            ConexionConBD.ConnectionString = str_ConexionBD
            ConexionConBD.Open()
            Orden = New MySql.Data.MySqlClient.MySqlCommand(str_sql, ConexionConBD)
            Orden.ExecuteNonQuery()
            FinInicializadorDataAdapterDataSet()
            ConexionConBD.Close()
            Orden = Nothing
        Catch ex As Exception

        End Try
End Sub

Public Sub InicializadorDataAdapterDataSet()
        Try
            AdaptadorDeDatos = New MySql.Data.MySqlClient.MySqlDataAdapter
            MySqlSelectCommand1 = New MySql.Data.MySqlClient.MySqlCommand
            MySqlInsertCommand1 = New MySql.Data.MySqlClient.MySqlCommand
            MySqlUpdateCommand1 = New MySql.Data.MySqlClient.MySqlCommand
            MySqlDeleteCommand1 = New MySql.Data.MySqlClient.MySqlCommand
            AdaptadorDeDatos.SelectCommand = MySqlSelectCommand1
            AdaptadorDeDatos.InsertCommand = MySqlInsertCommand1
            AdaptadorDeDatos.UpdateCommand = MySqlUpdateCommand1
            AdaptadorDeDatos.DeleteCommand = MySqlDeleteCommand1

            DataSet1 = New DataSet
            ConexionConBD = New MySqlConnection()
        Catch ex As Exception
        End Try
End Sub

Public Sub FinInicializadorDataAdapterDataSet()
        Try
            AdaptadorDeDatos = Nothing
            MySqlSelectCommand1 = Nothing
            MySqlInsertCommand1 = Nothing
            MySqlUpdateCommand1 = Nothing
            MySqlDeleteCommand1 = Nothing
            DataSet1 = Nothing
        Catch ex As Exception
            
        End Try
End Sub

Pero seguro que lo puedes mejorar, que es de hace mucho

Saludos.


	En línea

Belial & Grimoire

Desconectado

Mensajes: 559

Tea_Madhatter

Re: necesito entender el uso de VB.NET junto con MYSQL

« Respuesta #2 en: 12 Marzo 2013, 18:15 pm »

gracias, voy a estudiar tu codigo ;-)

si alguien conoce algun tutorial, o pagina web donde muestren mas cosas para estudiarlas, se los agradeceria

salu2 y gracias


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	Necesito que me expliquen algo.Sobre Registro en PHP con MySQL PHP	pritguy	2	2,115	19 Mayo 2009, 06:39 am por [u]nsigned
	hola necesito hacer un select (no mysql, si no uno html) en php que muestre 200 PHP	becuzuliarte	1	2,655	27 Mayo 2009, 18:08 pm por cassiani
	Necesito ayuda con el codigo de una Base de Datos en Mysql Bases de Datos	eda6	3	3,617	8 Julio 2012, 22:59 pm por eda6
	Necesito que me ayuden a entender un código Programación C/C++	Antoniio	0	1,291	18 Noviembre 2015, 22:48 pm por Antoniio
	[AYUDA] Necesito entender el código - C++ Programación C/C++	Alape04	1	1,667	21 Octubre 2016, 05:27 am por palacio29