Ir para conteúdo
Fórum Script Brasil
  • 0

Datagridview


mestre fyoda

Pergunta

Posts Recomendados

  • 0

No module :

Module Module1

Public MySQLConn As MySql.Data.MySqlClient.MySqlConnection

Public MySQLDrr As MySql.Data.MySqlClient.MySqlDataReader

Public user As String

Public Function InicializaConexão() As Boolean

MySQLConn = New MySql.Data.MySqlClient.MySqlConnection("Server=localhost;Database=v2interativa;Uid=root;Pwd=rafael")

Try

MySQLConn.Open()

Return True

Catch erro As Exception

MessageBox.Show("Ocorreu um erro ao inicializar a conexão: " & erro.ToString())

Return False

End Try

End Function

Public Function ExecutarSQL(ByVal query As String) As MySql.Data.MySqlClient.MySqlDataReader

Dim MySQLCmd As New MySql.Data.MySqlClient.MySqlCommand(query, MySQLConn)

Return MySQLCmd.ExecuteReader()

End Function

Public Function Datagrid(ByVal datagridview As Control) As System.Windows.Forms.Control

Dim DataView As New MySql.Data.MySqlClient.MySqlDataAdapter("select NOMCAD,CPFCAD,RGCAD from AQCAD", MySQLConn)

If InicializaConexão() Then

Dim DS As DataSet = New DataSet

DataView.Fill(DS)

datagridview.DataSource = DS.Tables(0)

datagridview.Columns(0).HeaderText = "Nome do Cliente"

datagridview.Columns(1).HeaderText = "CPF"

datagridview.Columns(2).HeaderText = "RG"

End If

End Function

e no form to chamnado assim :

Datagrid(dgr_datagridview)

está dando erro de :

Columns e Datasource is not a member of 'System.Windows.FormControl'.

Link para o comentário
Compartilhar em outros sites

  • 0
deu erro :

que já tem uma Datareader aberta com esta conexao , eu preciso fechar primeiro.

DataView.Fill(DS)

a minha outra codificao não vai funcionar se eu fechar !

Faça um de cada vez. Mas, pra quê você precisa de um DataReader e de um DataSet? Geralmente, ou se usa um OU outro.

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

  • 0

isso que eu estou achando estranho porque não estou usando o datarader!

Public Function Datagrid(ByVal datagridview As DataGridView)
        Dim DataView As New MySql.Data.MySqlClient.MySqlDataAdapter("select NOMCAD,CPFCAD,RGCAD from AQCAD", MySQLConn)
        Dim DS As DataSet = New DataSet
        DataView.Fill(DS)
        datagridview.DataSource = DS.Tables(0)
        datagridview.Columns(0).HeaderText = "Nome do Cliente"
        datagridview.Columns(1).HeaderText = "CPF"
        datagridview.Columns(2).HeaderText = "RG"
        Return datagridview
    End Function

como você pode ver estou usando um adapter!

Editado por mestre fyoda
Link para o comentário
Compartilhar em outros sites

  • 0
isso que eu estou achando estranho porque não estou usando o datarader!

Public Function Datagrid(ByVal datagridview As DataGridView)
        Dim DataView As New MySql.Data.MySqlClient.MySqlDataAdapter("select NOMCAD,CPFCAD,RGCAD from AQCAD", MySQLConn)
        Dim DS As DataSet = New DataSet
        DataView.Fill(DS)
        datagridview.DataSource = DS.Tables(0)
        datagridview.Columns(0).HeaderText = "Nome do Cliente"
        datagridview.Columns(1).HeaderText = "CPF"
        datagridview.Columns(2).HeaderText = "RG"
        Return datagridview
    End Function
como você pode ver estou usando um adapter!
E antes de chamar essa função? Aliás, porque você não cria uma rotina (Sub) ao invés de uma função (Function) e passa o DataGridView por referência (ByRef)?
Public Sub Datagrid(ByRef dgv As DataGridView)
...
End Sub

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...