Visual Basic.NET - Ayuda con Conexion .mdb

   
Vista:

Ayuda con Conexion .mdb

Publicado por Roberto Molina (1 intervención) el 03/08/2008 16:32:55
Hola a toda la comunidad, soy algo nuevo en este campo de la programacion y quisiera que me ayudaran con elgunas dudas que tengo acerca de una conexcion que estoy haciendo pido su ayuda para mejorarla o para saber cual es mi error, de antemano muchsa gracias.

atte. Roberto Molina
Honduras
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

Ayuda con Conexion .mdb

Publicado por JORGE (1 intervención) el 16/05/2011 21:32:00
Try

' EN ESTE CODIGO SE ESPESIFICA LA RUTA DE LA BASE DE DATOS
Dim ruta As String = CurDir()
Dim conexion As String = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" + ruta + "\bd1.mdb"

Dim RESPUESTA = MsgBox("DESEA MOSTRAR TODOS LOS REGISTROS DE LA TABLA EXISTENCIA", MsgBoxStyle.YesNo)
If RESPUESTA = 6 Then
Dim conn As New OdbcConnection()
conn.ConnectionString = conexion
'EN ESTE CODIGO SOLO SE TIENE ACCESO A TODOS LOS DATOS
Dim cmd As New OdbcCommand
Dim CADENA As String

CADENA = "select * from EXISTENCIA ORDER BY TITULO"
cmd.CommandText = CADENA

cmd.Connection = conn
conn.Open()
Dim dA As New OdbcDataAdapter
dA.SelectCommand = cmd
Dim midataset As New DataSet
dA.Fill(midataset, "EXISTENCIA")
'EN ESTE CODIGO SOLO SE MUESTRAN LOS DATOS
'paso los datos a el datagridview1
DataGridView1.DataSource = midataset
DataGridView1.DataMember = "EXISTENCIA"
DataGridView1.AutoResizeColumns()
Else
Exit Sub
End If


Catch exc As Exception
MessageBox.Show(exc.Message.ToString())
End Try
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