Visual Basic.NET - Abrir base de datos

 
Vista:
sin imagen de perfil
Val: 28
Ha disminuido su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Abrir base de datos

Publicado por Adolfo (55 intervenciones) el 23/02/2011 04:32:32
Tengo un problema al tratar de abrir la base de datos.
Cuendo llego a la linea m_cn.Open(), el programa no pasa de hay.

Puse dos mensajes para verificar si el programa pasa for esa lines, pero solo me muestra el primer mensaje, en segundo no lo muestra, lo que indica que no esta pudiendo habrir la base de datos.

El programa me muestra el mensaje: MsgBox("Paso")
Pero no muestra el mensaje: MsgBox("Paso1")

Lo que indica que no esta pasando por hay.

Agradeceria cualquier sugerencia sobre cual puede ser la falla?

Gracias.


Dim m_cn As New SqlConnection()
Dim m_DA As SqlDataAdapter
Dim m_CB As SqlCommandBuilder
Dim m_DataTable As New DataTable

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

m_cn.ConnectionString = "Data Source=.\SQLEXPRESS; AttachDbFilename = " & _
"F:\VB 2010\BDInventario.mdf;Integrated Security=True;Connect Timeout=30;" & _
"User Instance=True"

MsgBox("Paso")

m_cn.Open()

MsgBox("Paso1")

m_DA = New SqlDataAdapter("Select NombreProd, MarcaProd, CodigoProd, CantidadDispProd, CantidadMinimaProd, PrecioProd, ImpuestoProd, CategoriaProd From TBProductos", m_cn)
m_CB = New SqlCommandBuilder(m_DA)

m_DA.Fill(m_DataTable)
With DBGInventario
.DataSource = m_DataTable
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(0).Width = 220
.Columns(0).HeaderText = "Nombre del Producto"
.Columns(1).Width = 100
.Columns(1).HeaderText = "Marca Prod."
.Columns(2).Width = 100
.Columns(2).HeaderText = "Código"
.Columns(3).Width = 90
.Columns(3).HeaderText = "Cant. Disp."
.Columns(4).Width = 90
.Columns(4).HeaderText = "Cant. Míni."
.Columns(5).Width = 100
.Columns(5).HeaderText = "Precio Prod."
.Columns(6).Width = 80
.Columns(6).HeaderText = "Paga I.V."
.Columns(7).Width = 80
.Columns(7).HeaderText = "Categoría"
LblTotalReg.Text = .Rows.Count
End With

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Abrir base de datos

Publicado por A.F.G.S. (47 intervenciones) el 23/02/2011 13:36:58
Hola, lo unico que veo es que en el ConnectionString lo pones asi:

m_cn.ConnectionString = "Data Source=.\SQLEXPRESS; AttachDbFilename = " & _
"F:\VB 2010\BDInventario.mdf;Integrated Security=True;Connect Timeout=30;" & _
"User Instance=True"

Intentalo de esta manera:

m_cn.ConnectionString = "Data Source=.\SQLEXPRESS; AttachDbFilename = " _
& "F:\VB 2010\BDInventario.mdf;Integrated Security=True;Connect Timeout=30;" _
& "User Instance=True"

Como veras lo unico que cambia es la posicion del ampersand (&) que lo coloco detras de guion bajo ( _ ) y no delante como tu haces.

A mi asi me funciona.

Un Saludo, Antonio F. Gutierrez
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar