PREENCHER TEXTBOX COM DADOS DO BANCO.
Quero pegar o valor desse select e jogar em um textbox, mais da erro.
Option value changed
Código
Private Sub preenchetxt()
Set rs = New ADODB.Recordset
Set oconn = New ADODB.Connection
oconn.Open [Ô]DSN=CHB_ORA;UID=producao;pwd=2sfloedw;server=dpitang[Ô]
Set rs = New ADODB.Recordset
txtprovidencia.text = [Ô][Ô]
rs.Open [Ô]SELECT SUM (FN06VRTITU) FROM FN06T WHERE fn06dtvenc >= [ô]01/08/2012[ô] AND fn06dtvenc <= [ô]31/08/2012[ô] AND FN06EMP07 = [ô]1[ô] AND FN06CCLI1 IN (SELECT FI15CODCF FROM FI15T WHERE FI15TIPOCL IN (SELECT FI28TIPOCL FROM FI28T WHERE FI28GRUCO IN ([ô]212.15[ô]))); [Ô], oconn, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
txtprovidencia.text = rs(0)
rs.MoveNext
Loop
txtprovidencia.Refresh
rs.Close
Set rs = Nothing
End Sub
Alguma sugestão?
Option value changed
Código
Private Sub preenchetxt()
Set rs = New ADODB.Recordset
Set oconn = New ADODB.Connection
oconn.Open [Ô]DSN=CHB_ORA;UID=producao;pwd=2sfloedw;server=dpitang[Ô]
Set rs = New ADODB.Recordset
txtprovidencia.text = [Ô][Ô]
rs.Open [Ô]SELECT SUM (FN06VRTITU) FROM FN06T WHERE fn06dtvenc >= [ô]01/08/2012[ô] AND fn06dtvenc <= [ô]31/08/2012[ô] AND FN06EMP07 = [ô]1[ô] AND FN06CCLI1 IN (SELECT FI15CODCF FROM FI15T WHERE FI15TIPOCL IN (SELECT FI28TIPOCL FROM FI28T WHERE FI28GRUCO IN ([ô]212.15[ô]))); [Ô], oconn, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
txtprovidencia.text = rs(0)
rs.MoveNext
Loop
txtprovidencia.Refresh
rs.Close
Set rs = Nothing
End Sub
Alguma sugestão?
Posta o erro
Esse é o erro, e ele mostra essa linha:
rs.Open [Ô]SELECT SUM (FN06VRTITU) FROM FN06T WHERE fn06dtvenc >= [ô]01/08/2012[ô] AND fn06dtvenc <= [ô]31/08/2012[ô] AND FN06EMP07 = [ô]1[ô] AND FN06CCLI1 IN (SELECT FI15CODCF FROM FI15T WHERE FI15TIPOCL IN (SELECT FI28TIPOCL FROM FI28T WHERE FI28GRUCO IN ([ô]212.15[ô]))); [Ô], oconn, adOpenDynamic, adLockOptimistic
rs.Open [Ô]SELECT SUM (FN06VRTITU) FROM FN06T WHERE fn06dtvenc >= [ô]01/08/2012[ô] AND fn06dtvenc <= [ô]31/08/2012[ô] AND FN06EMP07 = [ô]1[ô] AND FN06CCLI1 IN (SELECT FI15CODCF FROM FI15T WHERE FI15TIPOCL IN (SELECT FI28TIPOCL FROM FI28T WHERE FI28GRUCO IN ([ô]212.15[ô]))); [Ô], oconn, adOpenDynamic, adLockOptimistic
Private Sub preenchetxt()
Set rs = New ADODB.Recordset
Set oconn = New ADODB.Connection
oconn.Open [Ô]DSN=CHB_ORA;UID=producao;pwd=2sfloedw;server=dpitang[Ô]
Set rs = New ADODB.Recordset
txtprovidencia.text = [Ô][Ô]
rs.Open [Ô]SELECT SUM (FN06VRTITU) FROM FN06T WHERE fn06dtvenc >= [ô]01/08/2012[ô] AND fn06dtvenc <= [ô]31/08/2012[ô] AND FN06EMP07 = [ô]1[ô] AND FN06CCLI1 IN (SELECT FI15CODCF FROM FI15T WHERE FI15TIPOCL IN (SELECT FI28TIPOCL FROM FI28T WHERE FI28GRUCO IN ([ô]212.15[ô]))); [Ô], oconn, adOpenDynamic, adLockOptimistic
if rs.eof = False then
txtprovidencia.text = rs(0)
end if
rs.Close
Set rs = Nothing
End Sub
Se você vai por um loop o valor da txtprovidencia sempre ira mudar, mas você quiser manter todos faça assim:
Coloque o componente txtprovidencia como Multilinha e se for preciso scrollbar vertical, horizonte ou ambas.
Do While Not rs.EOF
txtprovidencia.text = rs(0) & chr(13) [ô]Inputa um [Ô]ENTER[Ô] para passar para a próxima linha
rs.MoveNext
Loop
Set rs = New ADODB.Recordset
Set oconn = New ADODB.Connection
oconn.Open [Ô]DSN=CHB_ORA;UID=producao;pwd=2sfloedw;server=dpitang[Ô]
Set rs = New ADODB.Recordset
txtprovidencia.text = [Ô][Ô]
rs.Open [Ô]SELECT SUM (FN06VRTITU) FROM FN06T WHERE fn06dtvenc >= [ô]01/08/2012[ô] AND fn06dtvenc <= [ô]31/08/2012[ô] AND FN06EMP07 = [ô]1[ô] AND FN06CCLI1 IN (SELECT FI15CODCF FROM FI15T WHERE FI15TIPOCL IN (SELECT FI28TIPOCL FROM FI28T WHERE FI28GRUCO IN ([ô]212.15[ô]))); [Ô], oconn, adOpenDynamic, adLockOptimistic
if rs.eof = False then
txtprovidencia.text = rs(0)
end if
rs.Close
Set rs = Nothing
End Sub
Se você vai por um loop o valor da txtprovidencia sempre ira mudar, mas você quiser manter todos faça assim:
Coloque o componente txtprovidencia como Multilinha e se for preciso scrollbar vertical, horizonte ou ambas.
Do While Not rs.EOF
txtprovidencia.text = rs(0) & chr(13) [ô]Inputa um [Ô]ENTER[Ô] para passar para a próxima linha
rs.MoveNext
Loop
Ainda está dando o mesmo erro.
Você pode usar o PROVIDER do Oracle para Conectar.Pode ser a configuração do DSN que não está correta.
Qual o oracle que está usando?
Eu uso o Oracle 11g com vb6.
Conexao.Open ([Ô]Provider=OraOLEDB.Oracle.1;Persist Security Info=true;User ID=system;Password=1234;Data Source=xe[Ô])
Qual o oracle que está usando?
Eu uso o Oracle 11g com vb6.
Conexao.Open ([Ô]Provider=OraOLEDB.Oracle.1;Persist Security Info=true;User ID=system;Password=1234;Data Source=xe[Ô])
Também uso a 11g, com o Provider também não foi...
Eu só queria jogar o resultado desse select em um textbox.
SELECT SUM (fn06vrtitu) FROM FN06T WHERE fn06ccli1= [ô]3025[ô] AND fn06dtvenc >= [ô]01/08/2012[ô] AND fn06dtvenc <= [ô]31/08/2012[ô];
Minha conexão com o banco é:
Set rs = New ADODB.Recordset
Set oconn = New ADODB.Connection
oconn.Open [Ô]DSN=CHB_ORA;UID=producao;pwd=2sfloedw;server=dpitang[Ô]
Se eu tento com esse select ele não da erro.
select max(id) +1 from informatica.lista_geral
Eu só queria jogar o resultado desse select em um textbox.
SELECT SUM (fn06vrtitu) FROM FN06T WHERE fn06ccli1= [ô]3025[ô] AND fn06dtvenc >= [ô]01/08/2012[ô] AND fn06dtvenc <= [ô]31/08/2012[ô];
Minha conexão com o banco é:
Set rs = New ADODB.Recordset
Set oconn = New ADODB.Connection
oconn.Open [Ô]DSN=CHB_ORA;UID=producao;pwd=2sfloedw;server=dpitang[Ô]
Se eu tento com esse select ele não da erro.
select max(id) +1 from informatica.lista_geral
tentou alterar o formato da data para YYYY/MM/dd
Descobri agora que só da erro se o numero tiver virgula =s
Invalid number, agora tenho esse erro...
troque a virgula por ponto e resolve, não é isso?
Tópico encerrado , respostas não são mais permitidas