У меня есть app в vb6, что давал мне проблемы со связью, с login до основных консультаций, так что попробует меняться login stored procedure с той же консультацией, которая делала в коде
Осталось что-либо подобное
ALTER PROCEDURE [dbo].[SpLoginQualitz]
@Login as nvarchar(50)
AS
BEGIN
SET nocount ON;
SELECT Usuarios.Caja ,Usuarios.IdUsuario, CatalogoEmpleados.CodigoEmpleado,usuarios.TipoDeCambio,
CatalogoEmpleados.Nombre, Usuarios.Login, Usuarios.Password,
CatalogoDepartamentos.Nombre AS Departamento,Usuarios.codigosucursal,Usuarios.supervisor,CatalogoDepartamentos.CorreoElectronico,CatalogoDepartamentos.ClaveCorreoElectronico
FROM CatalogoDepartamentos INNER JOIN
CatalogoEmpleados ON CatalogoDepartamentos.CodigoDepartamento = CatalogoEmpleados.CodigoDepartamento RIGHT OUTER JOIN
Usuarios ON CatalogoEmpleados.CodigoEmpleado = Usuarios.CodigoEmpleado
Where login = @Login
END
В Vb6 у него была идея как делать это, но загородило меня в момент возвращения результата
Dim ACommand As New ADODB.Command
Dim Aprm As New ADODB.Parameter
Dim objRecordset As ADODB.Recordset
ACommand.ActiveConnection = Cnn
ACommand.CommandType = adCmdStoredProc
ACommand.CommandText = "SpLoginQualitz"
Set Aprm = ACommand.CreateParameter("@Login", adVarChar, adParamInput, 10, TxtLogin.Text)
ACommand.Parameters.Append Aprm
Set objRecordset = New ADODB.Recordset
objRecordset.CursorLocation = adUseServer
objRecordset.CursorType = adOpenForwardOnly
objRecordset.Open ACommand, Cnn, adOpenStatic, adLockReadOnly
Даже там я остался блокированным в момент возвращения ответа
Чтобы получать данные recordset
только ты должен повторять из-за Ваших линий и колонн или указывать на конкретную колонну.
, Если ожидание, что консультация только принесла результат serГ - во что-то asГ-:
Dim IdUsuario as integer
if objRecordset.RecordCount > 0 then
IdUsuario = objRecordset("IdUsuario")
end if
, Если процедура возвращает mГЎs линии, они deberГЎs обращаться тебе.
if not objRecordset.eof then
IdUsuario = objRecordset("IdUsuario "))
objRecordset.movenext
end if