abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
1º
Dim numRows As Integer
2º
Set DataGrid1.DataSource = Nothing
3º
Set rs = Nothing
4º
Set rs = openRecordset("select Mensaje
5º
numRows = rs.RecordCount
6º
If numRows > 0 Then
7º
Set DataGrid1.DataSource = rs
8º
End If
9º
End Sub
10º
Private Sub Form_Load()
11º
dbConnection1
12º
End Sub
13º
Private Sub Form_Unload(Cancel As Integer)
14º
Set DataGrid1.DataSource = Nothing
15º
Set rs = Nothing
16º
dbDisconnect1
17º
End Sub
Otros juegos similares:
Otros juegos similares:
Otros juegos similares:

