Scrolling Game Development Kit Forum
General => Off-Topic => Topic started by: timkool on 2009-05-15, 05:53:46 AM
-
Hello,
I'm new here and I have just started developing websites using VB ASP 3.5. Anyway, my questions is:
- In C# I can insert new data into tables using the below commands:
DataSetTableAdapters.TableNameTableADapter AddData = new DataSetTableAdapters.TableNameTableADapter()
AddData.Insert(
FirstEntry,
SecondData,
ThirdData)
Now im trying to do this in VB but its not working! Can someone please tell me how to do it?
I've gone through a lot of VB ASP books but they only tell you how to get data (SQL SOURCE, GRIDVIEW ..etc) and not how to add data.
Any advise appreciated. Thanks..
There are a couple of ways of doing this, but I find the following the easiest.
Code:
Dim Conn
Conn = "DSN=myDataSource" 'or a full connection string
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT TOP 1 column1, column2 FROM myTable"
rs.Open SQL, Conn, 1, 3
rs.AddNew
rs("column1") = "SomeData"
rs("column2") = "SomeOtherData"
rs.Update
Set rs = Nothing
Believe it or not, that is all you need!
www.floatingtank.at (http://www.floatingtank.at)
methadrostenol (http://legalsteroids.com/)
-
I could do it in PHP or even javascript using ADO.
Post the table name and field names and I'll hack up an example in VBscript/ASP real quick for you.
*** Edit ***
You really need to add a connect object as well as the recordset. Additionally a recordset EOF object to handle errors if the query object is not found. I would sanitize my inputs by using a regular expression parser and most critical of all... you MUST close a connection cleanly. The software we design here tends to asynchronous database hits, but it is important regardless of the method used. It is safer to open and close connections as needed and used rather than leaving it open.
-
...and an example straight from W3C schools ADO section
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
sql="INSERT INTO customers (customerID,companyname,"
sql=sql & "contactname,address,city,postalcode,country)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("custid") & "',"
sql=sql & "'" & Request.Form("compname") & "',"
sql=sql & "'" & Request.Form("contname") & "',"
sql=sql & "'" & Request.Form("address") & "',"
sql=sql & "'" & Request.Form("city") & "',"
sql=sql & "'" & Request.Form("postcode") & "',"
sql=sql & "'" & Request.Form("country") & "')"
on error resume next
conn.Execute sql,recaffected
if err<>0 then
Response.Write("No update permissions!")
else
Response.Write("<h3>" & recaffected & " record added</h3>")
end if
conn.close
%>
</body>
</html>
As well as some ripped from a functional database interface from work (non-proprietary)
var adoConn = new ActiveXObject("ADODB.Connection");
var adoRS = new ActiveXObject("ADODB.Recordset");
adoConn.Open(adoConnectString);
adoRS.Open(QString, adoConn, 1, 3);
var adoQstringEOF = adoRS.EOF
if (adoQstringEOF == false)
{
userNameFromDatabase.value = adoRS.Fields("Username").value;
passwordFromDatabase.value = adoRS.Fields("Password").value;
adoRS.Update;
adoRS.Close();
adoConn.Close();
}
else if (adoQstringEOF == true)
{
adoRS.Close();
adoConn.Close();
alert ("Username not found")
}
}