Visual Basic - Que esta mal aqui?

Life is soft - evento anual de software empresarial
 
Vista:

Que esta mal aqui?

Publicado por Carlos (19 intervenciones) el 16/09/2005 13:15:14
Hola a todos

Desearia que alguien me corrija este codigo,
funciona bien hasta el refresh
luego recoge un error en el rs
pero dispara el registro en el cbomaterial

'en delaraciones generales
Dim rs As ADODB.Recordset

'en menuabrir
Set rs = New ADODB.Recordset
on error goto error
Ado1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;_
_Persist Security Info=False;Data Source = " & Dialog1.FileName
Ado1.RecordSource = "SELECT * FROM Obra_Detalles"
Ado1.Refresh
rs.Open AdoRubros.RecordSource, AdoRubros.ConnectionString, adOpenKeyset, adLockOptimistic
Set cboMaterial.DataSource = Ado1
cboMaterial.DataField = "Rubro"
error:....

en sintesis el error esta en el recordset

Gracias
Carlos
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
sin imagen de perfil
Val: 7
Ha aumentado su posición en 10 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Que esta mal aqui?

Publicado por Carlos Gomez (262 intervenciones) el 17/09/2005 01:20:17
intenta con esto, observa los cambios que hago (*)

Dim rs As NEW ADODB.Recordset '(*) cambialo

'en menuabrir
'Set rs = New ADODB.Recordset ''(*) quitalo
on error goto error

Ado1.CursorLocation=adUseClient '(*)añade esto

Ado1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;_
_Persist Security Info=False;Data Source = " & Dialog1.FileName

'Ado1.RecordSource = "SELECT * FROM Obra_Detalles" 'quitalo
rs.activeconection=Ado1 '(*) añade esto

Ado1.Refresh ''(*)quitalo

rs.Open "SELECT * FROM Obra_Detalles" '(*)cambialo

'Set cboMaterial.DataSource = rs 'que esto te saca error
'cboMaterial.DataField = "Rubro" 'no se si esta linea funciona

'si lo que intentas es llenar un comboBox con la busqueda podrias hacer esto
Do While not rs.eof
cboMaterial.add rsbuscar!Obra_Detalles
rs.movenext
loop

error:....

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
si no te funciona escribeme y con gusto te ayudo, suerte mi viejo
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