[Resolvido] INSERT NO BANCO SQL

[williamjda]

Amigos tenho uma duvida. Estou a desenvolver uma aplicação onde preciso fazer com que os dados dos campos sejam inseridos no banco de dados SQL. Então estou tentando fazer um INSET dos campos TextBox do Form para o banco de dados porem quando clico no botão gravar aparece o seguinte erro: Sintaxe incorreta proxima a '='.

Ja tentei modificar varias vezes e de varias formas o código abaixo porem não consigo descobrir o erro.

Private Sub BT_gravar_Click(sender As System.Object, e As System.EventArgs) Handles BT_gravar.Click
	conexao.ConnectionString = "Data Source=localhost;Initial Catalog=BDSOSPET;Integrated Security=True;User ID=sa;Password=senha"
	Try
		Dim cmd As New SqlCommand("INSERT INTO CadastroClientes = '" & txtNome.Text & "'AND RG = '" & txtRG.Text & "'", conexao)
		conexao.Open()
		Dim dr As SqlDataReader = cmd.ExecuteReader()
		conexao.Close()
	Catch ex As Exception
		MessageBox.Show(ex.Message)
	End Try
End Sub

Abraços

Edited October 1, 2012 at 03:42 AM by williamjda

[jpaulino]

O sintaxe do comando T-SQL está errado. Deverá ser algo como:

INSERT INTO tabela (campo1, campo2) VALUES (valor1, valor2)

Vê este artigo para mais esclarecimento: VB.NET: Gestão de Dados em SQL Server - Parte I

[williamjda]

Muito obrigado jpaulino pela sua ajuda. Consegui entender um pouco mais sobre a conexões. Muito obrigado mesmo agora o código esta funcionando corretamente.

Private Sub BT_gravar_Click(sender As System.Object, e As System.EventArgs) Handles BT_gravar.Click
 Dim testeConnectionString As String = "Data Source=localhost;Initial Catalog=BDSOSPET;Integrated Security=True;User ID=sa;Password=senha"

    Dim SQL As String = "INSERT INTO teste ([Nome], [RG]) VALUES (@Nome, @RG);"
    Dim connection As New SqlConnection(testeConnectionString)
    Dim command As New SqlCommand(SQL, connection)

    command.Parameters.Add("@Nome", SqlDbType.NVarChar).Value = "Nome"
    command.Parameters.Add("@RG", SqlDbType.NVarChar).Value = "RG"

    connection.Open()

    Dim x As Integer = command.ExecuteNonQuery()
    If x < 1 Then
	    MessageBox.Show("A operação efectuada não retomou qualquer resultado.")
    End If


    connection.Close()
    connection = Nothing
    command = Nothing

   End Sub

Edited October 2, 2012 at 01:27 AM by williamjda

[jpaulino]

Ainda bem 😉