Gravar dados Mysql com Visual Studio 2005

20/03/2012

0

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!!!!


Ronaldo Paiva

Ronaldo Paiva

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar