PDA

Click to See Complete Forum and Search --> : establish connection to database

tuanyong
08-27-2003, 09:01 PM
could anyone give me some ideas oh how to establish a connection to a database such that it can insert records and retrieve records to display in a broswer ...
some examples codes will be good.. thanks if anyone could help ..
bloke
08-28-2003, 06:09 AM
What type of database are you planning to use?
tuanyong
08-28-2003, 10:20 AM
microsoft access ...


i need to retrieve some records and display them into the browser ...
also need to insert new records ..

String b_date = request.getParameter("date");
String b_day = request.getParameter("day");
String b_sales_am = request.getParameter("sales_am");
String b_brand = request.getParameter("brand");
String b_customer = request.getParameter("customer");
String b_service_req = request.getParameter("service_req");
int f_start_time = Integer.parseInt(request.getParameter("start_time"));
int f_end_time = Integer.parseInt(request.getParameter("end_time"));
String b_remarks = request.getParameter("remarks");

set conn = server.createobject("adodb.connection")
database = "booking.mdb"
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(database)
set myrs = server.createobject("adodb.recordset")

set myrs=conn.execute("INSERT appointmentDetails SET date = '" & date & "', day = '" & day & "', sales_am = '" & sales_am & "', brand = '" & brand & "', customer = '" & customer & "', service_req = '" & service_req & "', start_time = '" & start_time & "', end_time = '" & end_time & "', remarks = '" & remarks & "')
conn.close

can these codes work ??
im not really sure .. please help anyone ... thanks
bloke
08-28-2003, 10:28 AM
'open connection

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/yourdatabase.mdb")


'select records

stryourselectstatement = "SELECT tblyourtable.field1, tblyourtable.field2 FROM tblyourtable; "

Set rsyourrecordset = Server.CreateObject("ADODB.Recordset")

rsyourrecordset.Open stryourselectstatement, adoCon

'insert records

stryourinsertstatement = "INSERT INTO tblyourtable ( field1, field2, field3, field4 ) VALUES(" & stryourvalues & "); "
Set rsblah = Server.CreateObject("ADODB.Recordset")

rsblah.Open stryourinsertstatement, adoCon

This works for me so hope it helps.

Cheers
tuanyong
08-28-2003, 09:06 PM
<%
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("booking.mdb")

stryourinsertstatement = "INSERT INTO appointmentDetails ( date, day, sales_am, brand, customer, service_req, start_time, end_time, remarks ) VALUES(" & date & ", " & day & ", " & sales_am & ", " & brand & ", " & customer & ", " & service_req & ", " & remarks & ");
Set rsblah = Server.CreateObject("ADODB.Recordset")
rsblah.Open stryourinsertstatement, adoCon

conn.close
%>

IS this how you insert records into a database ??
and is the closing connection codes correct ?
im totally new to ASP and need some help in this


<%
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("booking.mdb")

stryourselectstatement = "SELECT engineerDetails.engineer, engineerDetails.tel_num, engineerDetails.job_num, engineerDetails.email FROM engineerDetails; "
Set rsyourrecordset = Server.CreateObject("ADODB.Recordset")
rsyourrecordset.Open stryourselectstatement, adoCon

conn.close

%>
<body>
<form name="displayMessage" method="POST" action="bookingSystem.asp">
<p>&nbsp;</p>
<table border="0" width="100%" cellspacing="8">
<tr>
<td width="100%"><font face="Abadi MT Condensed Light" size="4"><b>
Engineer assigned: <% =request.get("engineer")%></b></font></td>
</tr>
<tr>
<td width="100%"><font face="Abadi MT Condensed Light" size="4"><b>
Contact No: <% =request.get("tel_num")%></b></font></td>
</tr>
<tr>
<td width="100%"><font face="Abadi MT Condensed Light" size="4"><b>
Reference No: <% =request.get("job_no")%></b></font></td>
</tr>
<tr>
<td width="100%"><font face="Abadi MT Condensed Light" size="4"><b>
Email Address: <% =request.get("email")%></font></b></td>
</tr>


in addtion, are the above codes used to retrieve records and display in a broswer?

And one last question .. how do i get to test my codes because i dont really how how to link my database to my broswer ?? im currenly using win98 and just downloaded PWS..after which .. it should be able to run ASP right ?
thuhang
08-29-2003, 12:58 AM
I try to insert records into database by using this code, but it does not not work and the message error said that the object does not support COMMANDTEXT. Please tell me what's wrong with these codes.

thank

<%
PartNumber= Request.Form("PartNumber")
PartDescription= Request.Form("PartDescription")
UnitsOnHand= CInt(Request.Form("UnitsOnHand"))
Dim strSql
strSql = "INSERT INTO Part(PartNumber, PartDescription, UnitsOnHand) VALUES ('" & PartNumber & _
"', '" & PartDescription & "','" & UnitsOnHand & "')"
Dim objCmd
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection="Driver={Microsoft Access Driver _
(*.MDB)}; DBQ=" & Server.MapPath("himbeeInc.mdb")
objCmd.CommmandText = strSql
objCmd.Execute
Set objCmd = Nothing
%>