Conectores 3.51.12, 3.51.27, 5.1.4, 5.1.6

[mgd]

Hola como les va?
Miren tengo problemas con los conectores de ODBC.
En mi maquina servidor tengo instalado el 3.51.12 y con un programa hecho en VB6 accedo y funciona casi bien solo que aveces cuando intento acceder a un recordset me dice que se perdió la conexión... en otra maquina que seria cliente y por ende se comunica al servidor este mismo conector me tira el error de la conexión constantemente en el recordset, si quiero hacer un filter, si quiero hacer un movefirst , siempre me da este error. Intente con el 3.51.27 y este si bien lo probé poco pero no me dio nunca un error, el problema de el 3.51.27 es que si ejecuto un procedimiento almacenado donde cargo un nuevo turno e intento capturar el código de ese turno ya que es autonumerico con la variable @last_insert_id() me devuelve un signo de pregunta osea esto "?". Lo probe con el 5.1.4 y con el 5.1.6 y también pasa lo mismo, ninguna me tira error pero cuando intento recuperar el valor de una columna autonumerica con @last_insert_id() me devuelve el signo "?"
bueno espero puedan ayudarme. Muchas gracias
Ahhh las variables del servidor las modifique para no perder la conexión
Gracias


les dejo el codigo del SP y de como recojo el dato

Código SP MySQL:

begin
 
insert into turnos (fecha, codconsultorio, cododontologo, codpaciente, horaini, horafini, codobra, codplan, observacion)
    values (fechat, codconsultoriot, cododontologot, codpacientet, horainit, horafinit, codobrat, codplant, observaciont);
    select last_insert_id() into @last;
 
end 
 
parametros
 
fechat datetime, codconsultoriot int, cododontologot int, codpacientet int, horainit time, horafinit time, observaciont varchar(150), codobrat int, codplant int
 

Código VB6:

strsql = "select @last as cod"
                    Set rs = New ADODB.Recordset
                    rs.ActiveConnection = db
                    rs.Open (strsql), db, adOpenDynamic, adLockOptimistic
                    If rs.BOF And rs.EOF Then
                        If mensaje("Error.", "exclamation", "OK", "Atención !!!", "", "") = False Then
                        End If
                        dbestado = False
                        db.RollbackTrans
                        Exit Sub
                    Else
                        codturno = rs!cod
                    End If
 

[gnzsoloyo]

El primer problema que le noto, es que no veo dónde inicializas la variable de usuario @last, la que en el momento de ejecutarse debe valer NULL, por lo que el conector puede estar devolviendo basura...
Yo probaría simplemente que la última línea fuese

Código MySQL:

SELECT LAST_INSERT_ID();
 

De ese modo, recuperaría el valor del ID como resultado de la ejecución del SP, o bien, lo pondría como parámetro OUT, de modo de leerlo desde el prototipo de la llamada.
Claro que todas estas cosas serían muchísimo más simples si programaras en .Net...

[mgd]

Muchisimas gracias, ya lo habia puesto en varios foros, me sirvio mucho tu consejo.
al final lo deje como

Código MySQL:

SELECT LAST_INSERT_ID();
 

Gracias de nuevo