[SOLUCIONADO] Error al conectar base de datos sql con visual basic.NET?

[F3RC4O]

Hola a todos soy nuevo por aqui espero y me ayuden no soy tan bueno programando pero cuando intento hacer la conexion de visual a sql me sale este error:

*- ERROR [HY000] [MySQL][ODBC 5.1 Driver][mysqld-5.5.9]Column count doesn't match value count at row 1

Estara mal mi codigo o mi base de datos?????????

Codigo Fuente:

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Odbc

Public Class frmRegistro

Public conexionBD As OdbcConnection
Dim Resultado As String
Dim SQL As OdbcCommand


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

conexionBD = New OdbcConnection("Dsn=conecta;server=localhost;uid=r oot;database=test;port=3306")
conexionBD.Open()
SQL = New OdbcCommand("INSERT INTO alumno(nombre,apellidop,apellidom,matricula) VALUES (1 ,' " & TextBox1.Text & "' , '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" & TextBox4.Text & "')")
SQL.Connection = conexionBD
SQL.ExecuteNonQuery()
MsgBox("Los Datos se han registrado correctamente")
conexionBD.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

Private Sub frmRegistro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MaximizeBox = False
MinimizeBox = False
End Sub
End Class

Ando medio perdido en esto si me pueden orientar que es lo que sale mal

[wwwmaster]

Por el mensaje, parece que no estas armando bien los campos y valores del INSERT:

SQL = New OdbcCommand("INSERT INTO alumno(nombre,apellidop,apellidom,matricula) VALUES (1 ,' " & TextBox1.Text & "' , '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" & TextBox4.Text & "')")

Estas enviando un "1" al inicio que no coincide vs los campos.

Saludos
Juan Arturo Gomez

[F3RC4O]

Iniciado por wwwmaster

Por el mensaje, parece que no estas armando bien los campos y valores del INSERT:

SQL = New OdbcCommand("INSERT INTO alumno(nombre,apellidop,apellidom,matricula) VALUES (1 ,' " & TextBox1.Text & "' , '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" & TextBox4.Text & "')")

Estas enviando un "1" al inicio que no coincide vs los campos.

Saludos
Juan Arturo Gomez

Pues no de hecho cuando lo quito me marca un error de sintaxis y a lo que entendi es que el 1 es para insertarlo en la base de datos en la primera fila pues,

[mina_1119]

Si estas usando Visual Basic puedes ir a la pestaña server Explorer (Explorador de servidor) agregar una nueva conexión y darle los parámetros que te solicita. Esta conexión se guarda en el Web Config y cuando quieras hacer la conexion en cualquier evento solo copia el conecction string del web config.

Intenta utilizar el using en lugar de conexion BD, a mi me funciona a la perfección. Te dejo un ejemplo:
Using cnn As SqlConnection = New SqlConnection("Data Source=VHS08;Initial Catalog=XXX;Integrated Security=True")
Dim cad As String = "inserta_estudio"
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(cad, cnn)
cnn.Open()
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.AddWithValue("@proyecto", a)
cmd.Parameters.AddWithValue("@localizacion", b)
cmd.Parameters.AddWithValue("@comunidades", c)
cmd.ExecuteNonQuery()
end using

[slaxsna]

Iniciado por F3RC4O

Hola a todos soy nuevo por aqui espero y me ayuden no soy tan bueno programando pero cuando intento hacer la conexion de visual a sql me sale este error:

*- ERROR [HY000] [MySQL][ODBC 5.1 Driver][mysqld-5.5.9]Column count doesn't match value count at row 1

Estara mal mi codigo o mi base de datos?????????

Ando medio perdido en esto si me pueden orientar que es lo que sale mal

Que ta mira primero que nada, estas usando MySQL como motor de base de datos, bueno yo te recomendaria que hagas una clase aparte para la conexión...

Te doy un ejemplo:

Puedes crear un modulo llamado Conexion.vb en el cual puedes añadir esto ...

Código:

Imports MySql.Data.MySqlClient
Public mysqldr As MySqlDataReader
Public conn As String = "server=localhost;" _
                            & "userid=root;" _
                            & "password=xxxxxx;" _
                            & "database=nombredbasedatos"
    Public con As New MySqlConnection(conn)
    Public mysqlda As New MySqlDataAdapter

y ya en tu formulario podrias hacer esto ....

Código:

Try
Dim strSQL As String
 strSQL = "INSERT INTO tabla " & _
        "(campo1, campo2, campo3,campo4) VALUES " & _
        "('" & Textbox1.Text & "', '" & Textbox2.Text & "','" & Textbox3.Textt & "', " & _
        "'" & Textbox4.Text & "', '" &  "')"

Dim db1 As New MySqlCommand(strSQL, con)
db1.ExecuteNonQuery()

Catch ex As Exception
            MsgBox(ex.Message)
End Try

No see ... es una idea despues te daras cuenta formas mas faciles de manejar tu base de datos ..

Saludos

[Aquaventus]

Ese error que bota es sin duda que no estas pasando un campo al hacer el insert, te falta un campo :

Código vb.net:

'Todos los campos deben estar completos....
'En tu insert tenias definidos 4 campos, pero en tus values
'pasabas 5 valores(1 entero y 4 cadenas)
'Como puse abajo asumo que el campo se llama CODIGO
'O algo por el estilo
SQL = New OdbcCommand("INSERT INTO alumno(codigo,nombre,apellidop,apellidom,matricula) VALUES (1 ,' " & TextBox1.Text & "' , '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" & TextBox4.Text & "')")
 

Saludos!.

[F3RC4O]

gracias a todos, una pregunta como cierro el tema?

[Aquaventus]

Hola F3RC4O solo basta que digas Gracias a Todos y tema cerrado. Con eso talvez los que lean tu post ya veran que esta resuelto. Por ende
"TEMA CERRADO!" .
Saludos!..