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:
Ver originalbegin
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:
Ver originalstrsql = "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