El Guru Programador
Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados
  Home
Usuarios
  Usuarios Registrados
  Registrate Gratis!
Zonas
  ASP/ASP.NET
  Visual Basic/VB.NET
  JavaScript
  HTML/CSS/XML
  Flash/FireWorks
  PHP/MySQL
  Velneo
  C++/C#
  SQL
  Otros...
Recursos
  Tutoriales del Guru
  Directorio de Sitios
  Downloads
Comunidad
  Libreria de Codigo
  Foros del Guru
  Ofertas de Trabajo
Servicios
  Boletin de Novedades
  Registro de Dominios
Acerca de...
  Publicidad
  Contactos
Registro dominios
DiscoAzul.com
PlanetadeJuego.com
VB.NET y MySql
Autor [feruska] Calificacion
Es una clase muy basica con 1 propiedad en la que se le envia una consulta SQL. 2 metodos uno para hacer un select y retorna un idatareader y el otro insert o update que retorna tru o false, ademas utilice el conector .net de mysql. Espero les sirva, yo lo hice como parte de una migracion rapida.

'*************************************************************************************
'obtener datos de una base
Dim oRs_ID As IDataReader
Dim oMySql As New AccesoMySQL

'setear la consulta
oMySql.StrQuery = "select * from table where id_table=32"
'ejecutar la consulta y rellenar el idatareader
oRs_ID = oMySql.GetSelect()
'hacer la lectura del primer registro
oRs_ID.Read()
'asignar los datos al textbox
TxtNombre.Text = oRs_ID(1)


'*************************************************************************************

Dim oRsUpdate As New AccesoMySQL
Dim sQuery As String
Dim bUpdate As Boolean

'hacer el update!!!!

sQuery = ""
sQuery = sQuery & "update table set "
sQuery = sQuery & "desc='Nombre"
sQuery = sQuery & "' where id_table=32"

oRsUpdate.StrQuery = sQuery

bUpdate = oRsUpdate.PutData

If bUpdate = False Then
MsgBox("¡¡¡No se han actualizado los datos!!!", MsgBoxStyle.Critical, "Error de Datos")
End If


'*************************************************************************************






'la clase a la que llame AccesoMySQL


Option Strict On
Imports MySql.Data.MySqlClient
Imports System.Data
Imports System.Xml
Imports System.Data.SqlClient
Imports System.Globalization


Public Class AccesoMySQL
Private Query As String

Public Property StrQuery() As String
Get
Return Query
End Get
Set(ByVal value As String)
Query = value
End Set
End Property

Public Function GetSelect() As IDataReader

Dim conn As MySqlConnection
conn = New MySqlConnection()
conn.ConnectionString = "server=IP;" _
& "user id=usuario;" _
& "password=clave;" _
& "database=test"

Try
conn.Open()

Dim oCmd As MySqlCommand = New MySqlCommand
oCmd.Connection = conn
oCmd.CommandText = Query
oCmd.CommandType = CommandType.Text

Dim dr As IDataReader = oCmd.ExecuteReader()

'oCmd = Nothing
'conn.Close()

Return dr

Catch myerror As MySqlException
MessageBox.Show("Error Connecting to Database: " & myerror.Message)
Return Nothing
Finally
'conn.Dispose()
End Try
End Function

Public Function PutData() As Boolean
Dim conn As MySqlConnection
conn = New MySqlConnection()
conn.ConnectionString = "server=IP;" _
& "user id=usuario;" _
& "password=clave;" _
& "database=test"
Try
conn.Open()

Dim oCmd As MySqlCommand = New MySqlCommand
oCmd.Connection = conn
oCmd.CommandText = Query
oCmd.CommandType = CommandType.Text
oCmd.ExecuteScalar()

Return True

Catch myerror As MySqlException
MessageBox.Show("Error Connecting to Database: " & myerror.Message)
Return False
Finally
'conn.Dispose()
End Try

End Function

End Class
 
Terminos de Uso

1 - Copiar o Descargarse este contenido implica aceptar los terminos aqui detallados.

2 - Usted puede utilizar este contenido en sus propios programas y puede compilarlo en un programa y modificarlo a su gusto.

3 - Usted NO PUEDE redistribuir este contenido tal como se presenta aqui sin el permiso del autor original del mismo.

4 - Usted seguirá cualquier restricción adicional del copyright que el autor pudo haber puesto en la descripción del contenido.

 

Calificar Codigo Fuente
Subir TU Codigo Fuente

 

 
Contactos myStudio Network