CRIAR UM DATASET
Olá, estou tentando criar um dataset e usar os dados do SQL Server...
Alguém poderia me ajudar a analisar o código ??
Private Sub Crystal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Crystal.Load
Dim cmd As New SqlConnection
Dim ds As New DataSet1
cmd.ConnectionString = [Ô]Data Source=FELIPE-PC\SQL;Initial Catalog=CadastroGVT;User Id=sa;Password=******[Ô]
cmd.Open()
Dim query As String = String.Empty
query &= [Ô]SELECT * FROM tbPESS[Ô]
Dim cd As New SqlCommand
cd.Connection = cmd
cd.CommandText = query
cd.CommandType = CommandType.Text
Try
cd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show([Ô]Houve um erro. Tente novamente.[Ô])
End Try
Dim da As New SqlDataAdapter
da.Fill(ds, [Ô]DataTable1[Ô])
Dim rpt As New relatorio
rpt.SetDataSource(ds)
Dim oPageMargins = rpt.PrintOptions.PageMargins
oPageMargins.bottomMargin = 250
oPageMargins.leftMargin = 250
oPageMargins.rightMargin = 250
oPageMargins.topMargin = 250
Dim lobjrelatorioimpressao As New relatorioImpressao
FrmBase.Controls.Add(lobjrelatorioimpressao)
lobjrelatorioimpressao.Crystal.Zoom(100)
lobjrelatorioimpressao.Crystal.ReportSource = rpt
lobjrelatorioimpressao.Show()
End Sub
Ele manda o seguinte erro: The selectcommand property has not been initialized before calling [ô]Fill[Ô]
Alguém poderia me ajudar a analisar o código ??
Private Sub Crystal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Crystal.Load
Dim cmd As New SqlConnection
Dim ds As New DataSet1
cmd.ConnectionString = [Ô]Data Source=FELIPE-PC\SQL;Initial Catalog=CadastroGVT;User Id=sa;Password=******[Ô]
cmd.Open()
Dim query As String = String.Empty
query &= [Ô]SELECT * FROM tbPESS[Ô]
Dim cd As New SqlCommand
cd.Connection = cmd
cd.CommandText = query
cd.CommandType = CommandType.Text
Try
cd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show([Ô]Houve um erro. Tente novamente.[Ô])
End Try
Dim da As New SqlDataAdapter
da.Fill(ds, [Ô]DataTable1[Ô])
Dim rpt As New relatorio
rpt.SetDataSource(ds)
Dim oPageMargins = rpt.PrintOptions.PageMargins
oPageMargins.bottomMargin = 250
oPageMargins.leftMargin = 250
oPageMargins.rightMargin = 250
oPageMargins.topMargin = 250
Dim lobjrelatorioimpressao As New relatorioImpressao
FrmBase.Controls.Add(lobjrelatorioimpressao)
lobjrelatorioimpressao.Crystal.Zoom(100)
lobjrelatorioimpressao.Crystal.ReportSource = rpt
lobjrelatorioimpressao.Show()
End Sub
Ele manda o seguinte erro: The selectcommand property has not been initialized before calling [ô]Fill[Ô]
Experimente alterar a linha...
[txt-color=#e80000]Dim da As New SqlDataAdapter[/txt-color]
...por algo semelhante a isso:
[txt-color=#0000f0]Dim da As New SqlDataAdapter([Ô]Seu Select Aqui[Ô], [Ô]Sua ConnectionString Aqui[Ô])[/txt-color]
[txt-color=#e80000]Dim da As New SqlDataAdapter[/txt-color]
...por algo semelhante a isso:
[txt-color=#0000f0]Dim da As New SqlDataAdapter([Ô]Seu Select Aqui[Ô], [Ô]Sua ConnectionString Aqui[Ô])[/txt-color]
Fiz isso e agora o erro é esse:
Could not load file or assembly [ô]file:///C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll[ô] or one of its dependencies. O sistema não pode encontrar o arquivo especificado.
Could not load file or assembly [ô]file:///C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll[ô] or one of its dependencies. O sistema não pode encontrar o arquivo especificado.
Tópico encerrado , respostas não são mais permitidas