Dim testconnect As System.Data.OleDb.OleDbConnection
Dim SourceAdapter As OleDb.OleDbDataAdapter
Dim DestCommand As OleDb.OleDbCommand
Dim SourceDataset = New DataSet()
Dim users As DataTable
Dim i As Int16
testconnect = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("servu.mdb"))
SourceAdapter = New OleDb.OleDbDataAdapter("Select id,psw from student", testconnect)
SourceAdapter.Fill(SourceDataset)
users = UserSet.Tables(0)
DestCommand = New OleDb.OleDbCommand("", testconnect)
DestCommand.Connection.Open()
For i = 1 To 4 '问题所在,不知道该循环多少次.
DestCommand.CommandText = "INSERT INTO FtpUser(userid,access,psw,homedir,maxusers) VALUES ('" + users.Rows(i).Item(0) + "','E:\|RWAMLCDP','" + MD5("ks" + users.Rows(i).Item(1)) + "','e:\',-1)"
DestCommmand.ExecuteNonQuery()
Next
insertftpcom.Connection.Close()
按照以上的方法处理,问题就是怎么样判断DataTable有多少行?
15 个解决方案
#1
users.Rows.Count
#2
DataTable.Rows.Count
#3
users.Rows.Count
#4
晕,一下就有两个答案了
#5
楼上们这么做,不纯粹是为了抢分吗?偶晕
#6
我答时还没人回答,我答题都是为了证明自己的能力,从来不为分而答。
#7
我来抢一下分 datatable.rows.count,全小写的,嘿嘿
#8
晕~~答完了~~~
datatable.rows.count
datatable.rows.count
#9
DataTable.Rows.Count
凑热闹
凑热闹
#10
信誉:59
真强~~
真强~~
#11
DataTable.Rows.Count
#12
1979xt:这么认真干什么。再说,俺也不是说你啊,前面三个答案冒得好快啊。
#13
没有机会!想说的被别人说了几遍了。
#14
小写的不对
(不用给我分)
(不用给我分)
#15
哈哈,感谢各位的热情。哎,自己马虎了一点,在DataTable.Rows.的提示里,开始没有看到count,所以急了,不过,我不眼花,兄弟们怎么能如此轻松的就得分了。
#1
users.Rows.Count
#2
DataTable.Rows.Count
#3
users.Rows.Count
#4
晕,一下就有两个答案了
#5
楼上们这么做,不纯粹是为了抢分吗?偶晕
#6
我答时还没人回答,我答题都是为了证明自己的能力,从来不为分而答。
#7
我来抢一下分 datatable.rows.count,全小写的,嘿嘿
#8
晕~~答完了~~~
datatable.rows.count
datatable.rows.count
#9
DataTable.Rows.Count
凑热闹
凑热闹
#10
信誉:59
真强~~
真强~~
#11
DataTable.Rows.Count
#12
1979xt:这么认真干什么。再说,俺也不是说你啊,前面三个答案冒得好快啊。
#13
没有机会!想说的被别人说了几遍了。
#14
小写的不对
(不用给我分)
(不用给我分)
#15
哈哈,感谢各位的热情。哎,自己马虎了一点,在DataTable.Rows.的提示里,开始没有看到count,所以急了,不过,我不眼花,兄弟们怎么能如此轻松的就得分了。