Array
(
)

Gravar dados Mysql com Visual Studio 2005

Ronaldo Paiva
   - 20 mar 2012

Pessoal alguém pode me ajudar não estou conseguindo gravar o banco de dados, segue o código, sou iniciante.

Imports Microsoft.VisualBasic
Imports MySql.Data.MySqlClient
Public Class Conn
Private StrCon As String
Public Sub New()
Dim host As String = LocalHost Variável Servidor
Dim User As String = root Variável Usuario
Dim pass As String = root Variavel Senha
Dim Banco As String = Clientes Variavel Bando de Dados
StrCon = server= & host & ; user id= & User & ; password= & pass & ;database= & Banco & ;
End Sub
Public Function Conectar() As Boolean Função que torna uma propriedade da Classe
Dim conectou As Boolean = False Por padrão deixar sempre em falso
Dim conexao As New MySqlConnection(StrCon) Recebe como parametro a string de Conexao
Try
conexao.Open()
conectou = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return conectou
End Function
Public Function ResgatarClientes() As System.Data.DataTable
Dim dt As New System.Data.DataTable
Criar novamente a conexão
Dim conn As New MySqlConnection(StrCon)
Criar o commando sql
Dim Sql As String = Select * From clientes
Para regesgatar usa-se um adaptador
Dim adpt As New MySqlDataAdapter(Sql, conn) recebe a string de commando e a conexão com o banco.
Abrir um bloo de try
Try
Abre a conexão
conn.Open()
Preencher o adaptador, fazendo um clone da tabela
adpt.Fill(dt)
Catch ex As Exception
Em de erro libera a mensagem
MsgBox(ex.Message)
Finally
conn.Close()
End Try
Retorna o Valor
Return (dt)
End Function
Public Function IncluirCliente(ByVal Nome As String) As Boolean
Dim salvou As Boolean = False
Dim Con As New MySqlConnection(StrCon)
Dim SQL As String = INSERT INTO Clientes (nome) VALUES (@nome)
Dim query As New MySqlCommand(SQL, Con)
O paramentros do formularios
query.Parameters.Add(@nome, MySqlDbType.VarChar, 45)
query.Parameters(@nome).Value = Nome
Try
Con.Open()
salvou = query.ExecuteNonQuery
Catch ex As Exception
MsgBox(ex.Message)
Finally
Con.Close()
End Try
Return salvou
End Function

Public Sub InsertRow(ByVal Nome As String)
Dim myConnection As New MySqlConnection(StrCon)
Dim myInsertQuery As String = INSERT INTO Clientes (Nome) Values(@Nome)
Dim myCommand As New MySqlCommand(myInsertQuery, myConnection)
O paramentros do formularios
myCommand.Parameters.Add(@Nome, MySqlDbType.String, 255)
myCommand.Parameters(@Nome).Value = Nome
myConnection.Open()
myCommand.ExecuteNonQuery()
myCommand.Connection.Close()
End Sub
End Class
Botão para gravar
Protected Sub BtnEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEnviar.Click
Dim obj As New Conn
Dim salvou As Boolean = obj.IncluirCliente(TxtNome.Text)
If TxtNome.Text = Then
If salvou = True Then
Response.Write(Sucesso)
Else
Response.Write(Erro)
End If
End If
End Sub
Desde já agradeço!!!!