Modificar base de datos en visual basic

Cerrado
hola - 31 jul 2009 a las 00:42
 titi - 21 nov 2012 a las 04:48
Hola,
me pueden ayudar??'
quiero saber elcodigo para modificar mi base de datyos desde visual basic tambien el codigo de consultar y
cancela yobtengo el de nuevo, guardar y eliminar y se vincular los foprmulariuos para quines les pueda servir..
se los agradeceria mucho si me ayudan me urjen.
les mando uu cordial saludo
Consulta también:

4 respuestas

Hola
Lo q debes d hacer es manegar sql ya q tu consulta es de codigo y sql es quien interactua con la bd y tu aplicacion,algo como esto:::

Public cnn As ADODB.Connection

Sub Main()

'On Error GoTo mierror
Set cnn = New ADODB.Connection 'coneccion
cnn.CursorLocation = adUseClient 'cursor cliente
With cnn
.Provider = "SQLOLEDB.1" 'Proveedor
.ConnectionString = "User ID=sa;Initial Catalog=sistema_ferreteria;Data Source=." 'origen de datos
.Open 'abrir origen
'mierror:
'MsgBox Err.Description, vbInformation, "Error Numero" & Err.Number
'Exit Sub
End With
frm_seguridad.Show 'mostrar formulario de login
End Sub

O algo parecido,espero q t sirva::::::::::::::::::::::::::
0
tonto mas basura
y feo titi
0
rayo perez diaz
13 may 2010 a las 16:46
hola como le puedo hacer para buscar codigos de programacion para ligar el php visual basic, visual ctt como base de datos puedes ayudarme gracias saludos
0
En planetsourcecode vi varios ejemplos como los que estas buscando
0
basura
0
este codigo lo podras dentro de un boton que se llame mostrar

MiDataSet.Clear() 'LIMPIO EL CONJUNTO DE DATOS
'MANDO LOS DATOS O MUESTRO LOS DATOS PARA QUE SE PASEN A LAS CJAS PARA SER EDITADOS
ssql = "SELECT ID_di, fecha_i,fecha_f,motivo FROM dias_inhabiles WHERE id_di = '" & TeXTELIMINA.Text & "'"
MiDataAdapter.SelectCommand.CommandText = ssql
MiDataAdapter.SelectCommand.Connection = MiConexion
MiConexion.Open()
MiDataAdapter.Fill(MiDataSet, "TVdias_inabiles")
MiConexion.Close()
n = MiDataSet.Tables("TVdias_inabiles").Rows.Count


If n > 0 Then 'SI EXISTEN REGISTROS QUE MUESTRE LOS CAMPOS
fila = MiDataSet.Tables("TVdias_inabiles").Rows(0)
TextID.Text = fila("ID_di")
TextFI.Text = fila("fecha_I")
TextFF.Text = fila("fecha_F")
TextMOTIVO.Text = fila("motivo")
Else
MsgBox("DATOS NO ENCONTRADOS")
End If

despues de que allas colocado esos codigos la colocas el siguiente en un boton de guardar



BOTON GUARDAR


MiDataSet.Clear() 'LIMPIO EL CONJUNTO DE DATOS
'ACTUALIZO LOS DATOS QUE HE SELECCIONADO
ssql = "UPDATE DIAS_INHABILES SET ID_Di = '" & TextID.Text & "', FECHA_I = '" & TextFI.Text & "', FECHA_F = '" & TextFF.Text & "', MOTIVO = '" & TextMOTIVO.Text & "' WHERE ID_DI = '" & TextID.Text & "'"
MiDataAdapter.UpdateCommand.CommandText = ssql
MiDataAdapter.UpdateCommand.Connection = MiConexion
MiConexion.Open()
n = MiDataAdapter.UpdateCommand.ExecuteNonQuery() 'EJECUTA LA CONSULTA ANTERIOR
MiConexion.Close()
If n > 0 Then 'SI SI EXISTEN REGISTROS QUE ACTUALIZE LOS DATOS
MsgBox("LOS DATOS SE HAN ACTUALIZADO")
Else 'SINO
MsgBox("LOS DATOS NO SE HAN ACTUALIZADO") 'MANDE UN MENSAJE DE QUE NO SE ACTUALIZARON

End If
TextFI.Clear() 'LIMPIO LAS CAJAS DE TEXTO
TextFF.Clear()
TextMOTIVO.Clear()
TextFI.Focus()


pero ojo los textbox las tendras que modificar todo a conforme atu base de datos
es facil de hacerlo solo necesitas analizarlo lo podras correr en visual basic.net 2005. Adios espero que te sirva
0
javierpelegrini Mensajes enviados 14 Fecha de inscripción lunes, 14 de marzo de 2011 Estatus Miembro Última intervención jueves, 15 de septiembre de 2011 8
15 abr 2011 a las 00:45
Hola, mira este ejemplo. es un formulario que conecta a una base de datos por medio de ADO, tiene las opciones básicas para modificar, eliminar, agregar registros, etc y también para mostrar un informe o reporte de los registros .. saludos.

https://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/formulario-abm-con-access-ado.htm

aquí otro mas para conectar a sql server .

http://www.elguille.info/vb/bases/ADO/abrirbaseSQL.htm
0
es muy facil amigos
0