Check if Table existsin the database

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
 - 1
 - element where cursor is located Hi, Does anyone know how to find the element where the cursor is located when switched to contentEditable? For instance: <html> <div contentEditable>this is div one <div>this is div two</div> <div>this is div three</div> </div> <script language=vbs> sub document_onkeydown() elementwherecursorislocated.style.backgroundColor="red" end sub </script> Thanks, Linton Tag: Check if Table existsin the database Tag: 138618
 - 2
 - WinHttpRequestOption format Should be a simple question, but I can't find the answer. What is script format for setting the user agent in WinHTTP? Simple code ret = oHTTP.Open ("GET", "http://my.home.com", true); ret = oHTTP.WinHttpRequestOption_UserAgentString (userAgent); oHTTP.Send(); Jeff Tag: Check if Table existsin the database Tag: 138617
 - 3
 - User password properties A couple of related puzzles: The first script almost works. I'm trying to create a number of users (in a separate script for this purpose) and enable their account and set their passwords not to expire. The create-account script (not shown) works fine. This part, whether integral to the create-account script or stand-alone, manages to do the second if statement, but not the first. If I swap the if statements it still does the second, but not the first. What would cause it to do that? Is it the case that you can only do one operation at a time? Only the last one takes? ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Const ADS_UF_ACCOUNTDISABLE = 2 Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000 Set objUser = GetObject ("LDAP://cn=Atest,ou=PsyUsers,dc=xxx,dc=uuuu,dc=edu") intUAC = objUser.Get("userAccountControl") If intUAC AND ADS_UF_ACCOUNTDISABLE Then objUser.Put "userAccountControl", intUAC XOR ADS_UF_ACCOUNTDISABLE objUser.SetInfo End If If not intUAC AND ADS_UF_DONT_EXPIRE_PASSWD Then objUser.Put "userAccountControl", intUAC XOR ADS_UF_DONT_EXPIRE_PASSWD objUser.SetInfo End If +++++++++++++++++++++++++++++++++++++++++++++++ And. I can't make this work at all. It says something in the book that the can't change password property is in "userAccountControl" , but then says something about it being an "nTSecurityDescriptor". I am not at all clear on the syntax, I've swapped both values in every permutation, but not got it to do anything. I've also played with "if" and "if not", doesn't seem to help. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Const ADS_UF_PASSWD_CANT_CHANGE = &h00400 Set objUser = GetObject ("LDAP://cn=Atest,ou=PsyUsers,dc=xxx,dc=uuuu,dc=edu") intUAC = objUser.Get("userAccountControl") if not intNSD AND ADS_UF_PASSWD_CANT_CHANGE Then objUser.Put "nTSecurityDescriptor", intUAC XOR ADS_UF_PASSWD_CANT_CHANGE objUser.SetInfo End If +++++++++++++++++++++++++++++++++++++++++++++++ Thanks, Jerry Tag: Check if Table existsin the database Tag: 138616
 - 4
 - Window Server 2003 and Wscript - Shell.Run set oShell = Wscript.CreateObject("Wscript.Shell") ----oShell.Run "\\SERVER\share\WindowsServer-hotfixe-xxx.exe -q -f -o",0,true I'm using the above code to install hotfixes on a server (obviously its a bit more involved than this), and with NT4, 2000, and XP, I can do this and it runs fine. With 2003, it pops open a security dialog box asking me if I "really want to run this". I understand this from a virus protection/trojan standpoint, but it basically halts my server builds since I can't update server 2003 unattended. Batch files don't seem to have this limitation, but that isn't a possibility for what I'm doing. Is there some reg hack I can do so that I can turn this security feature off? How else can I handle Wscript's Shell.Run command in an unattended fashion? Thanks, Greg Tag: Check if Table existsin the database Tag: 138615
 - 5
 - How to Scroll to bottom of a TEXTAREA box? I would like to know how to do the equivalent of the VB6 ThisForm.MyTextArea.SelectStart = Len(MyTextArea) to always push up from the bottom of my textarea when I add items. I can't find a way to find length or anything else that would point me to the bottom and keep that line the last line. I have a simple WriteLog Sub: Sub WriteLog(Text) ThisForm.MyTextArea.Value = ThisForm.MyTextArea.Value & Text & vbCrLf ' following line is from VB, it gives major errors TheForm.TextCallProgress.SelectStart = Len(TextCallProgress) ' If I try this, it doesn't appear to do anything TheForm.TextCallProgress.ScrollIntoView(True) ' If I try this, it won't work when I first run the sub because it ' just entered the first line and says it can't execute yet. I assume ' because with only one line of text, it can't scroll. TheForm.TextCallProgress.doScroll End Sub Is there a better way, or a way to count lines or put the doScroll into an If statement to make sure there are lines to scroll before it tries to scroll? Thanks. Fred Tag: Check if Table existsin the database Tag: 138608
 - 6
 - How to replace first and last "," in a string in asp vbscript? How can I replace first as well as last "," in a string? Mystring = ",3,2,5,6,1,65,22," I would like CorrectedString = "3,2,5,6,1,65,22" I would like to replace commas on each sides with "". I am new to asp and would be grateful for your help. Thanks in advance. Tag: Check if Table existsin the database Tag: 138605
 - 7
 - Script that will work on NT machines to grab OS version I need a simple script that will work on NT, XP, and 2000 machines that will simply return the OS version, basically what I have is a multiple OS (NT, XP, 2K) enviroment, and I want to add into the login script a script that will retrieve the OS, I can do the rest into getting it into a SQL DB.. Thanks!! Tag: Check if Table existsin the database Tag: 138598
 - 8
 - VBS Getting its Process ID I know I must be missing it in the documentation, but I can't find it. Is there are way for a VBS script to determine its process ID? There may be multiple wscript.exe running, so I can't just look for wscript.exe in the process table. If I was running XP, I am running NT, I could use the CommandLine Parameter. Thanks for any help you could provide, Bryan Tag: Check if Table existsin the database Tag: 138590
 - 9
 - Scrolling a frame without a scrollbar? Is there any way to scroll a frame using controls or mouse wheel, instead of the scrollbar? We have a client that want's long frames but dosn't like scroll bars. Thanks, Dan Tag: Check if Table existsin the database Tag: 138589
 - 10
 - Set obj = Nothing -- Unneeded? Ok, after browsing the VB6 usenet archives, I think I'm pretty clear that in most cases Set obj = Nothing has little value. (I did read the counter aruments, but found them unpersuasive.) So, is this also true for VBScript? (Assuing version 5.0 +). I've tried to be religious about using it (in my ASP / VBScript coding), but I'm ready for a conversion. Frankly, I'd like to avoid using it, especially in error-handling. So, opinions: Set obj = Nothing in VBSCRIPT.... love it or leave it? Thanks d. Tag: Check if Table existsin the database Tag: 138585
 - 11
 - Changing permissions in folders Hello How I can change the permissions for all subfolders in the same folder with a script? I have Windows 2000 Server and when I add manualy a home directory for a user, a folder will be created with specific permissions (administrator and the user get full control). Now, I create the users with a script and must create the folders with a script too. I suppose it is easy to create the folders, but I want to change the security tab as well. How to do this? Please, if it is not require too much work, can you write a script to me (I am a beginner so it will do much help to me with a script)? Thank you -- Anders Andersson Tag: Check if Table existsin the database Tag: 138580
 - 12
 - Add link to My Network Places I am trying to automate adding links to "My Network Places". I am not able to simulate the way the OS creates this link. I am able to create a shortcut using the WshShortcut object, but that does not have the same affect. I also saw some info on rundll32 netplwiz,addnetplacerundll, but I do not see a way to automate this. Anyone have any info on this? Thanks -- Posted via http://dbforums.com Tag: Check if Table existsin the database Tag: 138579
 - 13
 - Simple writelog(txt) sub does nothing I cannot get a simple log to a textarea subroutine to work. This code works: Sub DeviceSelect_OnChange() Dim TheForm Set TheForm = Document.etQuickDial TheForm.TextCallProgress.Value="Please Display this" End Sub When I try to substitute this, it gives give no error and doesn't do anything Sub DeviceSelect_OnChange() Dim TheForm Set TheForm = Document.etQuickDial WriteLog("Please display this") ' the only change!!! End Sub Sub WriteLog(Text) Dim TheForm Set TheForm = Document.etQuickDial TheForm.TextCallProgress.Value = "fred" Also, is there a better way globally to to the "theform" stuff. I can Dim TheForm, but can't do a Set up at the top in the Option Explicit because I haven't defined the form yet, I guess. Thanks. Fred Tag: Check if Table existsin the database Tag: 138576
 - 14
 - turkish charecter problem Dear Sirs, I am connecting a access database with ado. But I can not use Turkish charecters with vb6 when I have no problem with access . Any idea why I can not use non english charecters with vb6 Best REgards Tag: Check if Table existsin the database Tag: 138572
 - 15
 - Display GUID type retrieved from Active Directory Hi, I am reading the objectGuid for a user from AD which is returned as Guid type I assume. When trying to display that Guid I get as output: ?????? When trying to pass that to a subroutine I get: Type mismatch Tag: Check if Table existsin the database Tag: 138570
 - 16
 - open internet connection Hi ng, how can I check, if there is an open local internet connection (modem) on this computer. I don't want to send a ping - because the computer will then open a channel automaticly. Thanks. Jörg Tag: Check if Table existsin the database Tag: 138567
 - 17
 - Change Language settings with script I'm searching for a way to change the language settings of a user on a mulitlanguage Terminal Server depending on the value of the Active Directory attribute region at logon. For example: if a user has France as region the desktop will displayed in france, if the value will be changed to Germany, the desktop settings should be set to german. Regards Alex Fischer Tag: Check if Table existsin the database Tag: 138563
 - 18
 - BUG : Attributed ATL and VBScript(Script Control) There is a serious reference counting bug which can occur when using Attributed ATL components inside the Microsoft Script Control. This problem seems to be caused by the fact that internally __VariantChangeType may change the dispatch parameters passed on the Invoke stack, and this is either not allowed, or is unexpected by the Script Control. For example, if a component has a LONG (VT_I4) property, and this property is set by passing it an object (VT_DISPATCH), __VariantChangeType will perform the type conversion, but in the process will also cause the reference count of the passed IDispatch interface to be decremented. I believe the script control is not expecting this, and either does not correctly AddRef the interface before the Invoke call, or will do a Release on it afterwards. This problem does not exist in IDispatchImpl<> which does not change the parameters on the Invoke stack. To reproduce this problem Create a simple attributed ATL component that has a single LONG default (DISPID_VALUE) property. In FinalRelease, get the component to display a message box to indicate that it is being deleted. Create a Visual Basic application that uses the Microsoft Script Control. The script code to be run should set the component default value using the line "obj=obj". This will cause the default value to be retrieved from obj and then set using a parameter type of VT_DISPATCH rather than VT_I4. The script code should be run in response to clicking a command button, after a few clicks, the component reference count will go to zero and delete its self after displaying the message box. Dim obj As New Ctestobject Private Sub Form_Load() ScriptControl1.Language = "VBScript" Dim code As String code = "sub test()" & vbCrLf & "obj=obj" & vbCrLf & "end sub" & vbCrLf ScriptControl1.AddCode code ScriptControl1.AddObject "obj", obj End Sub Private Sub Command1_Click() ScriptControl1.Run "test" End Sub Tag: Check if Table existsin the database Tag: 138562
 - 19
 - VBScript Editor Hi there. Can anyone recommend any decent free VBScript editors? I'm already using the VBSEditor from KOAN so don't want to pay any money. However it doesn't really know about any objects, occasionally adds random : (colon's) and isn't really any more than a colourful text editor. Any suggestions would be great, cheers. Tom Tag: Check if Table existsin the database Tag: 138555
 - 20
 - Server Side Includes Im trying to use SSI because I have a top and bottom that I want to show up on ever page. I made both the top.asp and bottom.asp page, then I have the index.asp. In the index.asp i use the following code:  < html code goes here... blah blah blah... >  I get the following error: The include file ''top.asp'' was not found. /newss/index.asp, line 2 I get the same if I take out the SSI for the top.asp and replace it with the bottom.asp The weird thing is, I have done this before and just copied and pasted the code and changed the files. Any ideas what could be wrong? The error can be seen at www.iyaracing.com/newSS ----------------------------- This message is posted by http://Asp.ForumsZone.com Tag: Check if Table existsin the database Tag: 138537
 - 21
 - Reading filenames into a dynamic array I am trying to read the filenames into a dynamic array using the code snippet below. Whenever I run this I am getting a "Subscript out of range error". How do I populate a dynamic array dim fso, fldname, fldcoll, fl, flname dim myArray() set fso = CreateObject("Scripting.FileSystemObject") set fldname = fso.GetFolder("c:\temp") set fldcoll = fldname.Files For Each fl in fldcoll myArray(fl) = fl.Name Next set fldcoll = nothing set fldname = nothing set fso = nothing Tag: Check if Table existsin the database Tag: 138519
 - 22
 - trimming Hello, I'm trying to get rid of some strange null characters at the beginning of each line of a text file. What I've been attempting probably isn't even close. Help! Thanks in advance. Option Explicit Dim objFSO, objText, strInput Dim strText Set objFSO = WScript.CreateObject ("Scripting.FileSystemObject") Set objText = objFSO.OpenTextFile("D:\GENBACCA.txt") Set objFSO = nothing Do Until (objText.AtEndOfStream = True) strInput = objText.Readline 'Or .Writeline? strText = LTrim(strInput) Loop Set objText = Nothing 'Return modified text file. WScript.Echo strText Tag: Check if Table existsin the database Tag: 138515
 - 23
 - Accessing remote SNMP informationi All I want for Christmas is to be able to use scripting (vbscript or jscript) to get SNMP information from a non-MS Windows device. From what I've read in WMI it is possible but I haven't found an example. Does anyone have an example or know where one might be hiding? jU? Tag: Check if Table existsin the database Tag: 138512
 - 24
 - reload SQL Data when Data Changes Hi, I'm running a company intranet and the portion in question is the company message board. Its becoming a very integral part of company discussion on most of our projects. What I would like to be able to do is have it so that a user can leave the message board opened and minimized and have it alert him in some way when something new has been posted. Unfortunately i dont want to just keep auto-refreshing the page at certain intervals because i'm concerned about xp users (if it refreshes it'll start flashing at them even if there is no new data, this could get annoying). Is there a way to alert the page when posts occur or have the page check the SQL database every so often without fully refreshing the page unless there is a change to the database? I'm currently working in vbscript with some javascript thrown in on some pages so an answer in either of these languages would work for me. Thanks in advance for any help anyone can provide! Chris Coho, ccoho@jrwald.com Tag: Check if Table existsin the database Tag: 138511
 - 25
 - ASP and vbscript for forms Hi. I am using a query string to get the date entered from a from via the "GET" actiuon but do not know how to put the date into a text field (txtDate). What is the syntax? I have tried strDate = Request.querystring("Date") Response.write(strDate) document.forms("frmMenuItemAdd").txtDate = strDate Help! -- Gary Mason www.garymason.biz Tag: Check if Table existsin the database Tag: 138504
- Next
 - 1
 - printing WSH i have code to print to a network printer. but i am getting an error. Error Type: WSHNetwork.AddPrinterConnection (0x80070520) A specified logon session does not exist. It may already have been terminated. /tradegate/test.asp, line 16 i can't figure this out!. Help would be greatly appreciated. here is the code: <%@ LANGUAGE="vbscript" %> <% Option Explicit Response.Buffer = TRUE Dim strMessage Dim objFS Dim objWSHNet strMessage = "hello" Set objFS = CreateObject("Scripting.FileSystemObject") Set objWSHNet = CreateObject("WScript.Network") objWSHNet.AddPrinterConnection "LPT1", "\\newuser\corp_area ", False, "administrator", "dwb527" Set objPrinter = objFS.CreateTextFile("LPT1:", True) objPrinter.Write(strMessage) objPrinter.Close Set objWSHNet = CreateObject("WScript.Network") objWSHnet.RemovePrinterConnection "\\newuser\corp_area", True %> Tag: Check if Table existsin the database Tag: 138501
 - 2
 - I am the only guy! Hi all, an amusing fact ... i tried searching this newsgroup but it seems I was the only one who has posted a question for advise on perl... in windows...;0) Raj Tag: Check if Table existsin the database Tag: 138497
 - 3
 - HELP! Passing from database to asp page allowing user input then sending to another database My big problem is I'm a newbie working with someone else's code.(See code below) What I want to do is for the records that have a purchase order number I want a text box at the end of the line of information that a user may or may not place a date into. (You'll notice that there are two sets being drawn into my page that have Purchase Order.) If the user does enter a date, when they hit submit I want that data to be sent to a database along with that line of information. The trouble I'm having is making sure that each record line is being checked and then sent. If anyone could help with any part of this, I would really appreciate it. Okay here is my code:  </script> <td>  <%Username=Request.ServerVariables("LOGON_USER") usernamepos=instr(Username,"\") Username=right(Username,(len(username)-usernamepos)) sql = "SELECT UserName FROM tUsers WHERE UserName='" & Username & "' and northemployee= 'yes'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, Cm, 3, 3 strEmpName = rs("UserName") rs.close %> Open Orders as of <%=now()%> <a href="../production/printable.asp?<%Response.write(strform)%>">Printable Version</a> <table width="744" border="0" cellspacing="0" cellpadding="0"> <% server.scripttimeout=240 response.flush Set Cm3 = Server.CreateObject("ADODB.Connection") Cm3.CommandTimeout = 30 Cm3.ConnectionTimeout = 20 Cm3.Open Application("DB_REPORTS") Dim strOrderBy Dim strInClause Dim strSortLink for n = 1 to 23 vendorvar="vend" & n ordervar = "ORDER_BY" & n wasorderedvar = "WAS_ORDERED_BY" & n if Request(vendorvar)<>"" then strSortLink = strSortLink + vendorvar + "=" + Request(vendorvar) + "&" end if if Request(wasorderedvar) <> "" AND Request(ordervar) = "" then strSortLink = strSortLink + wasorderedvar + "=" + Request(wasorderedvar) + "&" end if if Request(ordervar) <> "" then if Request(ordervar) = Request(wasorderedvar) then if Left(Request(wasorderedvar),1) <> "-"then strSortLink = strSortLink + wasorderedvar + "=" + "-"+Request(ordervar) + "&" end if else strSortLink = strSortLink + wasorderedvar + "=" + Request(ordervar) + "&" end if end if next for n = 1 to 23 vendorvar="vend" & n strVendor = Request(vendorvar) if strVendor <> "" then sql="SELECT * FROM northprod1 WHERE ([VENDOR CODE] = '" sql = sql + strVendor + "' AND TYPE = 'P' " sOrder = Request("ORDER_BY" & n) strOrderDESC = "" if sOrder = "" then sOrder = Request("WAS_ORDERED_BY"&n) if left(sOrder,1) = "-" then strOrderDESC = " DESC" sOrder = right(sOrder,1) end if else if sOrder = Request("WAS_ORDERED_BY"&n) then strOrderDESC = " DESC" end if end if if sOrder = "" then sql = sql & "AND [QUANTITY COMMITTED]>0) " else sql = sql & ") " end if select case sOrder case "" strOrderBy = "ORDER BY YEAR, [PURCHASE DATE]" case "1" strOrderBy = "ORDER BY [PURCHASE ORDER NUMBER]" case "2" strOrderBy = "ORDER BY [LINE NUMBER]" case "3" strOrderBy = "ORDER BY YEAR, [PURCHASE DATE]" case "4" strOrderBy = "ORDER BY [STOCK NUMBER]" case "5" strOrderBy = "ORDER BY [STOCK DESCRIPTION]" case "6" strOrderBy = "ORDER BY [UNIT OF SALE]" case "7" strOrderBy ="ORDER BY [QUANTITY ON HAND]" case "8" strOrderBy = "ORDER BY [QUANTITY ON ORDER]" case "9" strOrderBy = "ORDER BY [QUANTITY COMMITTED]" end select sql = sql & strOrderBy + strOrderDESC Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.Open sql, Cm3, 3, 3 strPurchase = rs3("PURCHASE ORDER NUMBER") if request.form("submitTop") <> "" or request.form("submitBottom")<> "" then Dim i if rs3.eof then sqlD="INSERT INTO EstDelDate (EnteredBy, PO_PT, Line, FormDate, Part#, EntryDate, EstDeliveryDate) VALUES ('" & strEmpName & "', '" & strPurchase & "', '" & strLine & "', '" & strPDate & "', '" & strPartNo & "', '" & Date() & "', '" & strDel & "')" Set Con= Server.CreateObject("ADODB.Connetion") Con.open Application("DB_INTRANET") response.write(sqlD) end if 'Cm2.Execute(sqlD) 'con.Close 'Set Cm2 = Nothing End if if request.form = "" then strform = request.QueryString else strform = request.Form end if %> <form name="myform" action="../production/orders_pro.asp" method="post"> <tr><td colspan=11 align="right"><input type="submit" value="Submit" name="submitTop"></td> </tr> <tr><td colspan="10">Vendor <%=strVendor%></td></tr> <tr> <td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=1")%>">PO#/PT#</a></td> <td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=2")%>">Line#</a></td> <td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=3")%>">Date</a></td> <td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=4")%>">Part No.</a></td> <td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=5")%>">Description</a></td> <td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=6")%>">UOS</a></td> <td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=7")%>">On Hand</a></td> <td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=8")%>">On Order</a></td> <td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER_BY"&n&"=9")%>">Com</a></td> <td>Complete</td> <td>Est.Delivery Date</td> </tr> <% do until rs3.eof commit=rs3("QUANTITY COMMITTED") onhand=rs3("QUANTITY ON HAND") important = commit - onhand strLine = rs3("LINE NUMBER") strPDate= rs3("PURCHASE DATE") strPartNo= rs3("STOCK NUMBER") %> <tr<%if important>0 then response.write(" bgcolor='#ccaaaa'") %>> <td style='border-right: 1 solid #808080'><a href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?po=<%=rs3("PURCHASE ORDER NUMBER")%>','po','scrollbars=yes,resizable=yes')"><%=rs3("PURCHASE ORDER NUMBER")%></a></td> <td style='border-right: 1 solid #808080'><%=rs3("LINE NUMBER")%></td> <td style='border-right: 1 solid #808080'><%=LEFT(rs3("PURCHASE DATE"),2)%><%=MID(rs3("PURCHASE DATE"), 3, 2)%><%=RIGHT(rs3("PURCHASE DATE"),2)%></td> <td style='border-right: 1 solid #808080'><a href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK NUMBER")%>','bom','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs3("STOCK NUMBER")%></a></td> <td style='border-right: 1 solid #808080'><%=rs3("STOCK DESCRIPTION")%> <%=rs3("EXTENDED DESCRIPTION 1")%></td> <td style='border-right: 1 solid #808080'><%=rs3("UNIT OF SALE")%></td> <td style='border-right: 1 solid #808080'><%=rs3("QUANTITY ON HAND")%></td> <td style='border-right: 1 solid #808080'><%=rs3("QUANTITY ON ORDER")%></td> <td><%=rs3("QUANTITY COMMITTED")%></td> <td><a href="javascript:;" onClick="MM_openBrWindow('../production/complete.asp?po=<%=rs3("PURCHASE ORDER NUMBER")+"&vc="+StrVendor%>','po','scrollbars=yes,resizable=yes')">X</a></td> <td><input type="text" size=10 name="estDel"></td> </tr> <% rs3.movenext loop response.flush rs3.close sql="SELECT * FROM northprod2 WHERE ([VENDOR NUMBER] = '" + strVendor sql = sql +"' AND [PICKTICKET TYPE]='N' AND [BIN LOCATION]='ASL'" if sOrder = "" then sql = sql & " AND [QUANTITY COMMITTED]>0) " else sql = sql & ") " end if select case true case sOrder ="" strOrderBy2 = "ORDER BY [DATE]" case sOrder = "1" strOrderBy2 = "ORDER BY [PICKTICKET NUMBER]" case sOrder = "2" strOrderBy2 = "ORDER BY [LINE NUMBER]" case sOrder ="3" strOrderBy2 = "ORDER BY [DATE]" case sOrder = "4" strOrderBy2 = "ORDER BY [STOCK NUMBER]" case sOrder = "5" strOrderBy2 = "ORDER BY [STOCK DESCRIPTION]" case sOrder ="6" strOrderBy2 = "ORDER BY [UNIT OF SALE]" case sOrder = "7" strOrderBy2 = "ORDER BY [QUANTITY ON HAND]" case sOrder = "8" strOrderBy2 = "ORDER BY [QUANTITY ON ORDER]" case sOrder = "9" strOrderBy2 = "ORDER BY [QUANTITY COMMITTED]" end select sql = sql & strOrderBy2 + strOrderDESC rs3.Open sql, Cm3, 3, 3 do until rs3.eof commit=rs3("QUANTITY COMMITTED") onhand=rs3("QUANTITY ON HAND") important = commit - onhand %> <tr<%if important>0 then response.write(" bgcolor='#ccaaaa'") %>> <td style='border-right: 1 solid #808080'><a href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?pt=<%=rs3("PICKTICKET NUMBER")%>','pt','scrollbars=yes,resizable=yes')"><%=rs3("PICKTICKET NUMBER")%><%=rs3("PICKTICKET TYPE")%></a></td> <td style='border-right: 1 solid #808080'><%=rs3("LINE NUMBER")%></td> <td style='border-right: 1 solid #808080'><%=rs3("DATE")%></td> <td style='border-right: 1 solid #808080'><a href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK NUMBER")%>','bom','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs3("STOCK NUMBER")%></a></td> <td style='border-right: 1 solid #808080'><%=rs3("STOCK DESCRIPTION")%></td> <td style='border-right: 1 solid #808080'><%=rs3("UNIT OF SALE")%></td> <td style='border-right: 1 solid #808080'><%=rs3("QUANTITY ON HAND")%></td> <td style='border-right: 1 solid #808080'><%=rs3("QUANTITY ON ORDER")%></td> <td><%=rs3("QUANTITY COMMITTED")%></td> <td></td> <td> </td> </tr> <% rs3.movenext loop response.flush rs3.close if sOrder = "" then sql="SELECT * FROM northprod1 WHERE ([VENDOR CODE] = '"+ strVendor sql = sql + "' AND TYPE='P' AND [QUANTITY COMMITTED]=0) " + sOrderBy rs3.Open sql, Cm3, 3, 3 do until rs3.eof %> <tr> <td style='border-right: 1 solid #808080'><a href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?po=<%=rs3("PURCHASE ORDER NUMBER")%>','po','scrollbars=yes,resizable=yes')"><%=rs3("PURCHASE ORDER NUMBER")%></a></td> <td style='border-right: 1 solid #808080'><%=rs3("LINE NUMBER")%></td> <td style='border-right: 1 solid #808080'><%=LEFT(rs3("PURCHASE DATE"),2)%><%=MID(rs3("PURCHASE DATE"), 3, 2)%><%=RIGHT(rs3("PURCHASE DATE"),2)%></td> <td style='border-right: 1 solid #808080'><a href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK NUMBER")%>','bom','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs3("STOCK NUMBER")%></a></td> <td style='border-right: 1 solid #808080'><%=rs3("STOCK DESCRIPTION")%> <%=rs3("EXTENDED DESCRIPTION 1")%></td> <td style='border-right: 1 solid #808080'><%=rs3("UNIT OF SALE")%></td> <td style='border-right: 1 solid #808080'><%=rs3("QUANTITY ON HAND")%></td> <td style='border-right: 1 solid #808080'><%=rs3("QUANTITY ON ORDER")%></td> <td><%=rs3("QUANTITY COMMITTED")%></td> <td></td> <td><input type="text" size=10 name="estDel"></td> <td><a href="javascript:;" onClick="MM_openBrWindow('../production/complete.asp?po=<%=rs3("PURCHASE ORDER NUMBER")+"&vc="+StrVendor%>','po','scrollbars=yes,resizable=yes')">X</a></td> </tr> <% rs3.movenext loop %> <% rs3.close sql="SELECT * FROM northprod2 WHERE ([VENDOR NUMBER] = '" + strVendor sql = sql & "' AND [PICKTICKET TYPE]='N' AND [BIN LOCATION]='ASL' AND [QUANTITY COMMITTED]=0) " + sOrderBy2 rs3.Open sql, Cm3, 3, 3 do until rs3.eof %> <tr> <td style='border-right: 1 solid #808080'><a href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?pt=<%=rs3("PICKTICKET NUMBER")%>','pt','scrollbars=yes,resizable=yes')"><%=rs3("PICKTICKET NUMBER")%><%=rs3("PICKTICKET TYPE")%></a></td> <td style='border-right: 1 solid #808080'><%=rs3("LINE NUMBER")%></td> <td style='border-right: 1 solid #808080'><%=rs3("DATE")%></td> <td style='border-right: 1 solid #808080'><a href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK NUMBER")%>','bom','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs3("STOCK NUMBER")%></a></td> <td style='border-right: 1 solid #808080'><%=rs3("STOCK DESCRIPTION")%></td> <td style='border-right: 1 solid #808080'><%=rs3("UNIT OF SALE")%></td> <td style='border-right: 1 solid #808080'><%=rs3("QUANTITY ON HAND")%></td> <td style='border-right: 1 solid #808080'><%=rs3("QUANTITY ON ORDER")%></td> <td><%=rs3("QUANTITY COMMITTED")%></td> <td> </td> </tr> <% rs3.movenext loop response.flush rs3.close end if set rs3=nothing %> <tr><td colspan="9">  </td></tr> <% end if next response.flush cm3.close set cm3=nothing Tag: Check if Table existsin the database Tag: 138494
 - 4
 - Finding Highest Value In Array OK, I've got a 1-based array of type Integer that could be any length. I'm set up so that we know that each of the values will contain an Integer, and there's no chance of a value being Null. If I want to find the single highest value in that array, would this code be sufficient, or can someone help be construct better code? intHighest = 0 For I = 1 To UBound(intID) - 1 If intID(I) >= intID(I + 1) Then intHighest = intID(I) Else intHighest = intID(I + 1) End If End Sub Tag: Check if Table existsin the database Tag: 138489
 - 5
 - Passing database info to a page allowing user input and passing to another database Hi I really am going crazy! I'm using VBScript, ASP, and SQL My page reminds me of a shopping cart but looking at shopping cart examples has not helped! What I have is a page that brings in products ordered by a certain company. Along with those values, I'm creating a text box at the end of each record that a user may or may not enter in an estimated delivery date. If the user does enter in a date I want that row of data submitted to a table with that date. First of all I need to check to see if the user has entered anything in the text boxes. I was trying to go through them with a for next loop using document.form.elements.length as my ending count but that did not seem to work. Also another problem I am facing is making sure all the records on the page are being looked at. I wanted to put my if request.form("submitTop") <> "" underneath where my recordset is open, but this too does not work. So what I need to happen when the submit button is hit is: A way to check and see if something is entered in a text box, if it is then add that line of data pulled from my first table and the user input estimated delivery date value into a new table. I need to make sure I go to each record in my list to check to see if anything has been entered in the text box. Thank you very much. Any help on any little bit of my problem would be greatly appreciated! Renie83 Tag: Check if Table existsin the database Tag: 138480
 - 6
 - mailto and line feed Hi Freinds, I am using <a href="mailto:pashour@mail.all-in-1.com?subject=test&body=line1 of body , line 2 of body">mail me in 2 lines</a> but how can I use line break in body of my email ? between line 1 of body and line 2? Thanks in advance, Pat Tag: Check if Table existsin the database Tag: 138479
 - 7
 - Finding Empty/Null Greetings.. doing some WMI in ASP... here's the code: Set objLocator = CreateObject("WBEMScripting.SWBEMLocator") Set objWMI = objLocator.ConnectServer(strPC, "root/cimv2", strUsername, strAdminPass) Set colItems = objWMI.ExecQuery("Select * from Win32_ComputerSystem",,48) For Each objItem in colItems uName = Mid(objItem.UserName,6) Response.Write("User: " & uName) Response.Write("") Next I mid the username at 6 to chop off the domain and backslash. What I want to do is to see if either uName or objItem.UserName is Empty/Null or equal to "" -- however, trying all three of those methods doesn't return a true. ex. If(objItem.UserName = Empty) Then Response.Write("Empty.") End If Same if you change Empty to Null or "" and replace the objItem.UserName with uName. Any suggestions? Rob Tag: Check if Table existsin the database Tag: 138477
 - 8
 - printing iis/asp hello all. i want to create an output document from an ASP page. i would like to read data from a database AND based on a login, route the formatted output(line by line) to a network printer. i have all the network printer name's in a database table. i think i want to use WSH and ADO running under IIS, to connect to a network printer, and pull the data from the database and iterate thru a "printer write" routine.. can anyone help?.. any ideas?. i cannot find any documentation in WSH about writing to a network printer. i see much about creating a connection to a network printer, nothing about how to use the connection. Thanks in advance, Joe. Tag: Check if Table existsin the database Tag: 138472
 - 9
 - INNER HTML I have simple exaple: <script language="vbscript"> sub preglej() msgbox document.getElementsByName("div2").item(0).innerHtml end sub </script> <div id="div1" name="div2"> <table><tr><tD>test example</td></tr></table> </div> it works ok. But if I change the div tag: <table> <div id="div1" name="div2"> <tr><tD>test example</td></tr> </div> </table> then the msgbox is empty, I cant find inner html any more Does anybody know the answer, Simon Tag: Check if Table existsin the database Tag: 138465
 - 10
 - how to find domain controller? Our company has an Intranet served from one central location with offices located throughout the country. Many of the files available for download are mirrored at the local offices to conserve bandwidth. How can I determine where the user is and have them download from the local source? Since each office has its own domain controller I was thinking there might be a way to detect where they are located. Right now everyone has a mapped drive set to their local file server. Some users are complaining that the drive letter assigned for this is interfering with other software. I'm looking for a vbscript solution to determine the domain controller from inside IE. I've been told that our IP addresses assignments can not be used to determine location. thanks LJB Tag: Check if Table existsin the database Tag: 138460
 - 11
 - frame events attachment duration Hi all, I've made a client-side HTA application page including an Iframe ("myiframe") to navigate on the Web and get and parse content. To detect that myiframe has finished loading the Web pages and I'm allowed to parse content, I used myiframe.onload event with intrinsic attachment, just declaring sub myiframe_onload() ' mycode end sub Everything was fine until I had problem on different PC because IE version 5.0 doesn't fire Iframe onload event (this event fires only from IE 5.5)! So I try to use myiframe.document.onreadystatechange and onclick event but this is a very hard work to learn how and where to place them. I think these events are attached as long as the document is the same. If the document is changed (because a navigation) the attachement is void, so we have to attach the new document events again. I think also these events must be attached after navigation has been programmed because attachment is sticked to a particular document. For onclick event, I use a settimeout statement with a 2 seconds delay after the navigation id asked. 2 seconds is fine because I don't think the user may click the document before 2 seconds after unload. But for onreadystatechange it's more difficult to fix the right delay because sometimes the Web answer is slow, sometimes not (specially if the server use caching) And of course, I navigate to Web pages which have frames... and I have to wait all frames are loaded. I succeed with onclick event this way : j=0 myiframe.navigate URL inttimerid = settimeout ("myiframe.document.onclick= getref ('iframedoconclick')",2000) ' ------- sub iframedoconclick() j=j+1 alert= "iframe.length= " & myiframe.length & " j=" & j inttimerid = settimeout("wait",2000) end sub ' -------- sub wait() if myiframe.length >=2 then for i=0 to myiframe.frame1.document.links.length - 1 results.frame1.document.all.tags("a") (i).target="_parent" next results.frame1.document.onclick= getref("resdoconclick") end if end sub ---------- I tried quite the same thing for onreadystatechange this way : j=0 results.navigate URL inttimerid = settimeout ("iframe.document.body.onload= getref('iframedoconchange')",2000) ' -------- sub iframedoconchange() if iframe.document.readystate = "complete" then j=j+1 if j=1 then URL = "http://" & host & myiframe.document.all.tags ("frame").item("frame1").src myiframe.navigate URL inttimerid = settimeout ("results.document.onreadystatechange= getref ('resdoconchange')",2000) end if end sub This doesn't work everytime for the first navigation. Is there an other way for attaching these events? Thanks for any help Tag: Check if Table existsin the database Tag: 138455
 - 12
 - control dialup via script Hi, is it possible to control the dialup via script? I've got a set of numbers which i want to run through. If a number is not availible the script should take the next number in the list until it comes through. Can anyone please give me a hint how i can make this? Thanks in Advance Markus Tag: Check if Table existsin the database Tag: 138444
 - 13
 - Determine If a User Is Logged On Does anyone know how to determine if a user (any user) is logged onto a system in a script? I need have a script take a different action if a user is logged on the system. Tag: Check if Table existsin the database Tag: 138429
 - 14
 - Desperate developer trying this news group If this is the wrong NG please let me know what is the right one vb6 newsgroup could not help. Or if there is a resource pointing as Outlook 2003 and Inserting HTML into email that would be good. I have a strange problem, function is below for anyones help. I wrote an application where part of it creates a vb6 report saves it to disk as a html report, then reads it back into a string and puts it into an outlook 2000 email msg and saves it to draft folder. This has worked perfictly for 2 years using Outlook 2000 , Now client has upgraded to Outlook 2003 and puting html into email is giving range results. When the outlook message via my code issues a 'myItem.Save' a blank body is created in draft folder address & Subject are filled out ok When I look at source of saved email it only has header html code nothing else. If I pass a standard text file not HTML into 'myItem.HTMLBody' it does the same a blank emial body To further confuse the issue, If I change 'myItem.HTMLBody ' to 'myItem.Body' and pass either the html file or plain text file is puts it into the message correctly and saves it but html is not rendered of course.. My question do I have to handle HTMLBody different in outlook 2003 than 2000. Can someone offer some sugestions or enlightenment on my problem,. Thank You Don Grover '************** Code below ****************** Private Sub SendOutlookEmailReport(ByRef sFilename As String, ByRef sSubject As String) On Error GoTo errOutlookMail 'readin exported html file If LenB(glbEmailAddress) = 0 Then Exit Sub End If Dim myOlApp As New Outlook.Application Dim olNameSpace As Outlook.NameSpace Dim myItem As Outlook.MailItem Dim newRecipient As Outlook.Recipient Dim myAttachments As Outlook.Attachments Dim iFileAttachCount As Integer Dim iLineCount As Integer Set myOlApp = CreateObject("Outlook.Application") Set olNameSpace = myOlApp.GetNamespace("MAPI") Set myItem = myOlApp.CreateItem(olMailItem) Set myAttachments = myItem.Attachments Set newRecipient = myItem.Recipients.Add(glbEmailAddress) 'read in exported html file if not available exit sub Dim iFileNum As Integer, sMessage As String, sStringInput As String If FileExists(sFilename) = True Then iFileNum = FreeFile Open sFilename For Input As iFileNum Do While Not EOF(iFileNum) iLineCount = iLineCount + 1 Input #iFileNum, sStringInput sMessage = sMessage & sStringInput Loop Close #iFileNum Else sMessage = vbCrLf & "File not found " & sFilename & vbCrLf & conEmailMissing & sKeyCompany End If myItem.To = glbEmailAddress ' myItem.BCC = Trim$$(sCCEmailAdd)'Carbon copy email address if we need myItem.Subject = sSubject & " Created: " & Format$(Now, "dddd dd mmm yyyy") '** This is the problem line here below myItem.HTMLBody = sMessage If chkDelEmail.Value = vbChecked Then myItem.DeleteAfterSubmit = True myItem.Categories = "MYOB" myItem.Importance = olImportanceHigh myItem.Sensitivity = olPrivate myItem.RecipientReassignmentProhibited = True myItem.AlternateRecipientAllowed = False 'send additional file ? to admin If FileExists(sAppPath & "\alltasks.txt") Then iFileAttachCount = iFileAttachCount + 1 myAttachments.Add sAppPath & "\alltasks.txt", _ olByValue, iFileAttachCount, "Special Information" End If If chkShowEmail.Value = vbChecked Then myItem.Save myItem.Display True 'show the email if check box selected LoggingToFile "Previewed " & sSubject & " Advice to " & glbEmailAddress & " Using OutLook" Else If chkSendEmail.Value = vbChecked And glbEmailAddress <> "no@address" Then myItem.Save myItem.Send 'send if checked or save if not LoggingToFile "Sent " & sSubject & " Advice to " & glbEmailAddress & " Using OutLook" Else myItem.Save End If End If 'if unchecked then remove after sending If chkSaveAdvices.Value = vbUnchecked Then If FileExists(sFilename) = True Then Kill sFilename End If leavesub: 'CLEAN UP glbEmailAddress = conEmpStr 'reset global email address we have sent it If Not newRecipient Is Nothing Then Set newRecipient = Nothing If Not myAttachments Is Nothing Then Set myAttachments = Nothing If Not myItem Is Nothing Then Set myItem = Nothing If Not olNameSpace Is Nothing Then Set olNameSpace = Nothing If Not myOlApp Is Nothing Then Set myOlApp = Nothing Exit Sub errOutlookMail: MsgBox "Problem sending EMail report" & vbCrLf & _ "To: " & glbEmailAddress & vbCrLf & _ "Error: " & Err.Number & vbCrLf & _ "Desc: " & Err.Description Err.Clear ' Clear Error object GoTo leavesub End Sub Tag: Check if Table existsin the database Tag: 138425
 - 15
 - AddGroup Member Anyone know why this script states an error that the user does not exist when in fact it does. why does it wofk fine when you use "computername" Any Ideas would be greatly appreciated. Ben Addusertogroup "." Sub Addusertogroup(strDomain) Set objGroup = GetObject("WinNT://" & strDomain & "/Administrators,group") Set objUser = GetObject("WinNT://" & strDomain & "/UpdateExpert,user") objGroup.Add(objUser.ADsPath) End Sub Tag: Check if Table existsin the database Tag: 138414
 - 16
 - how can I control InputBox size Example; name = InputBox("Input Your Name: ") Above code very usuful however the showing Input Box is normally too large for most of cases. Is there any way to control its screen size? Thanks in advance. ----------------------------------------- Osamu Terao Email: hag83950@ams.odn.ne.jp ----------------------------------------- Tag: Check if Table existsin the database Tag: 138409
 - 17
 - way to enumerate and change permissions on registry keys Is there a way to enumerate, remotely, all the registry keys under HKEY_USERS, and change the permissions on each instance of HKEY_USERS\xxxx\software\classes (where xxxx is different for each instance)? Any help is appreciated. Tag: Check if Table existsin the database Tag: 138408
 - 18
 - send 2 jpegs from my pictures folder I need a script that will open the My Pictures folder and send the first = two jpeg files that are there to two email recipients. If anyone knows of a script in existence that is something like this I'd = be very grateful to hear about it. Thanks, MC Tag: Check if Table existsin the database Tag: 138407
 - 19
 - Delete Registry key inclusive all subkeys Hi! Is there any code that give me the chance to delete a Registry key with all subkeys? I do not want to delete all subkeys first and then the "main key" because I don´t want to enumerate all subkeys first. Tom Tag: Check if Table existsin the database Tag: 138401
 - 20
 - FrontPage 2004 I've heard that FrontPage 2004 is at Beta 2 stage. Where can I find out more about it? I've been planning to upgrade from FP2000 to 2002, but maybe I should wait. Is the beta available for download? Thanks in advance. -- David Martin Web Developer Info Blue Mountains - Mountains of Blue Mountains Info http://info.mountains.net.au Tag: Check if Table existsin the database Tag: 138394
 - 21
 - the behavior of function chr() changed? according to MSDN, "The range (of the parameter of this function) can be 0 through 255 for SBCS characters and -32768 through 65535 for DBCS characters". so chr(45217) should be a valid function call. and it did so in my program until the Sunday or Monday of the past week. now what I got is an error: Invalid procedure call or argument: 'chr' it is so weired. can anybody tell me why? to reproduce the problem, just save the following line into a .vbs file and run it: wscript.echo chr(45217) Tag: Check if Table existsin the database Tag: 138390
 - 22
 - Renameing local Administrator Account I need to change the Administrator accounts on about 100 local pc's there is no Active Directory in this environment. Anyone know why this script will not work or perhaps know another way to accomplish this task with a script. Thanks, Ben strComputer = "." Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user") objUser.SetPassword "Pa$$w0rd#" objUser.SetInfo Tag: Check if Table existsin the database Tag: 138382
 - 23
 - Scripting help please Good Afternoon ALL, I am looking to write a (VBS)WMI script that will do a few things. I have a novell server environment so all these changes are Local to the Win2k Workstations. 1. Rename the Administrator account and assign a new Password. 2. Create a User, Paswword, Set the password to never expire, and add it to the Local Administrator Account. 3. I would also like to add some text to the description field of the user(if that is possible scripting wise?) I will Distribute the .vbs file through Novell. The User base has Admin rights to their local machine. If anyone could help me out with this either point me to where I can read about how to write the script myself or if anyone has a sample script they could give me that would be great too. Basically I am looking for any help I can get on this. Thanks in advance EveryOne. Ben Dunning Tag: Check if Table existsin the database Tag: 138380
 - 24
 - Garbage Collection in VBS Hi Can anyone tell me the implementation of GC in VBS for example. 'Program 1 do dim x ' do sth here for x here loop should i insert Set x = Nothing inside the loop in order to release memory space at runtime (Assume infinite loop, so wscript.exe will not end) Tag: Check if Table existsin the database Tag: 138378
 - 25
 - NetScape Loop or Delay "Tony" <ftbcoaches@aol.com> wrote in message news:05cd01c34879$d4fe3ca0$a601280a@phx.gbl... > When some people using Netscape go to our site, they go > into a loop. All other browsers work without a problem. > I do not know if the <Form> </Form> is the problem (Where > I place them) or if it is something else. Anyone have any > ideas? If I click on start in the lower left hand corner or move the side bar on the side of the page submitting information (Password Etc.) it brings up the next page OK. It seems to be waiting for something before it shows the next page? What page? Any Page! how do you click on start? Move mouse on top of Start! Tag: Check if Table existsin the database Tag: 138376

My objective is to check the TABLE in the MS Access
database whether it exists or not. If not, I will create
anre TABLE. Grateful if you could help!
I thought this should be quite easy but I could not find
any source on the Interent! Thanks in advance!

Top

Re: Check if Table existsin the database by Han

Han
Wed Jul 16 02:33:12 CDT 2003

/on error resume next/ is one way.

on error resume next
connection.execute "create table table1 (c1, text)"
msgbox err.number

Always you should have a table. Or, openschema,

set r=connection.openSchema(20)
r.filter="table_name='table-name'"
msgbox r.bof

"tim" <timlee@hkem.com> wrote in message
news:095d01c34b67$2c1b57d0$a101280a@phx.gbl...
> My objective is to check the TABLE in the MS Access
> database whether it exists or not. If not, I will create
> anre TABLE. Grateful if you could help!
> I thought this should be quite easy but I could not find
> any source on the Interent! Thanks in advance!

Top

Re: Check if Table existsin the database by J�rg

Jörg
Wed Jul 16 02:42:25 CDT 2003

Hi Tim,

you can use the ADOX.Catalog. There you can fild an list of any tables in a
Database. And an Append-Function to add one or two...

Jörg

"tim" <timlee@hkem.com> schrieb im Newsbeitrag
news:095d01c34b67$2c1b57d0$a101280a@phx.gbl...
> My objective is to check the TABLE in the MS Access
> database whether it exists or not. If not, I will create
> anre TABLE. Grateful if you could help!
> I thought this should be quite easy but I could not find
> any source on the Interent! Thanks in advance!

Top