
26/01/2004, 03:05
|
| | Fecha de Ingreso: julio-2003
Mensajes: 102
Antigüedad: 21 años, 7 meses Puntos: 0 | |
intenta abrir la conexion antes de que ejecutes el command
Dim oConexion As OleDb.OleDbConnection
oConexion = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Password=;User ID=Admin;Data Source=00012003.MDB")
'cambia el orden de la linea
oConexion.Open()
Dim cadSql As String = "Select nombre,domicilio from clientes"
Dim comando As OleDb.OleDbCommand = New OleDb.OleDbCommand(cadSql, oConexion)
comando.CommandType = CommandType.Text
Dim miDr As OleDb.OleDbDataReader = comando.ExecuteReader(CommandBehavior.Default)
oConexion.Close() |