请大虾帮忙!!
Dim myConnection As New SqlClient.SqlConnection()
myConnection.ConnectionString = "Server=localhost;database=Experts;User ID=sa;Password= "
Dim myCommand As New SqlClient.SqlCommand()
myCommand.Connection = myConnection
myCommand.CommandText = "Select * from Expert "
myCommand.CommandType = CommandType.Text
Dim myDA As New SqlClient.SqlDataAdapter()
myDA.SelectCommand = myCommand
Dim myDS As New DataSet1()
myDA.Fill(myDS, "p ")
MessageBox.Show(myDS.Tables( "p ").Rows.Count)
Dim oRpt As New CrystalReport1()
oRpt.SetDataSource(myDS.Tables( "p "))
CrystalReportViewer1.ReportSource = oRpt
请问 我在报表中怎么没见到我想要的数据??是不是什么地方错了,对不起 我是新手,请大虾详细讲解啊
[解决办法]
myConnection.ConnectionString = "Server=localhost;database=Experts;User ID=sa;Password= "
这一句后面加入
myConnection.Open()
试试,可以是连接没打开的原因。当然最好在
End Sub
前加上
myConnection.Close()