Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Insertar registros en tb oracle desde VB6 utilizando RDO
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Insertar registros en tb oracle desde VB6 utilizando RDO

Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
yecoar
Usuario


Registrado: Aug 08, 2007
Mensajes: 1

Asunto: Insertar registros en tb oracle desde VB6 utilizando RDO Responder citando

Ingenieros,,,,,,me pueden decir de que manera puedo insertar registros a una tb oracle desde visual basic 6, estoy utilizando un Odbc de oracle home y un RDO en visual basic. Ya tengo la conexion activa pero no se como enlazo el rdoconexion con la instruccion "insert into" para ejecutarlo con el metodo (execute)

conODBC = "DSN=" + txtodbc.Text + ";ODBC;" + _
";uid=" + txtusuario.Text + ";pwd=" + txtcontrasena.Text

Set rdoEntorno = rdoEngine.rdoEnvironments(0)
Set rdoConexion = rdoEntorno.OpenConnection(txtodbc.Text, False, True, conODBC)

Gracias por su ayuda
MensajePublicado:
Mie Ago 08, 2007 4:06 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Insertar registros en tb oracle desde VB6 utilizando RDO Responder citando



Anuncios



yecoar escribió:
Ingenieros,,,,,,me pueden decir de que manera puedo insertar registros a una tb oracle desde visual basic 6, estoy utilizando un Odbc de oracle home y un RDO en visual basic. Ya tengo la conexion activa pero no se como enlazo el rdocone...



Te mostramos un ejemplo:

Código:

Private Sub btInsertarRegistro_Click()
  Dim rdoEntorno As rdoEnvironment
  Dim rdoConexion As rdoConnection
  Dim conODBC As String
  Dim insertarSQL As String
  Dim rdoConsulta As New rdoQuery
 
 
  On Error GoTo cError

  conODBC = "DSN=NOMBRE_ODBC;ODBC;;" + _
      "uid=USUARIO_CONEXION;pwd=CONTRASEÑA_CONEXION"
  Set rdoEntorno = rdoEngine.rdoEnvironments(0)
  Set rdoConexion = rdoEntorno.OpenConnection(txtODBC.Text, _
      False, False, conODBC)
 
  insertarSQL = "INSERT INTO tabla_prueba " + _
      "VALUES ('Fernando Alonso', 69);"
  Set rdoConsulta.ActiveConnection = rdoConexion
  rdoConsulta.SQL = insertarSQL
  rdoConsulta.Execute
  rdoConsulta.Close
 
  rdoConexion.Close
 
  MsgBox "Consulta SQL de inserción ejecutada correctamente.", _
     vbInformation
 
 
 
cSalir:
  Exit Sub
 
cError:
  MsgBox Err.Description
  GoTo cSalir
End Sub


Donde:
* NOMBRE_ODBC: nombre que le hayas dado al origen de datos ODBC.
* USUARIO_CONEXION: nombre del usuario de la base de datos Oracle que tenga los permisos sufientes para hacer inserciones.
* CONTRASEÑA_CONEXION: contraseña del usuario con el que nos conectaremos a Oracle.

Recuerda añadir en Visual Basic una referencia a Microsoft Remote Data Object 2.0, lógicamente deberá estar instalada y registrada la dll MSRDO20.DLL en el equipo donde se vaya a ejecutar el programa.

Este código te sirve para cualquier origen de datos ODBC: Oracle, MySQL, SQL Server, DB2, Interbase, Access, etc.

Para ver cómo instalar y añadir un origen de datos ODBC de Oracle y cómo realizar la conexión RDO en Visual Basic, aquí tienes un manual que lo explica paso a paso:

http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=223
MensajePublicado:
Dom Ago 12, 2007 4:55 pm
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A