ACESSO A BANCO DE DADOS VB 2010

ESMONTEIRO 29/08/2012 21:47:26
#408903

Boa Noite Pessoal!

Trabalhei muito tempo atrás com VB6 mas estou com muitas dificuldades para trabalha com o vb 2010 e banco de dados. Estou com problema para efetuar uma pesquisa em uma tabela onde a pesquisa é feita a partir de um combox. Detalhe que esse campo ID da tabela é integer. Segue meu código! Se puderem me ajudar eu agradeço! Outro problema nesse código é procurar por uma data inicial e final


Um grande abraço

[txt-color=#0000f0] Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim Sql As String
Dim comando As New OleDb.OleDbCommand [ô]edu



dbProvider = [Ô]PROVIDER=Microsoft.Jet.OLEDB.4.0;[Ô]
dbSource = [Ô]Data Source = C:\Users\hector\Documents\funcionario.mdb[Ô]

con.ConnectionString = dbProvider & dbSource

con.Open()


Dim param1 As New OleDb.OleDbParameter([Ô]@id[Ô], OleDb.OleDbType.Integer)
param1.Value = Convert.ToInt32(HMB_IDComboBox.Text)
comando.Parameters.Add(param1)


Sql = [Ô]SELECT HMB_ID,Freq_data,dia_trabalhado,func_trabalhou,atraso_saida FROM frequencia Where HMB_ID=@id And Freq_Data between #01/08/2012# and #31/08/2012#[Ô]



[ô]edu
da = New OleDb.OleDbDataAdapter(Sql, con)
[ô]edu
ds = New DataSet
da.Fill(ds, [Ô]dafrequencia[Ô])
[ô]edu
Me.FrequenciaDataGridView.DataSource = ds.Tables([Ô]dafrequencia[Ô])




MsgBox([Ô]Database is now open[Ô])

con.Close()

MsgBox([Ô]Database is now Closed[Ô])


End Sub


End Class][/txt-color]