BANCO DE DADOS ORACLE
Bom pessoal... no momento estou a passar meu programa para ADO.... mais ja fui avisado pela minha chefia que estarei migrando para outro tipo de banco de dados.... Oracle... bom so que nao sei nada piritiba nenhuma de orale..!!1 se vc puderem me ajudar..... com acçoes de como cadastrar, alterar, jogar os dados na tela.exluir... essas coisas..!1 fico muito grato... Obrigado..!!!!
Ei Pessoal..!!! ninguem aqui sabe ???? eu nao tenho noção nenhuma de oracle..!!! se alguem puder me ajudar..!! fico grato..!!!!!Obrigado desde ja..!!!
O que exatamente vc precisa?
Bom algumas dicas:
String de conexão:
Global Const w_gl_conexao = "Provider=MSDAORA.1;Password=senha;User ID=user;Data Source=banco;Persist Security Info=True"
Abrindo Conexão (Código dentro de um módulo):
Global db_gl As New ADODB.Connection
Public Sub conecta_banco()
On Error Resume Next
db_gl.CursorLocation = adUseClient
db_gl.Open w_gl_conexao
End Sub
Formulário:
Ado_Teste.ConnectionString = w_gl_conexao
Ado_Teste.RecordSource = "select * from tabela_tal"
Ado_Teste.Refresh
ou consultas gerais:
Dim rs_gl As New ADODB.Recordset
Dim w_sql As String
Dim w_campo_tabela As Double
w_sql = "select nvl(campo,0) as campo from tabela_fulano"
rs_gl.Open w_sql, db_gl, adOpenStatic, adLockReadOnly
w_campo_tabela = CDbl(rs_gl![campo])
rs_gl.Close
Executando Instruções / Bloco de Instruções:
Dim w_sql as String
w_sql = "delete tabela_fulano"
db_gl.Execute (w_sql)
'---------------------------------------------
Dim w_sql as String
w_sql = "Create table tabela_teste(cd_teste number, ds_teste varchar2(200))"
db_gl.Execute (w_sql)
'---------------------------------------------
Dim w_sql as String
w_sql = " Declare" & vbnewline
w_sql = w_sql & " w_cd_teste number;" & vbnewline
w_sql = w_sql & " Begin" & vbnewline
w_sql = w_sql & " select cd_teste into w_cd_teste" & vbnewline
w_sql = w_sql & " from tabela_teste where cd_teste < 2 and rownum = 1;" & vbnewline
w_sql = w_sql & " delete tabela_2" & vbnewline
w_sql = w_sql & " where cd_teste = w_cd_teste;" & vbnewline
w_sql = w_sql & " End;"
db_gl.Execute (w_sql)
Espero que ajude pelo menos um pouco...
Qualquer dúvida é só perguntar.
Bom algumas dicas:
String de conexão:
Global Const w_gl_conexao = "Provider=MSDAORA.1;Password=senha;User ID=user;Data Source=banco;Persist Security Info=True"
Abrindo Conexão (Código dentro de um módulo):
Global db_gl As New ADODB.Connection
Public Sub conecta_banco()
On Error Resume Next
db_gl.CursorLocation = adUseClient
db_gl.Open w_gl_conexao
End Sub
Formulário:
Ado_Teste.ConnectionString = w_gl_conexao
Ado_Teste.RecordSource = "select * from tabela_tal"
Ado_Teste.Refresh
ou consultas gerais:
Dim rs_gl As New ADODB.Recordset
Dim w_sql As String
Dim w_campo_tabela As Double
w_sql = "select nvl(campo,0) as campo from tabela_fulano"
rs_gl.Open w_sql, db_gl, adOpenStatic, adLockReadOnly
w_campo_tabela = CDbl(rs_gl![campo])
rs_gl.Close
Executando Instruções / Bloco de Instruções:
Dim w_sql as String
w_sql = "delete tabela_fulano"
db_gl.Execute (w_sql)
'---------------------------------------------
Dim w_sql as String
w_sql = "Create table tabela_teste(cd_teste number, ds_teste varchar2(200))"
db_gl.Execute (w_sql)
'---------------------------------------------
Dim w_sql as String
w_sql = " Declare" & vbnewline
w_sql = w_sql & " w_cd_teste number;" & vbnewline
w_sql = w_sql & " Begin" & vbnewline
w_sql = w_sql & " select cd_teste into w_cd_teste" & vbnewline
w_sql = w_sql & " from tabela_teste where cd_teste < 2 and rownum = 1;" & vbnewline
w_sql = w_sql & " delete tabela_2" & vbnewline
w_sql = w_sql & " where cd_teste = w_cd_teste;" & vbnewline
w_sql = w_sql & " End;"
db_gl.Execute (w_sql)
Espero que ajude pelo menos um pouco...
Qualquer dúvida é só perguntar.
Bom Bom dia pessoal....
Bom não entendi muito bem isso..!!! serei mais especifico..!1 eu to com um programa em ADO com banco de dados Access, e so vou trocar de banco..!! so que teria que mudar algumas funções...!!! de inserir ( cn.execute ("insert into tabela ( campos) values ( campos). um exeplo.... entaum precisaria saber coo ficaria isso em oracle... em inserir , alterar, jogar dados na tela, exxluir...!!! essas coisas.. rotinas basicas de um programa..!!!
Bom se alguem poder me indicar algum soft que esteja com banco oracle.... me ajudaria muito tbem...!!!ou algum site..!!1 legal..!!!!
Ah vocês estao de parabens pelo site, conteudo, dicas,,, muito bom tudo..!!!!
... bom pessoal Muito obrigado..!!!!
Bom não entendi muito bem isso..!!! serei mais especifico..!1 eu to com um programa em ADO com banco de dados Access, e so vou trocar de banco..!! so que teria que mudar algumas funções...!!! de inserir ( cn.execute ("insert into tabela ( campos) values ( campos). um exeplo.... entaum precisaria saber coo ficaria isso em oracle... em inserir , alterar, jogar dados na tela, exxluir...!!! essas coisas.. rotinas basicas de um programa..!!!
Bom se alguem poder me indicar algum soft que esteja com banco oracle.... me ajudaria muito tbem...!!!ou algum site..!!1 legal..!!!!
Ah vocês estao de parabens pelo site, conteudo, dicas,,, muito bom tudo..!!!!
... bom pessoal Muito obrigado..!!!!
Tópico encerrado , respostas não são mais permitidas