Visual Basic - Access

Life is soft - evento anual de software empresarial
   
Vista:

Access

Publicado por Sergio Juarez (4 intervenciones) el 29/06/2010 06:37:35
Hola q tal buen dia....
tengo una pregunta....
como puedo ver los datos que tengo en un tabla de acces 2007 en visual basic
si podrian ayudarme les agradeceria... o mostrarme un modelo de como podria diseñar mi base de datos de acces a visual basic.
buen dia.
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:Access

Publicado por Jimmy Torres (134 intervenciones) el 30/06/2010 20:50:48
Yo lo que hago es (aduciendo que sabes de programación en Visual Basic)

1. Agregar una referencia a la libreria Microsoft ActiveX Data Objects 2.0 Library.
2. Crear un módulo de conexion al que le pongo el nombre de Conexion.mdl, ahi defino los procedimientos para conectar y desconectar a la base de datos.
Supongamos que en C: tengo una base de datos que se llama mibase:

El módulo de conexión seria asi:

Módulo de Conexion:

Private Con As ADODB.Connection
Public cmd As ADODB.Command
Public fCon As Integer

'***Procedimiento que inicializa las variables para consultas a la Base de Datos
Private Sub Inicializar()
Set cmd = New ADODB.Command

cmd.ActiveConnection = Con
cmd.CommandType = adCmdText
End Sub

'***Procedimiento Para conectar con la base de datos
Public Sub Conectar()
On Error GoTo errConectar
If fCon = 1 Then
Desconectar
End If

If fCon = 0 Then
Set Con = New ADODB.Connection

Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\mibase.accdb;Persist Security Info=False;"
fCon = 1
Inicializar
End If
Exit Sub
errConectar:
MsgBox "Ocurrió un error al conectarse a la Base de Datos." & ChrW(13) & ChrW(13) & "Error " & Err.Number & ": " & ChrW(13) & Err.Description, vbCritical, "Error: Conexión a la Base de Datos"
End Function

'***Procedimiento para desconectarse de la Base de Datos
Public Sub Desconectar()
On error GoTo errDescon
if fCon = 1 then
Con.Close
fCon = 0
End If
Exit Sub
errDescon:
MsgBox "Ocurrió un error al desconectarse de la Base de Datos." & ChrW(13) & ChrW(13) & "Error " & Err.Number & ": " & ChrW(13) & Err.Description, vbCritical, "Error: Desconexión de la Base de Datos"
End Sub

3. Para efectos de prueba supongamos que tenemos una tabla dentro de la base de datos con la información de los estudiantes de un salón:

Tendremos la tabla Estudiante:

Estudiante
-------------------------
NumeroID (Texto)
Nombre (Texto)
Apellidos (Texto)
FechaNacimiento (Fecha y Hora)
GradoActual (Número Entero)
-------------------------

Supon que tienes un formulario en Visual Basic 6

Con un textbox donde pones el Numero de ID del estudiante y otros campos donde se carga la información de dicho estudiante:

Tenemos entonces:

frmPrueba / Tipo: Form
txtNumeroID / Tipo: Textbox
txtNombre / Tipo: Textbox
txtApellidos / Tipo: Textbox
txtFecha / Tipo: Textbox
txtGrado / Tipo: Textbox
btnVer / Tipo: CommandButton
btnSalir / Tipo: CommandButton

El código de dicho formulario seria:

Private rs1 As ADODB.Recordset

Private Sub Form_Load()
Conectar
Set rs1 = New ADODB.Recordset
End Sub

Private Sub btnVer_Click()
cmd.CommandText = "SELECT * FROM ESTUDIANTE WHERE NUMEROID = '" + txtNumeroID.text + "'"

Set rs1 = cmd.Execute

If Not rs1.EOF Then
txtNombre.text = rs1(1)
txtApellidos.text = rs1(2)
txtFecha.text = rs1(3)
txtGrado.text = rs1(4)
End IF

rs1.Close
Set rs1 = Nothing
End Sub

Private Sub btnSalir_Click()
Desconectar
Unload Me
End Sub

Es un ejemplo simple pero considero que muy facil de entender, espero te sirva
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

RE:Access

Publicado por sergio (4 intervenciones) el 30/06/2010 23:45:06
otra pregunta quien me puede mandar un diseño de un programa donde pueda consultar una base de datos de access.

estos son los campos en access:

NO ORDEN
FECHA
COSTO
PORVEEDOR
TIPO DE DOCUMENTO
NUMERO
DESCRIPCION
CUENTA
NO CHEQUE
VALOR

Y QUIERO CONSULTARLO POR FECHA,Y NUMERO DE CHEQUE.

Les agradeceria mucho...y si me urge tener un programa donde trabajo...buena onda...

buen dia
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

RE:Access

Publicado por Jimmy Torres (134 intervenciones) el 02/07/2010 00:24:20
A que te refieres con un diseño de un programa??? Un programa ya hecho???
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

RE:Access

Publicado por sergio (4 intervenciones) el 02/07/2010 02:10:37
un programa diseñado.. por ejemplo donde ya pueda ejecutarlo....con mi base de datos q es access....si me urge q alguien me mande un modelo para una base de datos q tengo en access..... porfa....y poder ver mis datos en visual basic...
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

RE:Access

Publicado por Jimmy Torres (134 intervenciones) el 02/07/2010 17:06:43
En otras palabras quieres que te hagan tu trabajo amigo... mira el ejemplo que te di es suficiente para que diseñes un programa para tu base de datos, está muy simple y además gasté mi tiempo haciéndolo como para que solo vengas a pedir que te den las cosas hechas.

Y ultimadamente si no lo quieres hacer tu mismo pues paga por el, este es un foro de ayuda no de alcahuetería...

Aqui te ayudamos a encontrar soluciones a tus problemas para que tu te orientes en como arreglarlos asi que hacerte tus trabajos para nada es ayudarte.
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