GRAVANDO NO ARQUIVO MYSQL

ELMO01 20/04/2011 14:01:41
#372012
Boa tarde pessoal,

Estou tentando salvar as informações digitadas mas não estou conseguindo.

Me falem o que estou fazendo errado neste código:

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

Dim Conn As New MySqlConnection(StrAssoc)
Dim Cmd As New MySqlCommand(ValAssoc, Conn)

Conn.Open()
dr = Cmd.ExecuteReader
If dr.read Then
CCampos = [Ô]matricula_associado, nome_razao_social, numero_carteirinha[Ô]

CValores = [Ô][ô][Ô] & Txt_AssMat.Text & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Txt_AssNom.Text & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Txt_Num_Cart.Text [Ô][ô][Ô]

cSQL = [Ô]INSERT INTO ASSOCIADOS([Ô] & CCampos & [Ô]) values ([Ô] & CValores & [Ô])[Ô]
dr.Execute(cSQL)
Conn.Close()
dr.Close()
End if
End Sub

Obrigado,
JONATHANSTECKER 20/04/2011 20:39:47
#372078 Resposta escolhida
Tente assim.:
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    Conn.Open()
    CCampos = [Ô]matricula_associado, nome_razao_social, numero_carteirinha[Ô] 

    CValores = [Ô][ô][Ô] & Txt_AssMat.Text & [Ô][ô],[Ô]
    CValores = CValores & [Ô][ô][Ô] & Txt_AssNom.Text & [Ô][ô],[Ô]
    CValores = CValores & [Ô][ô][Ô] & Txt_Num_Cart.Text [Ô][ô][Ô]

    cSQL = [Ô]INSERT INTO ASSOCIADOS([Ô] & CCampos & [Ô]) values ([Ô] & CValores & [Ô])[Ô]

    Dim Cmd As New MySqlCommand(cSQL, Conn)
    Cmd.ExecuteNonQuery()

    Conn.Close()
End Sub
TECLA 20/04/2011 21:34:39
#372086
Todos os campos são do tipo TEXTO?
Tópico encerrado , respostas não são mais permitidas
Voltar