CADASTRADO DE CLIENTE

FAUSTO 29/10/2010 22:34:48
#356312
Olá amigos do fórum estou de novo pedindo um help sobre vb.net 2005

Estou migrando do vb6.0 para vb.net 2005 e iniciando em mysql bom vamos ao que interessa.

Amigos vou explicar passo a passo

fiz uma conexão que está em um modulo entre o vb.net 2005 e o mysql que está funcionando perfeitamente segue o código abaixo para algum amigo que
queria usar com referência .

Module Module1
Public MySQLConn As MySql.Data.MySqlClient.MySqlConnection

Public Function InicializaConexão() As Boolean
MySQLConn = New MySql.Data.MySqlClient.MySqlConnection([Ô]Server=localhost;Database=syslocadora;Uid=root;Pwd=131082[Ô])
Try
MySQLConn.Open()
Return True
Catch erro As Exception
MessageBox.Show([Ô]Ocorreu um erro ao inicializar a conexão: [Ô] & erro.ToString())
Return False
End Try

End Function

Public Function ExecutarSQL(ByVal query As String) As MySql.Data.MySqlClient.MySqlDataReader
Dim MySQLCmd As New MySql.Data.MySqlClient.MySqlCommand(query, MySQLConn)

Return MySQLCmd.ExecuteReader()
End Function
End Module

Mas o que eu estou precisando é o seguinte como fazer um insert into na tabela cliente do meu banco de dados mysql a conexão está pronto
eu ficarei muito grato

ADHEL 30/10/2010 08:30:06
#356324
Coloque assim em um botão


query = [Ô]INSERT INTO SUA_TABELA(Campo1,Campo2,Campo3)VALUES([ô][Ô] & TextBox1.Text & [Ô][ô],[ô][Ô] & TextBox2.Text & [Ô][ô],[ô][Ô] & TextBox3.Text & [Ô][ô][Ô]
CMD = New MySqlCommand(query, MySQLConn)
CMD.ExecuteNonQuery()
Onde Campo é o campo correspondente na tabela
Onde Textbox é o textbox onde vai o valor que será gravado
FAUSTO 02/11/2010 20:17:21
#356478
olá amigos do fórum boa noite peço um help neste insert into no my sql

Dim Cnn As New MySql.Data.MySqlClient.MySqlCommand

With Cnn
.Connection = MySQLConn
.CommandType = CommandType.Text
.CommandText = [Ô]INSERT INTO Usuarios [Ô] & _
[Ô](CLIENTE, ENDERECO, BAIRRO, CIDADE, UF, CEP, FONE, CELULAR, EST_CIVIL, CPF, RG, SEXO, DATA_CADASTRO, NASCIMENTO, DEP1, CPF_DEP1, RG_DEP1, ATIVO)VALUES ([ô][Ô] & _
TXTC1.Text & [Ô],[ô][Ô] & _
TXTC2.Text & [Ô][ô],[ô][Ô] & _
TXTC3.Text & [Ô][ô],[ô][Ô] & _
TXTC4.Text & [Ô][ô],[ô][Ô] & _
TXTC5.Text & [Ô][ô],[ô][Ô] & _
TXTC6.Text & [Ô][ô],[ô][Ô] & _
TXTC7.Text & [Ô][ô],[ô][Ô] & _
TXTC8.Text & [Ô][ô],[ô][Ô] & _
TXTC9.Text & [Ô][ô],[ô][Ô] & _
TXTC10.Text & [Ô][ô],[ô][Ô] & _
TXTC11.Text & [Ô][ô],[ô][Ô] & _
TXTC12.Text & [Ô][ô],[ô][Ô] & _
TXTC13.Text & [Ô][ô],[ô][Ô] & _
TXTC14.Text & [Ô][ô],[ô][Ô] & _
TXTC15.Text & [Ô][ô],[ô][Ô] & _
TXTC16.Text & [Ô][ô],[ô][Ô] & _
TXTC17.Text & [Ô][ô],[ô][Ô] & _
TXTC18.Text & [Ô][ô]);[Ô]
.ExecuteNonQuery() [txt-color=#e80000]aqui está o erro está é mensagem abaixo [/txt-color]
End With

[txt-color=#e80000]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near [ô]/[ô],[ô][ô],[ô][ô],[ô][ô],[ô][ô],[ô] -[ô],[ô]( ) -[ô],[ô] -[ô],[ô][ô],[ô] / /[ô],[ô][ô],[ô][ô],[ô][ô],[ô][ô],[ô] , , [ô] at line 1
[/txt-color]
amigos como resolver este erro

e desde já agradeço a todos pela ajuda

RODRIGOFERRO 02/11/2010 21:02:37
#356481
esta dando erro na sua instrução SQL, tente capturar o codigo SQL que esta retornando e posta aqui...

aqui tambem ta faltando um espaço [Ô]ATIVO)VALUES[Ô]
ADHEL 04/11/2010 08:44:18
#356592
tenta isto

With Cnn
.Connection = MySQLConn
.CommandType = CommandType.Text
.CommandText = [Ô]INSERT INTO Usuarios [Ô] & _
[Ô](CLIENTE, ENDERECO, BAIRRO, CIDADE, UF, CEP, FONE, CELULAR, EST_CIVIL, CPF, RG, SEXO, DATA_CADASTRO, NASCIMENTO, DEP1, CPF_DEP1, RG_DEP1, ATIVO)VALUES ([ô][Ô] & _
TXTC1.Text & [Ô][ô],[ô][Ô] & _
TXTC2.Text & [Ô][ô],[ô][Ô] & _
TXTC3.Text & [Ô][ô],[ô][Ô] & _
TXTC4.Text & [Ô][ô],[ô][Ô] & _
TXTC5.Text & [Ô][ô],[ô][Ô] & _
TXTC6.Text & [Ô][ô],[ô][Ô] & _
TXTC7.Text & [Ô][ô],[ô][Ô] & _
TXTC8.Text & [Ô][ô],[ô][Ô] & _
TXTC9.Text & [Ô][ô],[ô][Ô] & _
TXTC10.Text & [Ô][ô],[ô][Ô] & _
TXTC11.Text & [Ô][ô],[ô][Ô] & _
TXTC12.Text & [Ô][ô],[ô][Ô] & _
TXTC13.Text & [Ô][ô],[ô][Ô] & _
TXTC14.Text & [Ô][ô],[ô][Ô] & _
TXTC15.Text & [Ô][ô],[ô][Ô] & _
TXTC16.Text & [Ô][ô],[ô][Ô] & _
TXTC17.Text & [Ô][ô],[ô][Ô] & _
TXTC18.Text & [Ô][ô])[Ô]
.ExecuteNonQuery()
End With
End Sub
Tópico encerrado , respostas não são mais permitidas