Los foros del Guille

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 

elGuille.Hosting, seguramente los mejores precios de alojamiento

Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

20/mar/2008

¡Ya puedes comprar mi libro de Visual Basic 9.0!


http://www.elguille.info/NET/NovedadesVB9/

  Foro: ADO.NET.General Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 55875 - Como me conecto si nunca lo hago
IDAsuntoFechaNick 
55875 Como me conecto si nunca lo hago09/10/11 00:58dibe777   
Hola amigos, estoy comenzando en el mundo del ADONET y tengo una duda si nunca abro mi conexión como es que me muestra los datos en el siguiente codigo:

Imports System.Data
Imports System.Data.SqlClient

Public Class frmGrilla

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

'Cadena de conexión con autenticación de Windows
Dim strCnx As String = "Server=.;integrated security=true;initial catalog=Neptuno"
Dim strConsulta As String = "SELECT * FROM Facturas F Order by Destinatario"
Dim objCnx As New SqlConnection(strCnx)

objCnx.Close() 'Expresamente lo cierro

Dim objComando As New SqlCommand(strConsulta, objCnx)
Dim objAdaptador As New SqlDataAdapter(objComando)
Dim objDsDatos As New Data.DataSet()

objComando.CommandType = Data.CommandType.Text

Try
'Rellenar el objeto adaptador con la consulta
objAdaptador.Fill(objDsDatos, "Consulta")

'Asigno
DataGridView1.DataMember = "Consulta"
DataGridView1.DataSource = objDsDatos

With objCnx
If .State = ConnectionState.Open Then
.Close()
End If
.Dispose()
End With

Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
End Class
'--------------------
Agradezco de antemano su tiempo y su ayuda.

dibe

 
(c) Guillermo 'guille' Som, 2005-2018  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8793)
 
Usuarios activos: 113 - App. iniciada: 21/09/2018 20:10:20 GMT - La hora GMT del servidor es: 22/09/2018 11:46:41 GMT