Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

DevilRocks92

Update

Mensagens Recomendadas

DevilRocks92

Está alguma coisa errada?

Imports MySql.Data.MySqlClient
Public Class horarios_edit

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim server As String = "Server=localhost;Database=pap.pguedes;Uid=root;Pwd=;"
        Dim codcurso As Integer
        Dim codprof As Integer
        Dim codhora As Integer = gest_horarios.tabela_horarios.CurrentRow.Cells(0).Value
        Dim sql_up As String
        Dim con_up As New MySqlConnection
        con_up.ConnectionString = server
        con_up.Open()

        Dim query_prf As String = "SELECT nome_prof FROM profs WHERE cod_prof = " & codprof

        Dim cmd As New MySqlCommand(query_prf, con_up)
        Dim dr As MySqlDataReader
        dr = cmd.ExecuteReader

        dr.Read()
        codprof = dr("cod_prof")
        codcurso = dr("cod_curso")
        con_up.Close()

        con_up.Open()

        'Editar Alunos

        sql_up = "UPDATE horarios SET hora_inicial ='" + hora_inicial.Text + "', hora_final= '" + hora_final.Text + "', dia_semana = '" + dia_semana.Text + "', cod_prof = " + codprof + ",cod_curso = " + codcurso + " WHERE cod_horario = " & codhora

        Dim i As Integer = cmd.ExecuteNonQuery()

        If (i > 0) Then
            MsgBox("Informção editada com sucesso.")
            Gestão_Alunos.Show()
            Me.Close()
        Else
            MsgBox("Erro: o registo não foi editado.")
        End If
        con_up.Close()
    End Sub

    Private Sub horarios_edit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim server As String = "Server=localhost;Database=pap.pguedes;Uid=root;Pwd=;"
        Dim con As New MySqlConnection
        Dim info_table As Integer = gest_horarios.tabela_horarios.CurrentRow.Cells(0).Value
        Dim sql As String = "SELECT * FROM horarios WHERE cod_horario=" & info_table
        Dim cmd As New MySqlCommand(sql, con)
        Dim dr As MySqlDataReader
        con.ConnectionString = server
        Dim codprof As Integer

        con.Open()
        dr = cmd.ExecuteReader
        dr.Read()

        'INFO do horario nas textbox
        hora_inicial.Text = dr("hora_inicial")
        hora_final.Text = dr("hora_final")
        dia_semana.Text = dr("dia_semana")
        codprof = dr("cod_prof")
        con.Close()

        'Cursos
        Dim dr2 As MySqlDataReader
        Dim strsql As String = "SELECT nome_curso FROM cursos"
        Dim i As Integer = 0

        Dim cmd2 As New MySqlCommand(strsql, con)

        con.ConnectionString = "Server=localhost;Database=pap.pguedes;Uid=root;Pwd=;"
        con.Open()

        dr2 = cmd.ExecuteReader
        con.Close()

        'Profs
        con.Open()
        Dim dr1 As MySqlDataReader
        Dim sel_prof As String = "SELECT nome_prof FROM profs"
        Dim p As Integer = 0

        Dim cmd1 As New MySqlCommand(sel_prof, con)

        dr1 = cmd1.ExecuteReader

        prof.Items.Clear()
        Do While dr1.Read
            prof.Items.Add(dr1("nome_prof"))
        Loop
        con.Close()

        sel_prof = "SELECT nome_prof FROM profs WHERE cod_prof=" & codprof
        Dim comando As New MySqlCommand(sel_prof, con)
        Dim dr_prof As MySqlDataReader

        con.Open()
        dr_prof = comando.ExecuteReader
        dr_prof.Read()
        prof.Text = dr_prof("nome_prof")
        con.Close()
    End Sub
End Class

Está-me a dar erro:

Object reference not set to an instance of an object.

 Dim codhora As Integer = gest_horarios.tabela_horarios.CurrentRow.Cells(0).Value

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.