1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Base de dados em acess e vb 2008?!

Discussão em 'Programação' iniciada por Ze21038, 20 de Abril de 2009. (Respostas: 5; Visualizações: 1421)

  1. Ze21038

    Ze21038 Power Member

    boas,

    estou a ter algumas dificuldades a fazer a ligação à base de dados no 2008, no visual basic 6, conseguia ligar, mas este esta um pouco diferente algem me pode enviar o codigo da ligação??

    cumprimentos e obrigado,
    ze21038
     
  2. Jekkaman

    Jekkaman Power Member

    O que é que já tenta-te?
    Mostra o código para o pessoal ajudar.
     
  3. Ze21038

    Ze21038 Power Member

    ja tentei converter do vb6 para vb2008 mas ficou uma confusão, e no vb.net nunca trabalhei e é complicado habituar-me!

    posso ligar de qualqer maneira se poderem arranjar exemplos de ligação de varias formas era bom, como odbc, ado etc..

    cumprimentos,
    ze21038
     
  4. iznougud

    iznougud I quit My Job for Folding

    Código:
    'Variaveis Globais
    
    Public strLigacao As String
    Public conn As OleDbConnection
    
    
    Private Sub StartConn(path as String) 
    
    	strLigacao = "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=alfa; Data Source=" & path & "\MorseWat.mdb"
    
    	conn = New OleDbConnection(strLigacao)
    
    End Sub
    
    
    Private Function get_table() as Datatable
    
    	Dim cmd As String
    	cmd = "SELECT DISTINCT([Nome do Circuito]) from Circuitos "
    
    	Try
    
    		Dim adapter As New OleDbDataAdapter(cmd, conn)
    
    		Dim dt As New DataTable
    
    		adapter.Fill(dt)
    
    		Return dt
    
    	Catch ex As Exception
    
    		Debug.WriteLine("Get_rondas_existentes: " & ex.Message)
    		Return Nothing
    
    	End Try
    
    End Function
    
    Private Function exec(ByVal strcmd As String) As Boolean
    
    	Try
    		conn.Open()
    	Catch ex As Exception
    		Debug.WriteLine("Erro a abrir a base de dados: " & ex.Message)
    		Return False
    	End Try
    
    	Dim cmd As New OleDbCommand
    
    	cmd.Connection = conn
    	cmd.CommandText = strcmd
    	Try
    		cmd.ExecuteNonQuery()
    		conn.Close()
    	Catch ex As Exception
    
    		Debug.WriteLine("Não foi possível executar o comando." & vbCrLf & cmd.CommandText & vbCrLf & ex.Message)
    		conn.Close()
    		Return False
    	End Try
    
    	Return True
    End Function
    
     
  5. jpaulino

    jpaulino Power Member

  6. Ze21038

    Ze21038 Power Member

    obrigado pessoal resolveu o meu problema :)!

    cumprimentos e obrigado,
    ze21038
     

Partilhar esta Página