
06/11/2008, 10:16
|
| | Fecha de Ingreso: julio-2008
Mensajes: 44
Antigüedad: 16 años, 7 meses Puntos: 0 | |
Respuesta: error al conectar Visaul estudio 2005 con acces ya descubri el problema no se por que pero al parcer al quitar las lineas:
"Integrated Security=True;" & _
"Initial Catalog=bd1.mdb;" & _
me deja seguir adelante sin ningun problema preo en fin que le voy a hacer mietras salga el programa no me enojo, asi que al fianl el codigo queda de la siguiente manera:
Dim da As OleDbDataAdapter
Dim dt As DataTable
Dim n, i As Integer
Dim strsql, scnn As String
strsql = "select* from Tbl_efecto"
scnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\Administrador\Misdocumentos\bd1.mdb\"
da = New OleDbDataAdapter(strsql, scnn)
dt = New DataTable
da.Fill(dt)
n = dt.Rows.Count
If n = 0 Then
lblAviso.Text = "No se ha encontrado ningún registro que coincida con la selección"
Else
lblAviso.Text = "Datos del personal seleccionado"
For i = 0 To n - 1
'
' Asignar a las variables el contenido del registro
lstDatos.Text = dt.Rows(i)("Descripcion").ToString
Next
End If
End Sub |