好郁闷的问题,各位帮我看看什么地方出错了~~~~~~~~
li37 2003-12-20 02:51:39 <script language="VB" RunAt="Server">
sub addtopic(ByVal sender As System.Object, ByVale As System.EventArgs)
dim mycommand as OLEDBcommand
dim countnum as integer
dim conn as OLEDBconnection
dim querystring as string
conn=new OLEDBconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("database/mdb1.mdb"))
dim querystring2 as string="select * from lunlist order by lid1 desc"
dim ds as dataset=new dataset
dim mycommand2 as OLEDBDataAdapter=new OLEDBDataAdapter(querystring2,conn)
mycommand2.fill(ds)
dim lid1 as integer=1
dim lid2 as integer=0
dim i as string = "0"
Dim row As TableRow
if ds.Tables[0].Rows.Count =0 then
else
lid1 =ds.tables(0).rows(0).item(1)+1
end if
dim lname as string = request.form("text1")
querystring="insert into lunlist(lid1,lid2,name)values('"& lid1 &"','"& lid2 &"','"& lname &"')"
mycommand=new OLEDBcommand(querystring,conn)
mycommand.executenonquery()
conn.close()
end sub
</script>
提示为if ds.Tables[0].Rows.Count =0 then
类型“System.Data.DataTableCollection”的值无法转换为“Boolean”。