Ayuda con este codigo

voy a probarlo de esta forma que me dices, muchas gracias
ahora bien puedo ingresar, los datos desde texbox1.text o debo convertirlos a variables primero?
"Kev" escribió en el mensaje news:%
El error te dio porque tu consulta esta mal, o algo esta fallando pero en tu consulta, ahora trata primero especificando las columnas del insert

Ej:

insert into miTabla(campo1, campo2) values('Kev', '123456')

pero verifica tambien que el campo codigo que tienes es IDENTITY ya que si lo es no podras agregar datos a el porque se autogenera, en cambio si no es IDENTITY tendras que agregar el dato tu mismo.

Salu2

Kev

"byrpa" wrote in message news:%
> Hola a todos espero les vaya bien en sus vida diaria, queria saber si
> alguien me podria ayudar con este codigo sencillo para agregar un registro a
> una tabla, resulta que tengo un boton que se llama guardar (button2), pero
> cuando hacen clic deseo guardar lo que esta en los textbox1 y 2, la tabla
> contiene codigo int 4, nombre nvarchar 40, pero no me funciona este codigo,
> cuando quito el try me da el error en el comando cmSQL.ExecuteNonQuery(),
> muchas gracias por sus sugerencias.
>
>
>
> hasta arriba de la aplicacion
>
> Imports System.Data
>
> Imports System.Data.SqlClient
>
>
>
> declaracion de variables
>
> Protected Const SQL_CONEXION As String = _
>
> "server=(local)\BASESQL;" & _
>
> "DataBase=bodega;" & _
>
> "Integrated Security=SSPI;Connect Timeout=5"
>
> Private Conexion As String = SQL_CONEXION
>
>
>
> cuando se le da clic al boton
>
> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button2.Click
>
> Dim cnSQL As SqlConnection
>
> Dim cmSQL As SqlCommand
>
> Dim strSQL As String
>
> Dim intRowAffected As Integer
>
> Try
>
> strSQL = "INSERT tblRegion VALUES (" & _
>
> TextBox1.Text & "," & _
>
> TextBox2.Text & ")"
>
> cnSQL = New SqlConnection(Conexion)
>
> cnSQL.Open()
>
> cmSQL = New SqlCommand(strSQL, cnSQL)
>
> cmSQL.ExecuteNonQuery()
>
> cnSQL.Close()
>
> cmSQL.Dispose()
>
> cnSQL.Dispose()
>
> Catch ex As Exception
>
> MsgBox("Error General")
>
> Me.Close()
>
> End Try
>
>
>
> End Sub
>
>