| Usuario |
ME ESTOY VOLVIENDO LOCO!!! |
Mi69
10 Mensaje(s) |
| Enviado - 18/10/2004 |
| |
Por favor, hace cuatro días que estoy con esto y encuentro el error...
Tengo una aplicación que se conecta a la base de datos Access por medio de Ado. Cuando abro un Form, me muestra los datos que hay en la base en un DataGrid según la consulta que ejecuto. Hasta ahí todo bien, el problema es cuando quiero modificar algún registro de los que me arrojo la consulta, y uso este código:
Private Sub cmdUpdateTexto_Click()
Dim SQL As String
If grdDataGrid.Columns(5).Text = "True" Then
SQL = "UPDATE MiTabla SET Texto = '" & txtUpdateTexto.Text & "' Where Texto = '<False>'"
datPrimaryRS.Refresh 'Mi conexión
grdDataGrid.Refresh 'Mi DataGrid
Else
MsgBox "No puede justificar los cambios" _
+ Chr(10) + "verifique los parámetros", vbExclamation, "Error"
End If
End Sub
No me actualiza nada, QUE ESTOY HACIENDO MAL??? |
| |
|
V_J_h
26 Mensaje(s)
|
| Enviado - 19/10/2004 |
| |
De esa manera.. no creo que Funcione.. lo que tienes que hacer es asociar datagrid con tu base de datos por medio de un DATAADAPTER, con el data adapter puedes hacer cambios sin ningun problema en la base de datos... aqui te mando un pedazo de cogido, estudialo e implementalo en tu proyecto...
'Tienes que crearte un tabla Entel en
'Sqlserver con un base de datos que se llame
'Pruebas Esta conexion es de sqlServer
'campo ID, Telefono, Fecha, horaI, HoraF
Dim cn As New SqlConnection("Integrated Security=SSPI;Initial Catalog=Pruebas;Data Source=Servidor1;")
Dim da As New SqlDataAdapter("Select * From Entel", cn)
Dim cb As New SqlCommandBuilder(da)
Dim ds As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmv As CurrencyManager
Dim bts As DataGridTableStyle
da.Fill(ds, "Entel")
DataGrid1.DataSource = ds.Tables("Entel")
cmv = CType(BindingContext(ds, "Entel"), CurrencyManager)
bts = New DataGridTableStyle(cmv)
DataGrid1.TableStyles.Add(bts)
CType(ts.GridColumnStyles(3), DataGridTextBoxColumn).Format = "HH:mm:ss"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
da.Update(ds, "Entel")
End Sub
Al presionar el button1 automaticamente se actualiza... Este codigo Funciona... esta con una conexion a SQL Server... puedes cambiarle la cadena de conexion para acces.. y va dar....
Suerte !!! XD |
| |
|
|
|
