Foro de elhacker.net

Hola, tengo una base de datos del programa l2informer (contiene info del juego lineage con montruos y todo eso), tengo el programa pero no tiene los buscadores que necesito, como por ej por exp que dan los monstruos y keria crear una aplicacion en VB6 usando esa misma base de datos, se puede?
como tendria que hacer para leer cada columna de la base de datos? es solo eso... lo demas me doy bastante idea, solo que nunca use archivos mdb y no se como accesarlos para que muestre un resultado.
Saludos y espero me ayuden

puedes hacerlo de la siguiente manera:

dim BD as database
dim tb as recordset

set bd= workspaces(0).Opendatabase("Ruta y Nombre de la BD", Exclusivo, Sololectura)

set tb = bd.openrecordset(Consulta Sql o Nombre de la tabla)

para cerrarlo...
tb.close
db.close
set tb = nothing -> Libera la memoria
set bd = nothing


para mayor información consulta ADO en la ayuda del VB

MODULO:
Public function dbsistema() as database
 set dbsistema=opendatabase("aqui pon la ruta y el nombre del sistema .mdb")
End function

en formulario:
dim rs as recordset

private sub form_load()
 set rs=dbsistema.openrecordset("aqui pon la tabla",dbopendynaset)
End sub

y bueno para leer los registros as esto.
sub LEER()
text1.text=rs!campo1
text2.text=rs!campo2
text3.text=rs!campo4
   y asi susesivamente....
End sub

para grabar as esto:
sub grabar()
rs!campo1=text1.text
rs!campo2=text2.text
y asi continuas con lo demas
End Sub
por el momento te mando esto .....

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If keyascii = 18 & 9 Then
MsgBox "No =("
End If
End Sub