在使用BETA 2版本的情况下,类SqlClient中好象不存在SqlDataCommand的,你呀,做如下的修改应该可以成功: Dim myconnection As sqlconnection=New sqlconnection("server=localhost;uid=sa;pwd=;database=aspx") Dim mycommand1 As sqldatasetcommand=New sqldatasetcommand("select* from bbs_sort",myconnection) Dim mycommand2 As sqldatasetcommand=New sqldatasetcommand("select * from bbs_root",myconnection) Dim ds As New dataset mycommand1.filldataset(ds,"bbs_sort") mycommand2.filldataset(ds,"bbs_root")
不好意思,ENTER键敲的快了点,呵呵....做如下的修改: Dim myconnection As sqlconnection=New sqlconnection("server=localhost;uid=sa;pwd=;database=aspx") Dim mycommand1 As SqlDataAdapter=New SqlDataAdapter("select* from bbs_sort",myconnection) Dim mycommand2 As SqlDataAdapter=New SqlDataAdapter("select * from bbs_root",myconnection) Dim ds As New dataset mycommand1.filldataset(ds,"bbs_sort") mycommand2.filldataset(ds,"bbs_root")
将sqlcommand --> sqlDataAdapter
Dim myconnection As sqlconnection=New sqlconnection("server=localhost;uid=sa;pwd=;database=aspx")
Dim mycommand1 As sqldatasetcommand=New sqldatasetcommand("select* from bbs_sort",myconnection)
Dim mycommand2 As sqldatasetcommand=New sqldatasetcommand("select * from bbs_root",myconnection)
Dim ds As New dataset
mycommand1.filldataset(ds,"bbs_sort")
mycommand2.filldataset(ds,"bbs_root")
Dim myconnection As sqlconnection=New sqlconnection("server=localhost;uid=sa;pwd=;database=aspx")
Dim mycommand1 As SqlDataAdapter=New SqlDataAdapter("select* from bbs_sort",myconnection)
Dim mycommand2 As SqlDataAdapter=New SqlDataAdapter("select * from bbs_root",myconnection)
Dim ds As New dataset
mycommand1.filldataset(ds,"bbs_sort")
mycommand2.filldataset(ds,"bbs_root")