border

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 

  #1 (permalink)  
Antiguo 31-12-2006, 16:40:37
Un Nuevo Amigo
 
Registrado: dic 2006
Posts: 2
raul@villa-alegre.cl Valoración +2
Predeterminado No aparece el metodo .edit en el recordset

Hola Amigos:

Es la primera vez que escribo en este foro y también estoy comenzando visual basic

Tengo un problema con el metodo Edit de un recordset, en tiempo de edición no me aparece en la coleccion, la variable es rcs, cuando digito rcs. no me parece el método Edit, solo Editmode.


El Código es el siguiente:

Public Sub crearbdparam()
Dim rcs As Recordset
Dim Sino As Integer
Dim archi As Variant
Dim a As Variant
Dim d As String
Dim Arch As String
Dim sql As String
archi = Array("tbruta")
Arch = Rutabd + "\bdparam.mdb"
ChDir CurDir(Left(Rutabd, 1))
Set WRk = DBEngine.Workspaces(0)

Set base = WRk.OpenDatabase(Arch)
Set rcs = base.OpenRecordset("select * from tbruta")
rcs.MoveFirst

End If
Rutabd = rcs!fldruta
Rutaorigen = rcs!fldorigen
End Sub

estas variables están definidas en un módulo como publicas:
Public base As Database, WRk As Workspace, tabledef As tabledef, _
inter As Integer, Rutabd As String, Rutaorigen As String, _
codp As String, mes As Integer, ano As Integer, rsocial As String, _
Varrut As Long, Vardire As String, datos As Variant

Al ejecutarlo me arroja el siguiente mensaje "los tipos no coinciden" en (Set rcs=base.openrecordset(........

Tengo referenciado el dao 3.51

De antemano, gracias
Responder Con Cita
  #2 (permalink)  
Antiguo 31-12-2006, 19:32:11
Avatar de J.M.Movilla
Administrator
 
Registrado: dic 2002
Ubicación: BURGOS - ESPAÑA
Posts: 5.265
J.M.Movilla Valoración +2
Predeterminado

Estás mezclando instrucciones de DAO con instrucciones de ADO...

Puesto que estás empezando, debo aconsejarte que te olvides de DAO, porque hasta MicroSoft ya lo ha hecho. Pásate a ADO, que te va a resultar sencillísimo:

Quita la Referencia a Dao y referencia Microsoft ADO 3.6

Sustituye Dim rcs As Recordset por Dim rcs As New Recordset, y Public base As Database por Public base As New Connection.

Las líneas
Código:
Set base = WRk.OpenDatabase(Arch) 
Set rcs = base.OpenRecordset("select * from tbruta")
las cambias por
Código:
    Base.CursorLocation = adUseClient
    Base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Arch & ";Persist Security Info=False"
    rcs.Open "select * from tbruta", Base, adOpenStatic, adLockOptimistic
Y... a trabajar, espero que sin problemas. No busques el método .Edit porque no existe; edita directamente con
rcs!fldruta = "Variable que desees grabar"
sin olvidar finalizar la edición con
rcs.Update
__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion
Responder Con Cita
  #3 (permalink)  
Antiguo 02-01-2007, 03:05:08
Un Nuevo Amigo
 
Registrado: dic 2006
Posts: 2
raul@villa-alegre.cl Valoración +2
Predeterminado

Cita:
Empezado por J.M.Movilla
Estás mezclando instrucciones de DAO con instrucciones de ADO...

Puesto que estás empezando, debo aconsejarte que te olvides de DAO, porque hasta MicroSoft ya lo ha hecho. Pásate a ADO, que te va a resultar sencillísimo:

Quita la Referencia a Dao y referencia Microsoft ADO 3.6

Sustituye Dim rcs As Recordset por Dim rcs As New Recordset, y Public base As Database por Public base As New Connection.

Las líneas
Código:
Set base = WRk.OpenDatabase(Arch) 
Set rcs = base.OpenRecordset("select * from tbruta")
las cambias por
Código:
    Base.CursorLocation = adUseClient
    Base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Arch & ";Persist Security Info=False"
    rcs.Open "select * from tbruta", Base, adOpenStatic, adLockOptimistic
Y... a trabajar, espero que sin problemas. No busques el método .Edit porque no existe; edita directamente con
rcs!fldruta = "Variable que desees grabar"
sin olvidar finalizar la edición con
rcs.Update
J.M.Movilla:
Gracias por tu ayuda y recomendaciones (claro que me hiciste cambiar todo lo que había hecho... je je ).
Te cuento, tengo desarrollado un software contable que ha tenido bastante exito con los que lo han utilizado, pero es muy antiguo (hecho en Clipper, Dos), lo que estoy haciendo es migrarlo de a poco, primero los informes, por lo que estoy "leyendo" las bases de datos dbf y traspasarlas a access 2000, genero el informe y las limpio (las mdb). Ya logré crear la bd y las tablas y logré "leer" los datos desde las dbf.
Ahora voy por los informes, como ves, tengo bastante en que entretenerme . ja . ja
Gracias Jose Maria
Responder Con Cita
  #4 (permalink)  
Antiguo 02-01-2007, 23:17:59
Avatar de J.M.Movilla
Administrator
 
Registrado: dic 2002
Ubicación: BURGOS - ESPAÑA
Posts: 5.265
J.M.Movilla Valoración +2
Predeterminado

Te entiendo al 100 x 100... porque yo me tiré más de 20 años con Clipper antes de meterme con el VB... y me vi muchas veces obligado a leer .DBF y convertirlos a .MDB... Cuesta sólo el primero... Después ya salen como churros... Y eso que yo usaba el driver SYS, con los index .NTX y los memo .SMT, que había que pasarlos primero a .FTP y luego a .DBT para que los drivers de dBase pudieran reconocerlos... Así que, PACIENCIA y SUERTE... a partes iguales...
__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
dataGrid usando (edit/update/cancel) mecodi C# .NET 2 04-04-2008 06:29:52
valor final del edit sea un numero Scorpion Visual Basic 6.00 3 07-12-2006 22:51:18
grafica que no aparece en crystal reports 9 y vb6 ivanhhmv Crystal Reports 2 02-11-2006 03:19:03
la imagen no aparece VIRGEN HTML / DHTML 1 30-01-2006 02:32:10
Data Environment y Masked Edit ANCALO Visual Basic 6.00 2 18-02-1970 15:22:39


La franja horaria es GMT. Ahora son las 21:18:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
A vBSkinworks Design

Alojado en el servicio Premium de Masquewebs | Diseño mejorado por MasqueWebs

right