Ver Mensaje Individual
  #9 (permalink)  
Antiguo 22/04/2010, 09:52
marleos
 
Fecha de Ingreso: abril-2010
Mensajes: 1
Antigüedad: 14 años
Puntos: 0
ayuda en visual studio y sql

hola como estas...espero k bien y no molestarte...acabo de entrar a este foro buscado ayuda mira tengo un pequeña aplicacion k debe hacer eliminar...añadir un nuevo registro...y despues poderlo modificar..pero hasta ahora solo he podido hacer la conexion a la tabla (base) sql pero no puedo modificar nada...mucho agradecere si me puedes ayudar con este error..para que pueda terminiar mi proyecto...de antemano te doy las gracias
por otro lado te doy mi correo [email protected]...
por si encuentras necesario concatrme o enviarme la correcion

codigop
Imports System.Data.SqlClient

Public Class form1
Dim conexion As New SqlConnection
Dim comando, comando_insertar As New SqlCommand
'Dim tabla As DataTable


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
conexion.ConnectionString = "Data Source=MMARTINEZ\SQLEXPRESS;Initial Catalog=Sisventas;Integrated Security=True"
Try
conexion.Open()
comando.Connection = conexion
MessageBox.Show("se abrio la conexion")
Catch exception As SqlException
MessageBox.Show("no se abrio la conexion")
conexion.Close()
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sql_sentencia As String = "insert into productos (codigo_pro" & ",descripcion" & ",precio)" & "VALUES (@txtcodigo," & ",@txtdescripcion," & ",@txtprecio)"
comando_insertar.CommandText = sql_sentencia
comando_insertar.Connection = conexion
Try
If ((comando_insertar.ExecuteNonQuery()) <> 0) Then
MessageBox.Show("se registro correctamente el registro")
End If
Catch ex As Exception
MessageBox.Show("no se puedo insertar nada")
End Try
End Sub

End Class