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!!!!
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)