Ver Mensaje Individual
  #3 (permalink)  
Antiguo 02/04/2007, 12:47
samurai78
 
Fecha de Ingreso: marzo-2007
Mensajes: 12
Antigüedad: 17 años, 2 meses
Puntos: 0
Sonrisa Re: conexion con bd sqlserver 2005 express vb.net

Hola,
Perdona que no te dijera nada antes pero me ha sido imposible.
He visto el ejemplo y me ha sido de gran ayuda.
Te explico, estoy intentado crear una aplicación lo más optimizada posible.
Tengo varios formularios que crea datos generales, donde cada form contiene los botones nuevo, editar, borrar y cerrar, y un datagridview donde muestro los datos y hago el mantenimiento. La diferencia entre estos forms simplemente es la select que se le pasa para traer los datos. Este seria el código:

Public Class F_Carpinteria_Exterior
Private dataAdapter As New SqlClient.SqlDataAdapter

Private Sub LeerDatos(ByVal selectCommand As String)

Try
'Conexión a la base de datos
Dim conexion As String = _
"Integrated Security=SSPI;Persist Security Info=False;" + _
"Initial Catalog=inmovivienda;Data Source=HAGRID\SQLEXPRESS"
' Creación de un new dataAdapter basado en una consulta específica.
Me.dataAdapter = New SqlClient.SqlDataAdapter(selectCommand, conexion)

'Creación de un command builder para generar el update, insert y delete
' basadas en el selectcomand, utilizado para actualizar la base de datos.
Dim commandBuilder As New SqlClient.SqlCommandBuilder(Me.dataAdapter)

' Creación de new data table y asignación a un BindingSource.
Dim tabla As New DataTable()
tabla.Locale = System.Globalization.CultureInfo.InvariantCulture
Me.dataAdapter.Fill(tabla)
Me.BS_Datos.DataSource = tabla


Catch ex As SqlClient.SqlException
MessageBox.Show("Error de coneción a la base de datos")
End Try

End Sub

Private Sub F_Tipo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Asignamos el BS_Datos al DataGridView y cargamos los datos de la base de datos
Me.DGV_Datos.DataSource = Me.BS_Datos
LeerDatos("select * from Carpinteria_Exterior")


End Sub

Private Sub Btn_Editar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Editar.Click
' Actualizar la base de datos.
Me.dataAdapter.Update(CType(Me.BS_Datos.DataSource , DataTable))
End Sub

Private Sub Btn_Borrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Borrar.Click
'Borrar registros de la base de datos
Me.DGV_Datos.Rows.Remove(Me.DGV_Datos.CurrentRow)
Me.dataAdapter.Update(CType(Me.BS_Datos.DataSource , DataTable))

End Sub
Private Sub Btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Cerrar.Click
Me.Hide()
End Sub
Private Sub Btn_Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Nuevo.Click
'Agregar registros en la base de datos
Me.dataAdapter.Update(CType(Me.BS_Datos.DataSource , DataTable))
End Sub
End Class

Lo más lógico seria crear una clase para controlar el grid y desde el form pasarle la consulta. tu que opinas??
y... gracias de antemano.