Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Imprimir_boleta.Click
If TB_Registro.Text = "Cargado" Then
Conexion_Reporte()
Else
MsgBox("No tiene seleccionado ningun alumno, Carge primero un alumno")
End If
End Sub
Sub Conexion_Reporte()
Con.ConnectionString = "server=localhost;Database=ingles;Uid=root;Pwd=123 45 "
Cmd.Connection = Con
Con.Open()
Cmd.CommandText = "Select R.ID, R.Alumno, R.N_Control, R.Especialidad, C.Calif_Primer_Nivel, C.`Tipo 1`, C.Calif_Segund_Nivel, C.`Tipo 2`, C.Calif_Tercer_Nivel, C.`Tipo 3`, C.Calif_Cuarto_Nivel, C.`Tipo 4`, C.Teacher, C.Curso, C.Promedio FROM registro_alumnos R, registro_Calificacion C WHERE R.ID = C.ID And R.ID = '" & TB_Id2.Text & "' order by ALumno "
Da.SelectCommand = Cmd
Da.Fill(Ds)
ARchivo_Reporte()
Con.Close()
End Sub
Sub eliminar_xml()
If My.Computer.FileSystem.FileExists("C:\Centro de Idiomas archivo\boleta_1.xml") Then
My.Computer.FileSystem.DeleteFile("C:\Centro de Idiomas archivo\boleta_1.xml")
End If
End Sub
Sub ARchivo_Reporte()
Dim ruta As String
ruta = "c:\Centro de Idiomas archivo"
If Directory.Exists(ruta) Then
eliminar_xml()
Ds.WriteXml("C:\Centro de Idiomas archivo\boleta_1.xml", XmlWriteMode.WriteSchema)
Reporte_Boleta_ind.Show()
Else
System.IO.Directory.CreateDirectory("c:\Centro de Idiomas archivo")
eliminar_xml()
Ds.WriteXml("C:\Centro de Idiomas archivo\boleta1.xml", XmlWriteMode.WriteSchema)
' Reporte_Boleta_ind.Show()
End If
End Sub