Visual b
- 1. República Bolivariana de Venezuela Ministerio del poder popular para la educación universitaria Instituto universitario Politécnico ¨Santiago Mariño ¨ Extensión Col Cabimas Bases de Datos desde Visual Basic 6.0 Alumna María Gabriela Silva CI: 27.691.408
- 2. 1. como enlazar visual basic 6.0 a Acces 1. click secundario sobre el control adodc1 2. click en propiedades y luego en generar 3. seleccionas microsoft office Acces 12..... 4. y en la pantalla que te aparesca escribes la direccion de tu base de datos que supongo es de formato accdb pruevas la coneccion y tendra que conectar satisfactoriamente. luego para el boton guardar introduce el siguiente codigo suponiendo que tienes un textBox que en la propiedad nombre tenga TxtNombre y que exista el campo nombre en la tabla de tu bd y que la tabla se llame tabla: estos codigos van en el evento clic de los botones: 1. click secundario sobre el control adodc1 2. click en propiedades y luego en generar 3. seleccionas microsoft office Acces 4. y en la pantalla que te aparesca escribes la direccion de tu base de datos pruevas la coneccion y tendra que conectar satisfactoriamente. luego para el boton guardar introduce el siguiente codigo suponiendo que se tenga un textBox que en la propiedad nombre tenga TxtNombre y que exista el campo nombre en la tabla de la bd y que la tabla se llame tabla: estos codigos van en el evento clic de los botones: 'Guardar Private sub CmdGuardar_click() Adodc1.recordsource="select * from tabla" adodc1.recordset.addnew adodc1.recordset.fields(0) = txtNombre.text adodc1.recordset.Update msgbox"Registro Guardado" end sub codigo para Borrar:
- 3. Private sub CmdEliminarr_click() Adodc1.recordsource="select * from tabla where nombre=" & txtnombre.text txtNombre.text = adodc1.recordset.fields(0) adodc1.recordset.Delete msgbox"Registro Borrado" end sub Codigo para Modificar: Private sub CmdGuardar_click() Adodc1.recordsource="select * from tabla" adodc1.recordset.fields(0) = txtNombre.text adodc1.recordset.Update msgbox"Registro Modificado" end sub 2. Conectar visual basic a Microsoft SQL Server dim mc as adodb.connection public sub conectar() set mc=new adodb.connection mc.connectionstring="cadenadeconexion" mc.open end sub
- 4. 3. Como enlazar visual basic 6.0 a MySQL Primero bajate el conector ODBC deMYSql. Luego, con código así puedes conectarte: Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql$ Set cnn = New ADODB.Connection cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER=xx.xxx.xx.xx;" _ & "DATABASE=MIBASE;" _ & "UID=miusuario;PWD=miclave;PORT=3306;OPTION=131072" cnn.Open Set rst = New ADODB.Recordset sql$ = "select Lugar.Provincia from Lugar where Lugar.Region='" & Combo1 & "' Group by Lugar.provincia" With rst .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sql$, cnn, , , adCmdText End With