como modificar y eliminar datos con un control ado
Publicado por raymundo (22 intervenciones) el 11/06/2005 20:46:07
Quisiera saber como hago para modificar bd utilizando el controles ado.
esto lo hago para consultar
Private Sub Form_Load()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\hooka.mdb;" & _
"Persist Security Info=False"
.CommandType = adCmdText
End With
End Sub
Private Sub txtNombre_Change()
Dim Buscado As String
Buscado = Trim(txtNombre.Text)
With Adodc1
.RecordSource = "select * " & _
"from Licores " & _
"where NombreLicor like '" & Buscado & "%' " & _
"order by NombreLicor"
.Refresh
End With
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub DataGrid1_SelChange(Cancel As Integer)
Dim cust As Customers
cust.CustID = DataGrid1.Columns.Item(0).Text
cust.custName = DataGrid1.Columns.Item(2).Text
cust.Custcont = DataGrid1.Columns.Item(3).Text
Me.txtNombre1.Text = cust.CustID
Me.txtCantidad.Text = cust.Custcont
Me.txtPrecio.Text = "$" + cust.custName
End Sub
despues de seleccionar el regsitro los datos me los manda a unos textbox al modificar el contenido de los textbox y presionar el boton aceptar se debe de modificar en la base como es el codigo de los adoc para agregar,editar,borra del control adoc si alguien pude atudarme porfavor..
se lo agradeceria mucho
esto lo hago para consultar
Private Sub Form_Load()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\hooka.mdb;" & _
"Persist Security Info=False"
.CommandType = adCmdText
End With
End Sub
Private Sub txtNombre_Change()
Dim Buscado As String
Buscado = Trim(txtNombre.Text)
With Adodc1
.RecordSource = "select * " & _
"from Licores " & _
"where NombreLicor like '" & Buscado & "%' " & _
"order by NombreLicor"
.Refresh
End With
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub DataGrid1_SelChange(Cancel As Integer)
Dim cust As Customers
cust.CustID = DataGrid1.Columns.Item(0).Text
cust.custName = DataGrid1.Columns.Item(2).Text
cust.Custcont = DataGrid1.Columns.Item(3).Text
Me.txtNombre1.Text = cust.CustID
Me.txtCantidad.Text = cust.Custcont
Me.txtPrecio.Text = "$" + cust.custName
End Sub
despues de seleccionar el regsitro los datos me los manda a unos textbox al modificar el contenido de los textbox y presionar el boton aceptar se debe de modificar en la base como es el codigo de los adoc para agregar,editar,borra del control adoc si alguien pude atudarme porfavor..
se lo agradeceria mucho
Valora esta pregunta


0