freddybasic

freddybasic

Llevo haciendo lo que tu deseas por año y medio y aca te envio el resultado: Es un evento de inserción, ojala te sirva
 Colombia @freddybasic desde - visto
Preguntar

Preguntas esperando respuesta

Actividad pública reciente

Ha preguntado en el tema en

Aplicaciones de Series de Fourier

Hola, Resulta que considero que soy buen programador de .Net y Java, en la universidad recientemente me solicito el profesor realizar un programa que tenga que ver con las series o transformada de Fourier, la verdad he buscado pero no encuentro nada,...
Sin respuestas

Experiencia

Llevo haciendo lo que tu deseas por año y medio y aca te envio el resultado:
Es un evento de inserción, ojala te sirva.
Saludos !!!!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim id_original As Integer
Dim usuario_original As String
Dim cambio As Integer
id_original = TextBox1.Text
usuario_original = TextBox2.Text
TextBox1.Clear()
TextBox2.Clear()
Dim cnn As SqlConnection = New SqlConnection("Data Source=VIRTUALPC\SQLEXPRESS;Initial Catalog=Freddy;Integrated Security=True")
cnn.Open()
Dim cmd As SqlCommand = New SqlCommand("insercionUsuario", cnn)
cmd.CommandType = CommandType.StoredProcedure
Dim prm As SqlParameter = _
cmd.Parameters.Add("@id_original", SqlDbType.Int)
prm.Value = id_original
Dim prm2 As SqlParameter = _
cmd.Parameters.Add("@usuario_original", SqlDbType.NChar, 5)
prm2.Value = usuario_original
cambio = cmd.ExecuteNonQuery
Dim rdr As SqlDataReader = cmd.ExecuteReader
rdr.Close()
cnn.Close()
If cambio = 1 Then
MessageBox.Show("Usted ha insertado un dato", "Mensaje del origen de datos", MessageBoxButtons.OK)
End If
End Sub