APROVECHO PARA DEJARLES OTRA DUDA QUE TENGO, EL BOTÓN DE GUARDAR YA ME GUARDA EN LA BASE DE DATOS, LA CUAL ES MYSQL Y ESTOY PROGRAMANDO EN VISUAL BASIC 2005, PERO AL MOMENTO DE GUARDAR ME HACE 2 REGISTROS, UNO CON LA CLAVE 0 (QUE NO DEBE DE CREARSE) EN DONDE SE ALOJAN LOS CAMPOS DEL DATAGRIDVIEW Y LA CLAVE 1 DONDE SE ALOJAN LOS CAMPOS QUE SON DE LOS TEXTBOX, SE QUE ESTO LO HACE PORQUE ESTOY ADAPTANDO DOS NEW MYSQLDATAADAPTER DISTINTOS, PERO HE TRATADO DE ADAPTARLOS A UN SOLO REGISTRO Y NO ME SALE, SI ME PUEDEN AYUDAR SE LOS AGRADECERÉ.
Dim dat As New MySqlDataAdapter
Dim dag As New MySqlDataAdapter
Dim ds As New DataSet
Dim dr As DataRow
Dim cb As New MySqlCommandBuilder
Dim cm As New MySqlCommand
dat = New MySqlDataAdapter("select * from asistencia order by Clave asc;", con)
dat.Fill(ds, "asistencia")
cb = New MySqlCommandBuilder(dat)
If ds.Tables("asistencia").Rows.Count > 0 Then
dr = ds.Tables("asistencia").Rows(ds.Tables("asistencia").Rows.Count - 1)
tclave.Text = Val(dr("Clave")) + 1
Else
tclave.Text = "1"
End If
dr = ds.Tables("asistencia").NewRow
dr("Titulo_clase") = ttitulo.Text
dr("Fecha") = dfecha.Text
dr("Profesor") = tprofesor.Text
dr("Clave") = tclave.Text
dr("Visitas") = Val(tvisitas.Text)
dr("Total_presentes") = Val(ttotalpresentes.Text)
dr("Total_tareas") = Val(ttotaltareas.Text)
dr("Total_participaciones") = Val(ttotalparticipaciones.Text)
ds.Tables("asistencia").Rows.Add(dr)
dat.Update(ds.Tables("asistencia"))
ds.AcceptChanges()
dag = New MySqlDataAdapter("select * from asistencia order by Clave asc;", con)
dag.Fill(ds, "asistencia")
cb = New MySqlCommandBuilder(dag)
For i As Integer = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(i).Cells(0).Value <> "" Then
dr = ds.Tables("asistencia").NewRow
dr("No") = DataGridView1.Rows(i).Cells(0).Value
dr("Nombre") = DataGridView1.Rows(i).Cells(1).Value
dr("Presente") = DataGridView1.Rows(i).Cells(2).Value
dr("Tarea") = DataGridView1.Rows(i).Cells(3).Value
dr("Participacion") = DataGridView1.Rows(i).Cells(4).Value
ds.Tables("asistencia").Rows.Add(dr)
dag.Update(ds.Tables("asistencia"))
ds.AcceptChanges()
End If
Next
deshabilitarcajas()
bnuevo.Enabled = True
bguardar.Enabled = False
bimprimir.Enabled = True
bbuscar.Enabled = True
bmodificar.Enabled = True
bguardarmodificacion.Enabled = False
beliminar.Enabled = False
bcancelar.Enabled = False
