Título: una mano con conexiones ADO Publicado por: 4D1cTo en 13 Febrero 2008, 12:54 pm estoy realizando un programa en basic pero necesito ayuda con las conexiones
necesito agregar , modificar y poder eliminar datos para cada accion necesito un recordset verdad ? y por supuesto una conexion que supongo que sera la misma para todos en este caso AdoConexion Código: Dim AdoConexion As ADODB.Connection para agregar los registros tendria que crear un sql Código: sql = "Insert Into TABLA (campo1,campo2,campo3)" _ estaria bien de esa forma el agregar ? para modificar seria algo como Código: sql = "Update TABLA SET campo1 = campo1.txt,campo2 = campo2.txt WHERE condicion" en este caso seria recordset.open ? o .execute ? y para el eliminar Código: sql = "DELETE * FROM TABLA WHERE condicion" aca open ? execute ? me da error al querer eliminar registros que estan relacionados , de que otra forma puede hacerse ? Título: Re: una mano con conexiones ADO Publicado por: Hans el Topo en 13 Febrero 2008, 13:17 pm para esto se suele utilizar un recordset una conexion y un command
abres conexiones asignas conexion a comand y recordser Código: 'para enviar consultas ya ta Título: Re: una mano con conexiones ADO Publicado por: 4D1cTo en 13 Febrero 2008, 13:20 pm no entendi mucho , no estoy muy familiarizado con estas conexiones como veras
lo unico que entendi es que solo se usa open para consultas de tipo select para delete o update se usa execute Título: Re: una mano con conexiones ADO Publicado por: cassiani en 13 Febrero 2008, 14:20 pm Citar necesito agregar , modificar y poder eliminar datos Mira te muestro OTRA forma de hacerlo... Investiga un poco sobre el Adodc, este objeto lo podes enlazar con la base de datos, tabla, etc. Para agregar un registro nuevo a la tabla, usas: Código: Adodc1.Recordset.AddNew Para eliminar un registro, usas: Código: Adodc1.Recordset.Delete adAffectCurrent Para actualizar los datos: Código: Private Sub CmdAceptar_Click() Y para cancelar cualquier acción: Código: Private Sub CmdCancelar_Click() Podes tener los texbox's enlazados a cada campo de la tabla, a través del Ado. Prueba a ver que tal, ¡S4lu2! Título: Re: una mano con conexiones ADO Publicado por: 4D1cTo en 13 Febrero 2008, 15:48 pm no conocia esa forma , lo que pasa es que en el trabajo solo trabajmos con ADO
esto seria un complemento al ADO ? o seria otra forma de enlazar base de datos con vb ? gracias Título: Re: una mano con conexiones ADO Publicado por: cassiani en 13 Febrero 2008, 18:02 pm no conocia esa forma , lo que pasa es que en el trabajo solo trabajmos con ADO esto seria un complemento al ADO ? o seria otra forma de enlazar base de datos con vb ? gracias ??? :xD... la seguda, existen varias formas para acceder a una base de datos e interactuar con sus registos... el ejemplo anterior, es una de ella... Investiga un poco y te seguimos ayudando. ¡S4lu2! Título: Re: una mano con conexiones ADO Publicado por: Hans el Topo en 13 Febrero 2008, 19:24 pm no conocia esa forma , lo que pasa es que en el trabajo solo trabajmos con ADO esto seria un complemento al ADO ? o seria otra forma de enlazar base de datos con vb ? gracias no te recomiendo trabajar con controles, lo que inicialmente parece una senda despejada se acaba convirtiendo en una trampa mortal Título: Re: una mano con conexiones ADO Publicado por: black_jjk en 18 Febrero 2008, 18:25 pm Estoy de acuerdo con no usar controles enlazados, la verdad es que son un tanto limitantes y a la hora de establecer la conexión y los enlaces es un martirio, por otra parte si quieres mostrar diferente información en un mismo objeto como un FlexGrid...
Yo también te recomiendo que te pongas a estudiar pues esto de las bases de datos no es tan sencillo como praece y si trabajas de eso pues... En una de esas borras información importante y ... Pero ya esta bueno de sermones que esto se trata de ayurnos: El código que sigue yo declaro en un módulo de manera pública para luego invocarlo desde donde me venga en gana, solo ten cuidado con el alcance de tus variables: Código: Public MC As ADODB.Connection Ahora abrimos la conexión: Código: Public Function AbreBase() Ahora una función para Ejecutar tus consultas SQL: Código: Function Ejecuta(Consulta As String) Vale?, si quieres también la puedes hacer pública o introducirla en el Form que te venga en gana y ejecutarla localmente. Bueno y el XSQL ya sabes para que sirve XD; Por último: Código: Private Sub Buscar_Click() Vale espero que sigas el consejo que te hemos dado y estudies; lo del Fields(X) es para que no se te olvide que vas a identificar los campos con el número de subindice, por lo que si tu tabla tiene 50 campos y seleccionas todo usando "SELECT (*)" tendrás los Fields(0)-Fields(49), y si usas una consulta más especifica y especificas los campos que quieres seleccionar siempre serán N-1 para tus Fields a la hora de ejecutar tu código, espero que te sirva. ::) |