Postada em 11/01/2011 19:52 hs
Juan blz?
Após vários testes consegui fazer funcionar usando a conexão via ADO, valeu pela força! Estou postando abaixo como ficou a conexão, pois, se alguém passar pelo mesmo perrengue resolve assim:
Set cn = New ADODB.Connection
strConnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=administrador;Initial Catalog=CARTORIO_DB;Data Source=SERVER2003"
Set cn = New ADODB.Connection
'preparando o objeto connection
cn.ConnectionString = strConnect
cn.Open
cn.CursorLocation = adUseClient
'usamos um cursor do lado do cliente pois os dados
'serao acessados na maquina do cliente e nao de um servidor
Set RSmSQL = New ADODB.Recordset
'Prepara o recordset
RSmSQL.CursorType = adOpenStatic
'Este é o unico tipo de cursor a ser usado
'com um cursor localizado no lado do cliente
RSmSQL.CursorLocation = adUseClient
'estamos usando o cursor no cliente
RSmSQL.LockType = adLockPessimistic
'Ist garente que o registros que esta sendo editado
'pode ser salvo
RSmSQL.Source = "SELECT * FROM Registros_padroes Where IdCodigo=" + Str(lstRegistros.ItemData(lstRegistros.ListIndex)) + "" 'altere para tabela que desejar
'a fonte de dados usamos uma instrucal SQL
RSmSQL.ActiveConnection = cn
'O recordset precisa saber qual a conexao em uso
RSmSQL.Open
'abre o recordset com isto o evento MoveComplete sera disparado
If Not RSmSQL.EOF Then
txt_Nome = IIf(IsNull(RSmSQL!Nome), 0, RSmSQL!Nome)
Cbo_Classe.ListIndex = IIf(IsNull(RSmSQL!CLASSE), 0, RSmSQL!CLASSE)
TXT_Texto_Reg = IIf(IsNull(RSmSQL!texto), " ", RSmSQL!texto)
If Trim(RSmSQL!TIPO) = "R" Then
Opt_Registro.Value = True
ElseIf Trim(RSmSQL!TIPO) = "AV" Then
Opt_Averbacao.Value = True
End If
End If
RSmSQL.Close
grande abraço.
|
