Private Sub procederindexar()
conectaalumnos()
conectaalumnos2()
defineciclo()
'''crea carpeta con el ciclo pasado
FileIO.FileSystem.CreateDirectory("\\subdirector\est22\exalumnos\" + cicloesc)
Dim grad() As String = {"3° A", "3° B", "3° C", "3° D", "3° E"}
Dim nombre, curp, lugar, nac, padre, madre, dom, sex, foto As String
Dim tel1, tel2, tecnologia, adeudos, lugardenac, grupo As String
Dim promgral As Double
Dim fechanac As Date
Dim x As Integer
Dim ComandoSql As String = ""
x = 0
'''pasa las fotos de tercer grado a exalumnos
Do While x < 6
Dim cadenasql As String = ("SELECT * FROM alumnos WHERE grado = '" + grad(x) + "'")
Dim adaptador As New OleDbDataAdapter(cadenasql, conexion)
adaptador.Fill(Ds1)
For Each row As DataRow In Ds1.Tables(0).Rows
foto = row.Item("foto").ToString()
On Error Resume Next
Dim Origen As String = "\\subdirector\est22\fotos\" + foto
Dim Destino As String = "\\subdirector\est22\exalumnos\" + cicloesc + "\" + foto
FileIO.FileSystem.MoveFile(Origen, Destino)
Next
Ds1.Clear()
x += 1
Loop
x = 0
''' borra de tabla alumnos a terceros grados y da de alta en bd exalumnos ''' ESTA PARTE DE CODIGO ES LA QUE NO FUNCIONA
Do While x < 6
Dim cadenasql As String = ("SELECT nombre,grado,curp,fechanac,lugardenac,sexo,nacionalidad,padre,madre,domicilio,lugar,telefono,tecnologia,adeudos,PromGral,telefono2 FROM alumnos WHERE grado = '" + grad(x) + "'")
Dim adaptador2 As OleDbDataAdapter = New OleDbDataAdapter(cadenasql, conexion)
adaptador2.Fill(Ds)
ComandoSql = "INSERT INTO exalumnos (nombre,grupo,curp,fechanac,lugardenac,padre,domicilio,lugar,tel,sexo,nacionalidad,tecnologia,PromGral,adeudos,ciclo,madre,tel2) VALUES (@param1, @param2, @param3,@param4, @param5, @param6,@param7, @param8, @param9,@param10, @para11, @param12,@param13, @param14, @param15, @param16, @param17)"
MiComando.Connection = conexion2
MiComando.CommandType = CommandType.Text
MiComando.CommandText = ComandoSql
For I As Integer = 0 To Ds.Rows.Count - 1
MiComando.Parameters.AddWithValue("@param1", Ds.Rows(I).Item(0))
MiComando.Parameters.AddWithValue("@param2", Ds.Rows(I).Item(1))
MiComando.Parameters.AddWithValue("@param3", Ds.Rows(I).Item(2))
MiComando.Parameters.AddWithValue("@param4", Ds.Rows(I).Item(3))
MiComando.Parameters.AddWithValue("@param5", Ds.Rows(I).Item(4))
MiComando.Parameters.AddWithValue("@param6", Ds.Rows(I).Item(5))
MiComando.Parameters.AddWithValue("@param7", Ds.Rows(I).Item(6))
MiComando.Parameters.AddWithValue("@param8", Ds.Rows(I).Item(8))
MiComando.Parameters.AddWithValue("@param9", Ds.Rows(I).Item(9))
MiComando.Parameters.AddWithValue("@param10", Ds.Rows(I).Item(10))
MiComando.Parameters.AddWithValue("@param11", Ds.Rows(I).Item(11))
MiComando.Parameters.AddWithValue("@param12", Ds.Rows(I).Item(12))
MiComando.Parameters.AddWithValue("@param13", Ds.Rows(I).Item(15))
MiComando.Parameters.AddWithValue("@param14", Ds.Rows(I).Item(21))
MiComando.Parameters.AddWithValue("@param15", cicloesc)
MiComando.Parameters.AddWithValue("@param16", Ds.Rows(I).Item(27))
MiComando.Parameters.AddWithValue("@param17", Ds.Rows(I).Item(28))
MiComando.ExecuteNonQuery()
MiComando.Parameters.Clear()
Next
x += 1
Loop
MsgBox("Terminé de Indexar registros...")
End Sub