peten
11 de Mayo del 2004

Hola Jairo

Disculpen pero quisiera que me espliquen un poco mas sobre el problema que tengo al utilizar programacion ADO
No entiendo porque sale el errror de RUN-TIME 3001......

Este el codigo que estoy utilizando
- Tengo un formulario el cual tiene un DataCombo y tres cajas de Texto (Text)
al control DataCombo asigne el valor 1-dbcSimpleCombo en su propiedad Style

- Tengo una conexion llamada MAE, que fue creada como origen de datos ODBC

Agradesco la ayuda que puedas brindarme

Atte.
Peten

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset



Private Sub DataCombo1_Change()

Dim r As String

r = "codigo like'" + DataCombo1 + "*'"

If DataCombo1 <> "" Then

rs.Find r,,,1 esta es la parte donde me registra el mensaje de error RUN-TIME 3001

End If

End Sub



Private Sub Form_Activate()

db.Open "DSN=mae"

rs.Open "SELECT codigo,nparte,descrip from xmaestroandina order by codigo", db, adOpenKeyset, adLockPessimistic

DataCombo1.Text = ""

Set DataCombo1.RowSource = rs

DataCombo1.ListField = rs(1).Name

Set Text1.DataSource = rs

Set Text2.DataSource = rs

Set Text3.DataSource = rs

Text1.DataField = rs(0).Name

Text2.DataField = rs(1).Name

Text3.DataField = rs(2).Name

End Sub

al
11 de Mayo del 2004

argumento incorrecto, prueba a mirar si la select esta bien

Yuval
11 de Mayo del 2004

con lo que tienes puesto r tiene el valor = codigo like'valor_del_combo*'
Puede que necesites necesitas un espacio entre el like y la comilla simple.
Pero creo que el problema que no se puede buscar asi tengo un ejemplo en casa si me acuerdo ya contestare SUERTE!!!!

alejandro
11 de Mayo del 2004

el problemas es que no se puede buscar un String que contenga comillas simples. y en ADO en el LIKE se usa el signo % en vez del *.

Por el tema de las comillas simples la verdad que no te puedo ayudar porque yo estoy teniendo el mismo problema.