/*
Boa tarde,
Estou tendo erros em componente VB.Net, o qual em C# estava funcionando perfeitamente, vejam o cód.:
Imports System
Imports System.Data
Imports System.Data.OleDb
Namespace conexao_vb
Public class Listar
Public Sub Mostrar(strCaminho as string,strSQL as string,strTabela as string) as DataSet
Dim objConexao as OleDbConnection
OleDbConnection = new OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & strCaminho)
Dim objDataAdapter as OleDbDataAdapter
OleDbDataAdapter = new OleDbDataAdapter(strSQL,objConexao)
Dim objDataSet as DataSet = new DataSet()
objDataAdapter.Fill(objDataSet,strTabela)
Mostrar = objDataSet
End sub
End class
End Namespace
Vejam os erros ao compilar o componente:
D:VilmarTestes_Apostilasinconexao_vb.vb(7) : error BC30205: Fim de instruçã
o esperado.
Public Sub Mostrar(strCaminho as string,strSQL as string,strTabela as st
ring) as DataSet
~~~~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(8) : error BC30002: Tipo 'OleDbConn
ection' não está definido.
Dim objConexao as OleDbConnection
~~~~~~~~~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(9) : error BC30451: Nome 'OleDbConn
ection' não está declarado.
OleDbConnection = new OleDbConnection("Provider=Microsoft.JET.OLEDB.
4.0; Data Source=" & strCaminho)
~~~~~~~~~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(9) : error BC30002: Tipo 'OleDbConn
ection' não está definido.
OleDbConnection = new OleDbConnection("Provider=Microsoft.JET.OLEDB.
4.0; Data Source=" & strCaminho)
~~~~~~~~~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(11) : error BC30002: Tipo 'OleDbDat
aAdapter' não está definido.
Dim objDataAdapter as OleDbDataAdapter
~~~~~~~~~~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(12) : error BC30451: Nome 'OleDbDat
aAdapter' não está declarado.
OleDbDataAdapter = new OleDbDataAdapter(strSQL,objConexao)
~~~~~~~~~~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(12) : error BC30002: Tipo 'OleDbDat
aAdapter' não está definido.
OleDbDataAdapter = new OleDbDataAdapter(strSQL,objConexao)
~~~~~~~~~~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(14) : error BC30002: Tipo 'DataSet'
não está definido.
Dim objDataSet as DataSet = new DataSet()
~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(16) : error BC30455: Argumento não
foi especificado para parâmetro 'strCaminho' de 'Public Sub Mostrar(strCaminho A
s String, strSQL As String, strTabela As String)'.
Mostrar = objDataSet
~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(16) : error BC30455: Argumento não
foi especificado para parâmetro 'strSQL' de 'Public Sub Mostrar(strCaminho As St
ring, strSQL As String, strTabela As String)'.
Mostrar = objDataSet
~~~~~~~
D:VilmarTestes_Apostilasinconexao_vb.vb(16) : error BC30455: Argumento não
foi especificado para parâmetro 'strTabela' de 'Public Sub Mostrar(strCaminho As
String, strSQL As String, strTabela As String)'.
Mostrar = objDataSet
~~~~~~~
Grato,
*/
