OK here's my challenge du jour.....
What we're doing here is making an online request form which saves to Mysql (works fine) and subsequently want an online page that lets me add some new data and then merges with Word.
I have a php page as follows:
<?
Function to return the id of a record in the database
function getid() {
global $estimate, $sendvia, $datesent, $attorney, $bond_number, $jobstatus, $complete, $ID;
$result = mysql_query("SELECT ID,estimate,sendvia,datesent,attorney,bond_number,
jobstatus,complete FROM Phorm WHERE estimate='$estimate' and sendvia='$sendvia' and datesent='$datesent' and attorney='$attorney' and bond_number='$bond_number' and jobstatus='$jobstatus' and complete='$complete'");
if ($row = mysql_fetch_object($result)) {
$estimate = $row->estimate;
$sendvia = $row->sendvia;
$datesent = $row->datesent;
$attorney = $row->attorney;
$bond_number = $row->bond_number;
$jobstatus = $row->jobstatus;
$complete = $row->complete;
$ID = $row->ID;
}
}
Function to get a record by id
function getbyid($ID) {
global $estimate, $sendvia, $datesent, $attorney, $bond_number, $jobstatus, $complete, $ID;
$result = mysql_query("SELECT estimate,sendvia,datesent,attorney,bond_number,job
status,complete,ID from Phorm where ID=$ID");
if ($row = mysql_fetch_object($result)) {
$estimate = $row->estimate;
$sendvia = $row->sendvia;
$datesent = $row->datesent;
$attorney = $row->attorney;
$bond_number = $row->bond_number;
$jobstatus = $row->jobstatus;
$complete = $row->complete;
}
}
Connect to the database
mysql_connect("", "", "");
mysql_select_db("") or die("Unable to select database");
if ($action == "Search") {
Look up a record
getbyid($ID);
} else if ($action == "Update") {
if ($result = mysql_query("UPDATE Phorm SET estimate='$estimate', sendvia='$sendvia', datesent='$datesent', attorney='$attorney', bond_number='$bond_number', jobstatus='$jobstatus', complete='$complete' WHERE ID=$ID"))
$status = "Updated record $ID";
else
$status = "Update failed";
getbyid($ID);
} else if ($action == "Submit") {
if ($result = mysql_query("INSERT INTO Phorm (estimate,sendvia,datesent,attorney,bond_number,jo
bstatus,complete) VALUES ('$estimate','$sendvia','$datesent','$attorney','$
bond_number','$jobstatus','$complete')")) {
getid();
$status = "Inserted new record $ID";
} else
$status = "Insert failed";
} else if ($action == "Delete") {
if ($result = mysql_query("DELETE FROM Phorm WHERE ID=$ID")) {
$ID = "";
$estimate = "";
$sendvia = "";
$datesent = "";
$attorney = "";
$bond_number = "";
$jobstatus = "";
$complete = "";
$status = "Record deleted";
} else
$status = "Failed to delete record";
}
require("headerstatus.php");
echo "<form action=$PHP_SELF method=post>";
echo "<input type=hidden name=ID value=$ID>";
echo "<table border=1 bgcolor=#0080c0 cellspacing=0 cellpadding=5>";
?>
<tr><td align="right">Estimate</td>
<td><input name="estimate" value="<?echo $estimate?>" size=30></td></tr>
<tr><td align="right">Sent Via</td>
<td><input name="sendvia" value="<?echo $sendvia?>" size=30></td></tr>
<tr><td align="right">Date Sent</td>
<td><input name="datesent" value="<?echo $datesent?>" size=20></td></tr>
<tr><td align="right">Attorney In Fact</td>
<td><input name="attorney" value="<?echo $attorney?>" size=80></td></tr>
<tr><td align="right">Bond Number</td>
<td><input name="bond_number" value="<?echo $bond_number?>" size=30></td></tr>
<tr><td align="right">Job Status</td>
<td><input name="jobstatus" value="<?echo $jobstatus?>" size=50></td></tr>
<tr><td align="right">Complete</td>
<td><input name="complete" value="<?echo $complete?>" size=80></td></tr>
<?
echo "<tr><td align=center colspan=2>";
if ($ID != "") {
echo "<input type=submit name=action value=Update>";
}
echo "<input type=submit name=action value=Submit>";
echo "<input type=submit name=action value=Delete>";
echo "</td></tr>";
echo "<tr><td colspan=2> $status</td></tr>";
echo "</table>";
echo "</form>";
require("footerstatus.php");
?>
AND NOW.....
(1) I want to instantiate an ActiveX object or COM Object (EXE)
(2) It's written in VB6
(3) It's registered as "escapemerge" (object name) and the class is
"mergesqldata"
(4) I need to invoke a Method or Function called escapemerge
(5) escapemerge.mergesqldata.escapemerge
Does this make sense to anybody? I know I'm close but this one step joining the two bits is more than I can cope with. There is a Coffee Crisp chocolate bar in it for anyone that can help. Great Canadian bar and as yet undiscovered by the USA.
