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
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
Lo he copiado todo un poco rápido.
Cadena de conexión:
'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
Imports System
Imports MySql.Data.MySqlClient
Imports MySql.Data.MySqlClient.MySqlConnection
Imports MySql.Data.MySqlClient.MySqlCommand
Imports MySql.Data.MySqlClient.MySqlDataReader
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
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.