发表于 2009-1-5 19:48
| 
vb.net 姘存櫠鎶ヨ〃
鍙戝竷: 2008-6-26 22:17 | 浣滆: admin | 鏌ョ湅: 356娆
鍦╒B.NET涓紝浣跨敤Crystal Report鍒朵綔鎶ヨ〃鏃讹紝鎮ㄥ彲浠ュ姩鎬佹寚瀹氭暟鎹簮鍜屽強鏃舵洿鏂版姤琛ㄥ唴瀹广
鎮ㄥ彲浠ラ氳繃DataSet鐨勬柟寮忔潵璁块棶鍚庡彴鏁版嵁搴擄紝杩欐牱鎮ㄩ渶瑕佹墜鍔ㄧ紪鐮佹潵鎻愬彇鏁版嵁锛屽～鍏匘ataSet锛屽苟浼犻掑埌鎶ヨ〃鏂囦欢涓傚湪杩欓噷锛屾偍鍙互鍔ㄦ佹寚瀹氭姤琛ㄦ暟鎹簮銆備笅闈㈡彁渚涗竴浜涘熀鏈殑姝ラ锛屽叧浜庢洿璇︾粏鐨勪俊鎭紝璇峰弬鑰冧笅闈㈢殑閾炬帴锛
1锛嶴olution Explorer/Add/Add New Item鈥/DataSet锛屾寜鐓ф彁绀哄缓绔婦ataSet;
2锛嶴olution Explorer/Add/Add New Item鈥/Crystal Report锛屽湪寤虹珛鏁版嵁搴撻摼鎺ユ椂(Database Expert绐楀彛)锛岃閫夋嫨
濡備笅鎻愪緵涓娈电ず渚嬩唬鐮佷緵鎮ㄥ弬鑰(鐢ㄦ潵寤虹珛鏁版嵁搴撻摼鎺ワ紝濉厖DataSet锛屽苟缁戝畾鍒版姤琛ㄦ枃浠朵腑)锛
Private Sub BindReport()
Dim myConnection As New SqlClient.SqlConnection()
myConnection.ConnectionString = "Server=localhost;database=pubs;uid=sa;pwd=sa"
Dim myCommand As New SqlClient.SqlCommand()
myCommand.Connection = myConnection
鈥樻偍鍙互鍦ㄥ涓嬬殑SQL璇彞涓姩鎬佹坊鍔犳潯浠讹紝鍖呮嫭Where瀛愬彞
myCommand.CommandText = "Select * from Stores Where 鈥︹"
myCommand.CommandType = CommandType.Text
Dim myDA As New SqlClient.SqlDataAdapter()
myDA.SelectCommand = myCommand
Dim myDS As New Dataset1()
myDA.Fill(myDS, "Stores")
Dim oRpt As New CrystalReport1()
oRpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = oRpt
End Sub
璇锋牴鎹偍绯荤粺鐨勫疄闄呮儏鍐碉紝灏嗘彁渚涚殑浠ｇ爜杩涜淇敼銆傚笇鏈涗互涓婄瓟澶嶇粰鎮ㄥ甫鏉ュ府鍔┿
鍙﹀锛孷isual Studio.NET涔熸彁渚涗簡涓浜汣rystal Report鐨勭畝鍗曚緥瀛怺 C:\Program Files\Microsoft Visual Studio .NET\Crystal Reports\Samples ]锛屽彲渚涙偍鍙傝冦
