Red de conocimiento informático - Problemas con los teléfonos móviles - VB6 SQL2000 crea un sistema de reserva de experimentos en una sala de computadoras

VB6 SQL2000 crea un sistema de reserva de experimentos en una sala de computadoras

Se le ha enviado el código fuente.

Private Sub Form_Load()

Atenuar db como cadena, str como cadena

Llamar a RanNo

db = App.Path amp; "\room.mdb"

str = "Provider = Microsoft.Jet.OLEDB.4 Refresh

End Sub

Sub Image2_MouseDown privado (botón como entero, Shift como entero, X como simple, Y como simple)

Dim str como cadena

Imagen2.BorderStyle = 1