Tengo 4 Textbox
donde cada uno tiene su respectiva información que son nombre, sección y teléfono y un botón para agregar dicha información a una base de datos SQl
. Como pregunto si el Textbox
tiene información entonces que se agreguen los datos y si no que me diga en un label o msgbox
que agregue los datos. O sea que si no hay información en los Textbox
no se agregue nada ya que el en textbox1
va un numero que identifica a cada persona.
Este código es el del botón de agregar
If TextBox1.Text <> Nothing And TextBox3.Text <> Nothing And TextBox4.Text <> Nothing Then
Insertar()
Else
If (TextBox2.Text = String.Empty) And (TextBox3.Text = String.Empty) And (TextBox4.Text = String.Empty) Then
Label6.Visible = True
End If
End If
Y ESTE ES EL PUBLIC SUB DE INSERTAR
casilleros = Form3.TextBox1.Text
nombre = Form3.TextBox2.Text
seccion = Form3.TextBox3.Text
telefono = Form3.TextBox4.Text
cmd.CommandType = CommandType.Text
cmd.Connection = conx
sql = "INSERT INTO Tabl"
sql = "INSERT INTO Table_1(casilleros, nombre, seccion, telefono)"
sql += " VALUES(" & casilleros & ", '" & nombre & "','" & seccion & "','" & telefono & "')"
cmd.CommandText = sql
Try
cmd.ExecuteNonQuery()
MsgBox("SE AGREGO CORRECTAMENTE")
Form3.TextBox1.Text = ""
Form3.TextBox2.Text = ""
Form3.TextBox3.Text = ""
Form3.TextBox4.Text = ""
Dim frmCasilleros As New Form4
frmCasilleros.Show()
Form3.Close()
Catch ex As Exception
MsgBox("NO SE PUDO AGREGAR, INTENTE DE NUEVO")
Form3.TextBox1.Text = ""
Form3.TextBox2.Text = ""
Form3.TextBox3.Text = ""
Form3.TextBox4.Text = ""
End Try
Si alguien me podría ayudar seria genial.... Gracias.