modificar base de datos en visual basicCerrado

Question

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

powershadow · Answer

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::::::::::::::::::::::::::

rayo perez diaz · Answer

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

ROBERT · Answer

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

javierpelegrini · Answer

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

Modificar base de datos en visual basic

4 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!