não aparecem os dados inseridos na DataGridView

[ninjanPT]

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim cod_lab, cod_responsavel As Integer
        Dim sala, bloco As String
        cod_responsavel = ComboBox1.SelectedItem()
        cod_lab = Label2.Text
        sala = InputBox("Insira a sala pretendida")
        bloco = InputBox("Insira o bloco pretendido")

        'LaboratorioTableAdapter.Adapter.InsertCommand.CommandText = "INSERT INTO laboratorio (cod_lab,sala,bloco,cod_responsavel) VALUES ('" & cod_lab & "','" & sala & "','" & bloco & "','" & cod_responsavel & "')"


        ligacao.Open()

        Dim sql = "INSERT INTO laboratorio (cod_lab,sala,bloco,cod_responsavel) VALUES ('" & cod_lab & "','" & sala & "','" & bloco & "','" & cod_responsavel & "')"

        'Dim sql = "INSERT INTO Treinador (cod_lab,sala,bloco,cod_responsavel) VALUES (@cod_lab,@sala,@bloco,@cod_responsavel)"

        Dim cmd As SqlCommand = ligacao.CreateCommand
        'cmd.Parameters.AddWithValue("@cod_lab", TextBox1.Text)
        'cmd.Parameters.AddWithValue("@sala", TextBox2.Text)
        'cmd.Parameters.AddWithValue("@bloco", TextBox3.Text)
        'cmd.Parameters.AddWithValue("@cod_responsavel", TextBox4.Text)

        cmd.CommandText = sql

        cmd.ExecuteNonQuery()

        MsgBox("Registo Efectuado Com Sucesso", vbInformation)
        ligacao.Close()

        form_inserçao_lab.LaboratorioTableAdapter.Adapter.SelectCommand.CommandText = ("Select * from laboratorio")
        form_inserçao_lab.LaboratorioTableAdapter.Fill(form_inserçao_lab.LaboratorioDS.laboratorio)

        Me.Close()
    End Sub

[Blackvelvet]

na datagrid ou na tabela????

não vejo no teu codigo o caminho para a bd.

Exemplo:

Dim myConnectionString As String = _
         "Data Source=.\SQLEXPRESS; Initial Catalog=(nome tabela); Integrated Security=SSPI;"

[ninjanPT]

está num módulo:

Module Module1
    Public strcon As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\admin\Desktop\Trababalho vb\PAP\PAP\gestor de laboratorios\gestor de laboratorios\gestor.mdf;Integrated Security=True;User Instance=True"
    Public ligacao As New SqlClient.SqlConnection(strcon)
End Module

[Caça]

Não é aconselhável utilizar dois métodos diferentes para aceder à base de dados na mesma aplicação, o mais certo é não estares a trabalhar com a mesma base de dados.

[ninjanPT]

Mas eu estou, é a unica que tenho neste momento até.

E já explorei várias alternativas, simplesmente não funciona

[acao]

boas

penso que no insert , no cod_lab e no cod_responsabel tens aspas simples a mais,

Vê se é isso.

cumps

acao

[ninjanPT]

boas

penso que no insert , no cod_lab e no cod_responsabel tens aspas simples a mais,

Vê se é isso.

cumps

acao

Parecem-me bem, mas o problema duvido que venha daí, porque ele insere bem os dados na base de dados, só não aparecem na DGV por nada deste mundo

[acao]

eu nunca usei esses comando para a dgv, mas tu fechaste antes a ligação à base de dados, não será por isso!

não estarás a fechar a ligação ao select?