Salve raga, ecco il mio semplicissimo script che dovrebbe aggiornare il db ma mi da l'errore "necessaria query aggiornabile"
<%@ Page Language="vb" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
'-----------------CONNESSIONE AL DATABASE-----------------------------------
sub page_load(obj AS Object, e AS Eventargs)
'imposto la stringa di connessione
dim strConnectionString AS String = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\banking.mdb"
'Imposta la connessione'
dim objConn as New OleDbConnection(strConnectionString)
dim ds AS DataSet = new Dataset("MyDataSet")
dim strSQL AS string = "SELECT * FROM tblUsers"
'Apre la connessione
dim ObjCmd AS new OleDbDataAdapter(strSQL,ObjConn)
objCMD.Fill(ds, "Users")
ds.Tables("Users").Rows(2)(3) = "Gianni"
dim dr as DataRow = ds.Tables("Users").NewRow()
dr(0) = "Gregh"
dr(1) = "Smith"
dr(2) = "434 Minneaplois"
dr(3) = "Minneapolis"
dr(4) = "MN"
dr(5) = "15888"
dr(6) = "454553464"
ds.Tables("Users").Rows.Add(dr)
objCmd.UpdateCommand = new OleDBCommand
objCmd.UpdateCommand.CommandText = "UPDATE tblUsers SET City='Aspville' WHERE UserID=3"
ObjCmd.UpdateCommand.Connection = objConn
objCmd.InsertCommand = new OleDBCommand
ObjCmd.InsertCommand.CommandText = "INSERT INTO tblUsers(FirstName, LastName, City, Address, Zip, Phone) VALUES('Valeria','Pecetta','Assisi','Case nuove','06080','07581256')"
ObjCmd.InsertCommand.Connection = ObjConn
ObjCmd.Update(ds, "Users")
end sub
</script>
<html>
<head>
</head>
<body>
</body>
</html>
Rispondi quotando
