一个数据库更新的问题,在线等
dim myConn as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Inetpub\wwwroot\db1.mdb")
dim strSQL as string = "select * from 1"
dim myDataset as new DataSet()
dim myCommand as new OleDbDataAdapter()
myCommand.SelectCommand=New OleDbCommand(strSQL, myConn)
myCommand.Fill(myDataset,"1")
myCommand.InsertCommand=new OleDbCommand
myCommand.InsertCommand.CommandText="INSERT INTO " & _
"1 ( user_name, file_title, file_content, [time], re )" & _
"VALUES ('sss', 'sss', 'sss', [@time], '0')"
dim objPram as OleDbParameter
objPram=myCommand.InsertCommand.Parameters.Add("@time",OleDbType.Date)
objPram.Direction=ParameterDirection.Input
objPram.Value=Now
try
myConn.Open
myCommand.Update(myDataSet,"1")
catch ex as OleDbException
ResPonse.Write(ex)
finally
myConn.close
end try
没有任何错误提示,但就是不插入新的行,各位大侠给看看