Aspectos networking

frmClientes

Boton Actualizar...

____________________

Dim cadena As String = "Data Source=DELL\;Initial Catalog=Facturacion;Integrated Security=True"

Dim conexion As New SqlClient.SqlConnection()

conexion = New SqlClient.SqlConnection(cadena)

conexion.Open()

'If conexion.State = ConnectionState.Open Then

Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM clientes", conexion)

Dim DT As New DataTable

DA.Fill(DT)

DataGridView1.DataSource = DT

'End If

conexion.Close()

______________________________

frmACliente

Boton Grabar..

_________________

Try

Dim hookUp As New SqlClient.SqlConnection("Data Source=DELL\;Initial Catalog=Facturacion;Integrated Security=True")

Dim str As String = "INSERT INTO clientes(nombre, apellido,credito,limite)VALUES(@Nombre, @Apellido,@Credito,@Limite)"

Dim cmd As New SqlClient.SqlCommand(str, hookUp)

hookUp.Open()

cmd.Parameters.Clear()

cmd.Parameters.Add("@Nombre", txtNombre.Text)

cmd.Parameters.Add("@Apellido", txtApellido.Text)

cmd.Parameters.Add("@Credito", txtCredito.Text)

cmd.Parameters.Add("@Limite", txtLimite.Text)

cmd.ExecuteNonQuery()

hookUp.Close()

MsgBox("Registro Grabado")

Me.Close()

Catch ex As Exception

MsgBox(ex.Message())

End Try

______________________

...