BUSCAR A BASE DADOS PARA COMBOBOX

 Tópico anterior Próximo tópico Novo tópico

BUSCAR A BASE DADOS PARA COMBOBOX

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#493801 - 13/05/2020 13:03:57

RODRIDRAGAO
LISBOA
Cadast. em:Setembro/2019


Última edição em 13/05/2020 13:05:34 por RODRIDRAGAO

Eu instalei no meu portátil do trabalho, e nas combobox não está buscar a base dados que eu criei, mas no pc que estou a trabalhar o meu projecto está a trabalhar tudo bem, o quê que falta no meu código para correr bem, obrigados.




Private Sub FrmConsultas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        BotãoAtivado()
        Textodesativado()
        CarregarComboboxFuncionaria()
        
    End Sub

    Private Sub CarregarComboboxFuncionaria()

        Using con As OleDbConnection = GetConnectionCbo()
            Try

                con.Open()
                Dim sql As String = "SELECT * FROM TblFuncionários"
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Dim dt As DataTable = New DataTable

                da.Fill(dt)
                CbbFuncionário.ValueMember = "IDFuncionario"
                CbbFuncionário.DisplayMember = "Funcionario"

                CbbFuncionário.DataSource = dt
            Catch ex As Exception
            Finally



            End Try
        End Using
    End Sub


Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Module ModGeral

    Public sqL As String
    Public cmd As OleDbCommand
    Public dr As OleDbDataReader

    Public conn As OleDbConnection
    Public connStr As String = System.Environment.CurrentDirectory.ToString & "\BDHotelaria.accdb"

    Public Sub ConnDB()
        Try

            conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & connStr & "")
            conn.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Public Function GetConnectionCbo() As OleDbConnection
        Dim sqL As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\arman\Desktop\Gestão de Clientes Hotelaria\Gestão de Clientes Hotelaria\bin\Debug\BDHotelaria.accdb"
        Return New OleDbConnection(sqL)
    End Function


End Module



#493802 - 13/05/2020 13:54:37

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Sua connectionstring, tem um caminho fixo para o arquivo de dados. Muito provavelmente isso pode ser a causa.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#493803 - 13/05/2020 14:00:26

RODRIDRAGAO
LISBOA
Cadast. em:Setembro/2019


Como posso fazer?



#493804 - 13/05/2020 14:38:52

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Este é o caminho que está usando: C:\Users\arman\Desktop\Gestão de Clientes Hotelaria\Gestão de Clientes Hotelaria\bin\Debug\BDHotelaria.accdb

Na máquina em que este arquivo estiver nesse exato caminho vai funcionar normal, qualquer diferença e já era, não funciona mesmo.
O que você poderia fazer é colocar esse arquivo no app.config e buscar esse caminho na hora de fazer a string de conexão.

No arquivo app.config:

<configuration>
<appSettings>                              
<add key="connectionString" value="C:\Users\arman\Desktop\Gestão de Clientes Hotelaria\Gestão de Clientes Hotelaria\bin\Debug\BDHotelaria.accdb"/>
<appSettings>
</configuration>


E para buscar:

Dim cn As String = ConfigurationManager.AppSettings("connectionString")
Dim sqL As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & cn
Return New OleDbConnection(sqL)



_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#493807 - 13/05/2020 16:36:48

RODRIDRAGAO
LISBOA
Cadast. em:Setembro/2019


Boa noite KERPLUNK,
tive a tentar fazer isso, mas dá-me erro, podes-me fazer essa alteração por TeamViewer, se poderes era melhor, obrigado.



#493810 - 13/05/2020 17:05:23

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Citação:
:
Boa noite KERPLUNK,
tive a tentar fazer isso, mas dá-me erro, podes-me fazer essa alteração por TeamViewer, se poderes era melhor, obrigado.

Que erro que dá?

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#493814 - 13/05/2020 17:27:04

RODRIDRAGAO
LISBOA
Cadast. em:Setembro/2019


eu tenho assim,

configuration>
    <configSections>
    </configSections>
    <connectionStrings>
        <add name="Gestão_de_Clientes_Hotelaria.My.MySettings.BDHotelariaConnectionString"
            connectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\BDHotelaria.accdb"
            providerName="System.Data.OleDb" />
    </connectionStrings>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
    </startup>
</configuration>



#493815 - 13/05/2020 17:29:38

RODRIDRAGAO
LISBOA
Cadast. em:Setembro/2019


 Anexos estao visíveis somente para usuários registrados

coloquei assim,




#493816 - 13/05/2020 17:30:15

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Então seria:

Return System.Configuration.ConfigurationManager.ConnectionStrings("Gestão_de_Clientes_Hotelaria.My.MySettings.BDHotelariaConnectionString").ConnectionString


Só mude esse nome para algo mais simples.

E sugiro que estude como funciona essa parte de buscar dados do App.config, ficar dependendo de "exemplos" não vai te levar à lugar algum.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#493817 - 13/05/2020 17:37:51

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Está faltando fechar o nó "appSettings".
</appSettings> logo abaixo da sua connectionstring

Isso é entendimento de estrutura XML, algo que também deveria estudar. O que você está fazendo na base de tentativa e erro, é pura perda de tempo e só vai te atrapalhar.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#493818 - 13/05/2020 17:52:06

RODRIDRAGAO
LISBOA
Cadast. em:Setembro/2019


 Anexos estao visíveis somente para usuários registrados

continua com erro



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário