Fiz este codigo abaixo para acessar o oracle no excel, quanto ao funcionamento sem problemas.
So tenho uma duvida, quando faço a concatenação da string sql, ela tem tamanho maximo para enviar ao bd ou tem alguma ordem de comandos que devem ficar junto por string para serem concatenados e enviados ao bd???
Dim cn As New Connection
Dim rs As New Recordset
Dim sql As string
cn = "Driver={Microsoft ODBC for Oracle}; " & "CONNECTSTRING=orcl;uid=user;pwd=pass;"
Set rs = New Recordset
Cells.Select
Selection.Clear
Range("A1").Select
sql = "select cast(p.cod_us as varchar(3)),"
sql = sql & "u.nome_us."
sql = sql & "e.nome_eta,"
sql = sql & "cast(p.dt_agua_trat as varchar(12)),"
sql = sql & "cast(p.vol_agua_tratada as varchar(6))"
sql = sql & "from stc_us u,stc_eta e,"
sql = sql & "stc_agua_tratada p where u.cod_us=p.cod_us and p.cod_eta=e.cod_eta"
Pergunta
henrique290
Fiz este codigo abaixo para acessar o oracle no excel, quanto ao funcionamento sem problemas.
So tenho uma duvida, quando faço a concatenação da string sql, ela tem tamanho maximo para enviar ao bd ou tem alguma ordem de comandos que devem ficar junto por string para serem concatenados e enviados ao bd???
Dim cn As New Connection
Dim rs As New Recordset
Dim sql As string
cn = "Driver={Microsoft ODBC for Oracle}; " & "CONNECTSTRING=orcl;uid=user;pwd=pass;"
Set rs = New Recordset
Cells.Select
Selection.Clear
Range("A1").Select
sql = "select cast(p.cod_us as varchar(3)),"
sql = sql & "u.nome_us."
sql = sql & "e.nome_eta,"
sql = sql & "cast(p.dt_agua_trat as varchar(12)),"
sql = sql & "cast(p.vol_agua_tratada as varchar(6))"
sql = sql & "from stc_us u,stc_eta e,"
sql = sql & "stc_agua_tratada p where u.cod_us=p.cod_us and p.cod_eta=e.cod_eta"
sql = sql & "and p.cod_us=27"
cn.Open
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.