Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Database connection 2
- Thread starter kgaustria
- Start date
-
1
- #2
That's a very demanding task for VBScript.
Just what are you trying to achieve.
Might be easier to write the data access in a VB DLL and call it from VBScript.
Anyway, to access a MDB from a datagrid:
First, I would use either the reference or object tags so that VBScript would recognize the data grid and the ADO Recordset library.
Second, within the reference and object tags I would set the properties of the data grid including what database it is to be connected to.
Third, I'd write the SQL statements to access the database.
Good luck
Just what are you trying to achieve.
Might be easier to write the data access in a VB DLL and call it from VBScript.
Anyway, to access a MDB from a datagrid:
First, I would use either the reference or object tags so that VBScript would recognize the data grid and the ADO Recordset library.
Second, within the reference and object tags I would set the properties of the data grid including what database it is to be connected to.
Third, I'd write the SQL statements to access the database.
Good luck
- Thread starter
- #3
Thanks jerjim but can you be more broader with that ? Here a sample of my code as soon as i click the browse button an error occurs "Object Required : server"
<html>
<head>
<title>PC Inventory System</title>
<script language="VBScript" RUNAT="server">
<!--
sub cmdbrowse_onclick
msgbox "hello"
dim Conn, RS, strConn, sqlStatement
Set Conn = server.createobject("ADODB.Connection"
strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strConn = strConn & server.mappath("..\ken\pcinvsys\sample.mdb" & ";"
Conn.Open
Set RS = createobject("ADODB.Recordset"
RS.activeconnection=Conn
rs.Cursortype=2 'adOpenDynamic
sqlStatement = "Select * from PCINV Where Users=""E. LOPEZ"""
RS.open sqlStatement
end sub
-->
</script>
</head>
<body>
<!--<OBJECT ID="DBGrid Control" WIDTH="100%" HEIGHT="100%" align="middle" NAME="grid" CLASSID="CLSID:00028C00-0000-0000-0000-000000000046">
</OBJECT> -->
<HR>
<!--<form method="POST" action="view.asp">
<p><input type="submit" value="View" name="View"></p>
</form> -->
<form>
<center>
<!--<input name="cmdbrowse" type="Image" title="View the contents" src="./img/icons/table.ico" width="40" height="40"> -->
<input name="cmdbrowse" type="Button" title="View the contents" Value="BROWSE" width="40" height="40">
            
<input name="cmdadd" type="Image" title="Add to the table " src="./img/icons/folder04.ico" width="40" height="40">
            
<input name="cmdedit" type="image" title="Edit the selected record" src="./img/icons/pencil01.ico" width="40" height="40">
            
<input name="cmddelete" type="Image" title="Delete the record(s)" src="./img/icons/delete.bmp" width="40" height="40">
            
<input name="cmdupdate" type="Image" title="Updates the table" src="./img/icons/save.bmp" width="40" height="40">
</center>
</form>
</body>
</html>
Thanks in advance...
<html>
<head>
<title>PC Inventory System</title>
<script language="VBScript" RUNAT="server">
<!--
sub cmdbrowse_onclick
msgbox "hello"
dim Conn, RS, strConn, sqlStatement
Set Conn = server.createobject("ADODB.Connection"
strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strConn = strConn & server.mappath("..\ken\pcinvsys\sample.mdb"
& ";"Conn.Open
Set RS = createobject("ADODB.Recordset"
RS.activeconnection=Conn
rs.Cursortype=2 'adOpenDynamic
sqlStatement = "Select * from PCINV Where Users=""E. LOPEZ"""
RS.open sqlStatement
end sub
-->
</script>
</head>
<body>
<!--<OBJECT ID="DBGrid Control" WIDTH="100%" HEIGHT="100%" align="middle" NAME="grid" CLASSID="CLSID:00028C00-0000-0000-0000-000000000046">
</OBJECT> -->
<HR>
<!--<form method="POST" action="view.asp">
<p><input type="submit" value="View" name="View"></p>
</form> -->
<form>
<center>
<!--<input name="cmdbrowse" type="Image" title="View the contents" src="./img/icons/table.ico" width="40" height="40"> -->
<input name="cmdbrowse" type="Button" title="View the contents" Value="BROWSE" width="40" height="40">
            
<input name="cmdadd" type="Image" title="Add to the table " src="./img/icons/folder04.ico" width="40" height="40">
            
<input name="cmdedit" type="image" title="Edit the selected record" src="./img/icons/pencil01.ico" width="40" height="40">
            
<input name="cmddelete" type="Image" title="Delete the record(s)" src="./img/icons/delete.bmp" width="40" height="40">
            
<input name="cmdupdate" type="Image" title="Updates the table" src="./img/icons/save.bmp" width="40" height="40">
</center>
</form>
</body>
</html>
Thanks in advance...
-
1
- #4
I use this code to test ODBC connections.
<html>
<head>
<title>
Connection Test
</title></head>
<body>
<%
dim myConn
set myConn = server.createobject("ADODB.Connection"
myConn.Open ODBCtest
If myConn.state = 1 then
response.write("Connection opened successfully<p>"
else
response.write("Error. Connection could not be opened.<P>"
end if
myconn.close
set myConn = Nothing
%>
</body>
</html>
<html>
<head>
<title>
Connection Test
</title></head>
<body>
<%
dim myConn
set myConn = server.createobject("ADODB.Connection"
myConn.Open ODBCtest
If myConn.state = 1 then
response.write("Connection opened successfully<p>"
else
response.write("Error. Connection could not be opened.<P>"
end if
myconn.close
set myConn = Nothing
%>
</body>
</html>
- Status
Similar threads
- Locked
- Question