chris-chumillas
New member
- Local time
- Today, 02:01
- Joined
- Nov 23, 2006
- Messages
- 5
Je voudre voire le resultat de ma sequence sql. COde:
Private Sub Commande11_Click()
Dim BDD As Database 'Objeto para manejar la base de datos
Dim TBL As dao.Recordset 'Objeto para manejar la Tabla
Dim SQL As String
Set BDD = OpenDatabase("d:\fia\fia.ch.mdb") 'Abre la base de datos
SQL = "SELECT * FROM vehiculo "
Set TBL = BDD.OpenRecordset(SQL) tabla
txt_sql.Value = TBL.OpenRecordset ' ICI! JE VE VOIRE LE RESULTAT
TBL.Close
BDD.Close
end sub
Je troube ça trot kon. Pourqua montre pas mon resultat? Merci
Private Sub Commande11_Click()
Dim BDD As Database 'Objeto para manejar la base de datos
Dim TBL As dao.Recordset 'Objeto para manejar la Tabla
Dim SQL As String
Set BDD = OpenDatabase("d:\fia\fia.ch.mdb") 'Abre la base de datos
SQL = "SELECT * FROM vehiculo "
Set TBL = BDD.OpenRecordset(SQL) tabla
txt_sql.Value = TBL.OpenRecordset ' ICI! JE VE VOIRE LE RESULTAT
TBL.Close
BDD.Close
end sub
Je troube ça trot kon. Pourqua montre pas mon resultat? Merci