Visual Basic - Bases de datos

Life is soft - evento anual de software empresarial
 
Vista:

Bases de datos

Publicado por narF (2 intervenciones) el 15/04/2004 16:44:13
Hace rato comence a aprender Visula y hasta el momento solo he creado un programa para copiar canciones. Me gustaria crear un programa de reporte de calificaciones. En realidad tengo bastante in formación sobre como hacerle, he trabajado con bases de datos Visual-Acces pero no se por donde comenzar. Ayudenme!

[email protected]
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:Bases de datos

Publicado por Dennis (103 intervenciones) el 15/04/2004 18:41:20
prueba esto :

Private Sub Text1_Change()
If IsNumeric(Me.Text1.Text) = False Then
If Trim$(Me.Text1.Text) <> vbNullString Then
Me.Text1.Text = vbNullString
End If
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii <> vbKeyBack And (KeyAscii < vbKey0 Or KeyAscii > vbKey9) Then
If KeyAscii = vbKeyDelete Then
If InStr(1, Me.Text1.Text, ".") > 0 And Me.Text1.SelLength <> Len(Me.Text1.Text) Then
KeyAscii = 0
End If
Else
KeyAscii = 0
End If
End If

End Sub
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:Bases de datos

Publicado por Dennis (103 intervenciones) el 15/04/2004 18:50:34
Sorry la respuesta era para la nota de abajo :P
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:Bases de datos

Publicado por m0rph3ush4ck (11 intervenciones) el 16/04/2004 07:15:31
ok...comienza haciendo referencia a Microsoft DAO 3.6...

crea un modulo y escribe lo siguiente

Public rs as recordset
publis db as database

public sub main( )
on error goto linea
set db= opendatabase("--Ruta del archivo de la base de datos--")
set rs= db.openrecordset ("--Nombre tabla--", dbopendynaset)
load form1
form1.show
linea:
if err.number > 0 then
msgbox err.description
end if

' Ahora ve a las propiedades del proecto y coloca como objeto principal..Sub Main

De esta manera al cargarse tu form1 estas abriendo la base de datos...

Cabe destacar q cuando se hable de recordset se debe asociar directamente con tabla, ya q este es su trabajo...recordset= "conjunto de registros"

m0rph...otra cosa?? pregunta


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