(Resolvido) INSERT INTO em ODBC

[Gafanhoto]

Bah, parece simples, mas to quebrando a cabeça e não tá funcionando de jeito nenhum. Tenho uma conexão em ODBC e to tentando dar um INSERT INTO simples. ´

Eu fiz um teste usando o seguinte código:

Dim conexao As New clConexao

        Try
            Dim insere As String = "insert into cadastroGeral (nome) values ('guilherme')"
            Dim cmd As New OdbcCommand(insere, conexao.conexao)

            'conectar, executar o insert into e desconectar

            conexao.Conectar()
            cmd.ExecuteNonQuery()
            conexao.Desconectar()
        Catch ex As Exception

        End Try

Funciona perfeitamente. Mas quando eu tento passar um parâmetro, ele não insere. Por exemplo:

Dim conexao As New clConexao

        Try
            Dim insere As String = "insert into cadastroGeral (nome) values (@empresa)"
            Dim cmd As New OdbcCommand(insere, conexao.conexao)

            'Passar os parâmetros
            cmd.Parameters.AddWithValue("@empresa", "guilherme")

            'conectar, executar o insert into e desconectar
            conexao.Conectar()
            cmd.ExecuteNonQuery()
            conexao.Desconectar()
        Catch ex As Exception

        End Try

Já tentei fazer assim também:

Dim empresa = New OdbcParameter("@empresa", "guilherme")

cmd.Parameters.Add(empresa)

Não dá erro nenhum, simplesmente não insere.

[Gafanhoto]

Ae, desculpa abrir o tópico e já responder, mas eu estava há 2 dias procurando por isso, e acabei encontrando a solução agora.

O ODBC não pega por nome de variável, e sim por posição.

Ou seja, no values no insert into tem que colocar um ponto de interrogação (?)

Ficou assim o código:

'CONECTAR O BANCO
        Dim conexao As New clConexao

        Dim insere As String = "insert into cadastroGeral (nome) values (?)"

        Try
            Dim cmd As New OdbcCommand(insere, conexao.conexao)

            cmd.Parameters.Add("@empresa", OdbcType.VarChar)
            cmd.Parameters("@empresa").Value = Me.TextBox1.Text

            'conectar, executar o insert into e desconectar
            conexao.Conectar()
            cmd.ExecuteNonQuery()
            conexao.Desconectar()
        Catch ex As Exception

        End Try