SALVAR DADOS NO BANCO DE DADOS.

Citação:

Imports MySql.Data.MySqlClient
Imports System.Data.DataSet


Public Class ConexaoMySql
Public Conexao_MySql As New MySqlConnection(ConStr)
Public Function ConStr() As String
ConStr = [Ô]Server = localhost; User Id = root; Password = [Ô][Ô]; Database = banco de dados[Ô]
End Function
Public Sub AbrirConexao(ByVal ConStr As String)
Try
Using Conexao_MySql As New MySqlConnection(ConStr)
Conexao_MySql.Open()
frmLogin.Text = Conexao_MySql.State
End Using
Catch ex As MySqlException
MsgBox([Ô]Não foi possivel conectar ao Banco de Dados[Ô], MsgBoxStyle.Critical, [Ô]Sistema de Automação Comercial - Aviso[Ô])

End Try
End Sub
End Class

Citação:

Imports MySql.Data.MySqlClient
Imports System.Data.DataSet
Public Class ConexaoMySql

Private mConexao As New MySqlConnection
Private mComando As New MySqlCommand
Private mDataAdap As New MySqlDataAdapter
Private mDataRead As MySqlDataReader

Private usuarioServidor As String
Private usuarioBancoDeDados As String
Private usuarioLogin As String
Private usuarioSenha As String

Public Property ServidorUs() As String
Get
Return usuarioServidor
End Get
Set(ByVal value As String)
usuarioServidor = value
End Set
End Property

Public Property BancoDeDadosUs() As String
Get
Return usuarioBancoDeDados
End Get
Set(ByVal value As String)
usuarioBancoDeDados = value
End Set
End Property

Public Property LoginUs() As String
Get
Return usuarioLogin
End Get
Set(ByVal value As String)
usuarioLogin = value
End Set
End Property

Public Property SenhaUs() As String
Get
Return usuarioSenha
End Get
Set(ByVal value As String)
usuarioSenha = value
End Set
End Property

Sub New(ByVal servidor As String, ByVal usuario As String, ByVal senha As String, ByVal bancoDeDados As String)
ServidorUs = servidor
LoginUs = usuario
SenhaUs = senha
BancoDeDadosUs = bancoDeDados
End Sb

Public Sub ConectarMySql()
If Not mConexao.State = ConnectionState.Open Then
Dim strConexao As String = [Ô]Data Source=[Ô] + ServidorUs + [Ô];user id=[Ô] + LoginUs + [Ô];password=[Ô] + SenhaUs + [Ô]; database=[Ô] + BancoDeDadosUs
mConexao = New MySqlConnection()
mConexao.ConnectionString = strConexao
mConexao.Open()
End If
End Sub

Public Sub DesconectarMySql()
If mConexao.State = ConnectionState.Open Then
mConexao.Close()
mConexao.Dispose()
mConexao = Nothing
End If
End Sub

Public Function ExecutaDataTable(ByVal sql As String) As DataTable
Dim mDataTable As New DataTable
Try
ConectarMySql()
mComando.CommandType = CommandType.Text
mComando.CommandText = sql
mComando.Connection = mConexao
mDataAdap.SelectCommand = mComando
mDataAdap.Fill(mDataTable)
mDataAdap.Dispose()
Return mDataTable
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return mDataTable
End Function

Public Function ExecutaDataRead(ByVal sql As String) As MySqlDataReader
mDataRead = Nothing
Try
ConectarMySql()
mComando.CommandType = CommandType.Text
mComando.CommandText = sql
mComando.Connection = mConexao
mDataRead = mComando.ExecuteReader()
mComando.Dispose()
Return mDataRead
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return mDataRead
End Function

Public Function ExecutaQuery(ByVal sql As String) As MySqlCommand
Try
ConectarMySql()
mComando.CommandType = CommandType.Text
mComando.CommandText = sql
mComando.Connection = mConexao
Return mComando
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return mComando
End Function
End Class

Citação:

:
é o que eu tenho em mente.
Você que este outro código pode fazer o que eu tenho em mente?
Ou preciso de outro mais completo.