Forums Últimos mensajes - Powered by IBM
 

Ayuda con este codigo

05/09/2005 - 21:00 por byrpa | Informe spam
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
 

Leer las respuestas

#1 fernando
07/09/2005 - 02:22 | Informe spam
No hace falta que los conviertas a variables.
Si queres hacelo solo por proligidad o claridad enel codigo.

suerte.

"byrpa" escribió:

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
>
>

Preguntas similares