Online DB Administration

Bjornar Henden

Rate me:

3.88/5 (16 votes)

17 Mar 2003

237K

2.5K

Online administration of your database. Create or modify tables, keys, and indexes. Edit or insert data.

Download source files - 38 Kb

Introduction

This is an application for online administration of your database.

Features

Supports MS SQL Server (not completely) and MS Access.
Create, modify, and drop tables and views.
Create and drop keys (primary, foreign, and unique).
Create and drop indexes.
Edit, insert, and duplicate rows in tables.
Foreign keys are used to create filters/lookups when browsing and editing data.
Export tables and views to a CSV file.

Installation

Unzip all files to a directory available from your web server.
Modify config.asp to point to your database.

History

Feb 27 2003

Included adojavas.inc since a few seems to have problem with metadata and global.asa.
Lots of minor changes and bug fixes.

Mar 18 2003

Updated source code.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Written By

Bjornar Henden

Web Developer

Norway

This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions

Hai,...
I have designed a coding to accept the information from the user(i.e., user Name, staffno and comments) and to store the same input into Access database.But when I clickon sumbit button I am getting the following error:

Error type :
Microsoft Jet Database Engine (0*80040E14)
Number of querty values and the desatination feilds are not the same
/report/formreport.asp,Line 29
---------------------------------------------------------------------------------------------------------------------------------------------------------
The coding is shown below

<html>
<% @LANGUAGE="VBScript" %>
<body>
<%
' Declaring variables
Dim username, userstaffno, usercomments, data_source, con, sql_insert

' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function

' Receiving values from Form
username = ChkString(Request.Form("username"))
userstaffno = ChkString(Request.Form("userstaffno"))
usercomments = ChkString(Request.Form("usercomments"))

data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &_
Server.MapPath("formreport.mdb")

sql_insert = "insert into formreport (username,userstaffno,usercomments)"
sql_insert = sql_insert & " values (' " & Request.Form("username") & " ' , ' " & Request.Form("userstaffno") & " ' , ' " & Request.Form("usercomments") & " ' , ' " & " ' )"

' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

' Done. Close the connection
con.Close
Set con = Nothing
Set sql_insert = Nothing
Response.Write "All records were successfully entered into the database."
%>
</body>
</html>

Please help me
Thanks in advance

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.