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