Visual Basic - error 13 en tiempo de ejecucion

Life is soft - evento anual de software empresarial
   
Vista:

error 13 en tiempo de ejecucion

Publicado por jurasaga (1 intervención) el 01/09/2011 18:31:37
hola soy nuevo en esto de trabajar en access 200 con vba habia trabajado con cuestiones superiores donde era un poco mas sencillo mi pregunta era la siguiente estoy trabajando en acces 2000 y a la vez con vba lo que pasa es que e estado buscando durante tiempo en la red soluciones acerca de como poder crear una conexion y de ahi establecer una consulta para poder hacer un llenado de un text box desde la consulta y pues lo ultimo me sale error 13 en ejecucion en la conexion antes de eso me salia uno referente a que no se podia crear el objeto espero su pronta respuesta aqui dejo el codigo de la conexion

Private Sub form_load()
'****crear conexion****
Dim Rs As Recordset

Dim con As Connection

Set Rs = createobject(DAODB.Recordset)
Set con = New ADODB.Connection
con.OpenRecordset "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=j:\sanchea\db cal1_Backup.MDB;" & _
"Persist Security Info=False"



End Sub

y este es el de la consulta
Private Sub No_de_parte_lostfocus()
Dim Rs As New ADODB.Recordset

Dim No_de_parte As String

Dim consulta As String
Dim Descripcion As String

consulta = "select descripcion from piezas "

Rs.Open consulta, con, 1
Do Until Rs.EOF

Descripcion = Rs.Fields("descripcion").Value


Rs.MoveNext

Loop

Rs.Close

con.Close





End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Cálculo de muestras
- Navegador
- Mosquito

error 13 en tiempo de ejecucion

Publicado por Christian (666 intervenciones) el 19/09/2011 20:02:12
Asi lo haria yo.
Siempre teniendo la referencia a ADO 2.8

Dim cn as new ado.conection
Dim Rs as new ado.recordset

cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=j:\sanchea\db cal1_Backup.MDB;"Persist Security Info=False"
cn.open

rs.open "select descripcion from piezas ",cn

do while not rs.eof
Descripcion = Rs.Fields("descripcion").Value


Rs.MoveNext


loop

rs.close
cn.close
set rs=nothing
set cn=nothing


Saludos !!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

error 13 en tiempo de ejecucion

Publicado por jurasaga (1 intervención) el 20/09/2011 21:11:51
muchas gracias pero aqui se esta utilizando el da0 3.6
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar