abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
Dim numRows
|
As Integer
|
Set rs =
|
openRecordset("select Mensaje
|
numRows =
|
rs.RecordCount
|
If numRows >
|
0 Then
|
Set DataGrid1.DataSource
|
= rs
|
Set DataGrid1.DataSource =
|
Nothing
|
Set rs =
|
Nothing dbDisconnect1
|
Otros juegos similares:
Otros juegos similares:
Otros juegos similares:

