Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbType
Public Class frmConsultaAnoFactoring
Private dv As DataView
Private cm As CurrencyManager
Dim ConnString As String = My.Settings.connString
Sub Pesquisa()
Dim Sql As String = "SELECT * FROM BDFACTORING WHERE ANO=@ANO ORDER BY Factoring"
Dim conn As New OleDbConnection(ConnString)
Dim cmd As New OleDbCommand(Sql, conn)
Dim Ds As New DataSet
Try
conn.Open()
cmd.Parameters.Add("ANO", VarChar).Value = cmbAno.Text
Dim Da As New OleDbDataAdapter(cmd)
Ds.EnforceConstraints = False
Da.Fill(Ds)
Catch EX As OleDbException
Throw New Exception("Erro BD : " + EX.Message)
Catch ex As Exception
MsgBox(ex.Message)
Finally
conn.Close()
conn.Dispose()
cmd.Dispose()
End Try
DataGridView1.DataSource = Ds
DataGridView1.DataMember = Ds.Tables(0).ToString
End Sub
Private Sub btnOk2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk2.Click
If cmbAno.SelectedIndex = -1 Then
Try
Catch ex As OleDbException
Throw New Exception("Erro Banco de Dados : " + ex.Message)
Catch ex As Exception
Throw New Exception("Erro Run Time : " + ex.Message)
End Try
Exit Sub
End If
If cmbAno.Text = "" Then
MsgBox("Dados não encontrados !", MsgBoxStyle.Information, Me.Text)
End If
Call Pesquisa()
End Sub
End Class
Pergunta
carolprogramadora
Olá pessoal, porque está dando esse erro?
minha codificação que ele acusa que está errado:
Imports System.Data.OleDb Imports System.Data.OleDb.OleDbType Public Class frmConsultaAnoFactoring Private dv As DataView Private cm As CurrencyManager Dim ConnString As String = My.Settings.connString Sub Pesquisa() Dim Sql As String = "SELECT * FROM BDFACTORING WHERE ANO=@ANO ORDER BY Factoring" Dim conn As New OleDbConnection(ConnString) Dim cmd As New OleDbCommand(Sql, conn) Dim Ds As New DataSet Try conn.Open() cmd.Parameters.Add("ANO", VarChar).Value = cmbAno.Text Dim Da As New OleDbDataAdapter(cmd) Ds.EnforceConstraints = False Da.Fill(Ds) Catch EX As OleDbException Throw New Exception("Erro BD : " + EX.Message) Catch ex As Exception MsgBox(ex.Message) Finally conn.Close() conn.Dispose() cmd.Dispose() End Try DataGridView1.DataSource = Ds DataGridView1.DataMember = Ds.Tables(0).ToString End Sub Private Sub btnOk2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk2.Click If cmbAno.SelectedIndex = -1 Then Try Catch ex As OleDbException Throw New Exception("Erro Banco de Dados : " + ex.Message) Catch ex As Exception Throw New Exception("Erro Run Time : " + ex.Message) End Try Exit Sub End If If cmbAno.Text = "" Then MsgBox("Dados não encontrados !", MsgBoxStyle.Information, Me.Text) End If Call Pesquisa() End Sub End ClassSe alguém puder me ajudar agradeço por demais!!!
Saudações a todos!!!
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
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.