Visual Basic :: Retrieving Function Names From Asp Page Using Vb

Sql Query: Retrieving Two Names
Here's my problem: I have 2 table namely Names and Partners. In NAMES i have fields Id, Lastname and Firstname. In PARTNERS I have Id, Name1 and Name2. In Partners.Name1 and Partners.Name2, the values are the unique Id from NAMES. So how can I retrieve this two names in a single query and display the lastnames and firstnames in the listbox. The output is like this:

Quote:

listbox:
Martin, John and David, Mary

I tried already some code with multiple queries and it became so complicated. Please help me.

Retrieving File Names
I have created a VB program a while ago and now I am making a few ajustment to it. One thing that I would like to change is the File Retrieve function that I have. Currently the user types in the location of the files in a text box. What I would currently like to do is make the driveListBox, so that the user can just go in there click on the drive, select the folder and then the files that need to be used. This is sort of like all the opens in windows now. I know that this is possible but dont have enough knowledge to create this my self.

Anyone Who knows anything about this please help me out.

Please provide code if possible.

Thanks

Help With Retrieving File Names.
I am having a hard time finding some information on how to get file names into strings.

What I want is to search a folder on my hard drive (ie...C:programs raining) to find all the files of a certain extension (ie... *.cor). As the files are found, I want to set the file name to a string variable array and count the amount of files with that extension.

Can anyone help me?

Retrieving Table Names
I'm using adodb throughout my app so far but that doesn't mean I have to keep that way (although I do need to keep using ODBC DSN Connection strings, not references to filenames).

I'm trying to get hold of all the user table names in my (Access) database.

If I go into Access and run an SQL query of

Code:
"SELECT Name FROM msysobjects WHERE (type = 1) AND (flags = 0) ORDER BY name;"

I get all the table names, as expected. But if I try it in VB, as in

Code:
' adoSearch has been Dim'd As New adodb.Recordset elsewhere
Dim db As ADODB.Connection

Set db = New Connection

db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=CARS;uid=cars;pwd=cars;"

' Open with SQL
adoSearch.Open "SHAPE {SELECT Name FROM msysobjects WHERE (type = 1) AND (flags = 0) ORDER BY Name}", db, adOpenStatic, adLockPessimistic

' ...

I get runtime error -2147217911 (80040e09):
Record(s) cannot be read; no read permission on 'msysobjects'. And the adoSearch.Open line is highlighted.

What's wrong with that? Why can't I do it in VB if it works in Access?

Is there another better/easier/working way to do it? I presume this isn't an obscure thing to do!

Thanks all,

AndyC
London

------------------
* * * * * * * * * * * * * * * * * * * * * *
* *
* AndyC *
* London *
* email: andy.collyer@bigfoot.com *
* *
* * * * * * * * * * * * * * * * * * * * * *

Retrieving Table Names From Mdb
Hello VBcitizens,

I'm a bit fresh at working with databases in VB,

I'm making a simple .mdb reader, I'm working with MS-ADO & MS-Datagrid controls,
after i select a database i want to retrieve a list of the tables that are in the database.

I couldn't findout how i can retrieve the table names, this is what i got so far;

How can i do this? thanks at front.

Code:

Option Explicit
Private sDB As String

Private Sub TpmOpen_Click()

    CDLG.FileName = ""
    CDLG.Filter = "MDB Files (*.mdb)/*.mdb"
    CDLG.DialogTitle = "Open Database"
    CDLG.ShowOpen

    If Not CDLG.FileName = "" Then
       sDB = CDLG.FileName

       'retrieve a list of tables and add into a ComboBox

    End If

End Sub

Private Sub Combo1_Click()
    Open_MDB sDB, Combo1.Text
End Sub

Private Sub Open_MDB(sFileName As String, sTableName As String)

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
                              "Source=" & sFileName & _
                              ";Persist Security Info=False"
    Adodc1.CommandType = adCmdTable
    Adodc1.RecordSource = sTableName
    Adodc1.CursorLocation = adUseClient

    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Refresh

End Sub

Retrieving Table Names(newbie)
Hi,

What I would like to do is this:

I have a database(database1)

I have tables with various names that follow a naming convention.
ie. 3VSheaves, 5VSheaves, 8VSheaves, 3VBelts, 5VBelts, 8VBelts, MotorShafting, MotorFrame

What I would like to is be able to retrieve the names of the tables in the database, search them and extract information from the table name to present to the user in a combobox.

ie. the combobox would have a list containing 3V, 5V, and 8V, based on a search done to the table names looking for the word "Sheaves". I could then formulate my select statement based on the user input which would populate a secondary combobox with a field from the corresponding table.

This would allow me to enter new Sheave information to the database and not have to update my code(If I were to hard code it as a table name for SQL statement purposes). I looked at the tabledef object, but I do not understand it. I also looked at all the ado tutorials referred to on the site.

I hope I was clear with my situation. Any help would be greatly appreciated.

p.s. Sheaves and Belts are used to transmit power from two shafts that have parrallel axes, like the belts in your car.

Retrieving All Methods/functions Names
Is this possible? Lets say i have a module where i have for example 500 methods/functions. Now i would like to loop through this complete module (at runtime) and place their names into array. Any ideas?

Need Help Retrieving Nested Group Names
Does anybody know how I can see the group objects within global groups?
I am working on a program that will print out users and groups within local & global groups in ActiveDirectory.
I can pull Global groups and users out of local groups with the following code, but it cannot see global groups nested in global groups.

strDomain = "WinNT://" & cmbounit.Text & "/"
grp = cmbogroup.Text
Set usergroup1 = GetObject(strDomain & grp)
For Each user In usergroup1.Members
MsgBox user.Name
MsgBox user.Class
Next

Any ideas are greatly appreciated... Thanks.

Retrieving All File Names In A Directory!
Hi, I'm making a program that resembles WinAMP in many ways. I want it to be able to retrieve all MP3 files within a directory! How do I do that?? And also, what control can I use to play MP3 files??

Thank you for any suggestions!

>> Retrieving File Names In A Directory….
Any one know how to retrieve ALL the files in a certain directory, one-by-one? For e.g: displaying all the files in a directory onto a list:

1. <file1>
2. <file2>
and so on…

Need Help On Retrieving Table Names From Database
I have a listbox on my form which i need to fill with the table names from an Access database. I have used the following code to do this, but i think there is a reference missing and i don't know which one, because
Code:

Dim daSQL = New SQLDataAdapter(sSQL2, Connect)

and
Code:

Dim Connect As New SQLConnection(sConnectionString)

keep coming up in red and saying that the end of statement was expected ?!?!?!?

Rather Confused, please help - Code Follows:

Code:

While Not rsACD1.EOF
Dim myItem As String
Dim sConnectionString
Dim dtTables As New DataTable
sConnectionString = cnACD1
'Create connection object
Dim Connect As New SQLConnection(sConnectionString)
Dim sSQL2 As String
sSQL2 = "Select Name from dbo.sysobjects "
sSQL2 = sSQL2 & "where OBJECTPROPERTY(id, N'IsView') = 1 "
sSQL2 = sSQL2 & "OR OBJECTPROPERTY(id, N'IsUSERTABLE') = 1 "
Dim daSQL = New SQLDataAdapter(sSQL2, Connect)
daSQL.Fill (dtTables)
lstACD1.DataSource = dtTables
lstACD1.DisplayMember = "Name"
Wend

Retrieving Control Names Of Another Process??
Hello!!!

I am trying to develop a help tool for an already programmed Intranet
application. That is why the "help tool" will run as an independent
process.

What I need to retrieve (from the "help tool") is at least the name
and position of the field selected by the user (the application), so I
am able to search in a database the descritpion of the field the user
selected.

Thanks in advance
Pablo Stapff

Retrieving All Window Names On A Users' Desktop
Hi,

I'm currently trying to write some code which will enable me to get the window 'title bar' text for all open applications on a users desktop. I've tried using EnumDesktopWindows but this returns hidden & system windows as well as Word, Excel etc...

Does anyone know how to return just the application windows that the user can see. (i.e. Just the ones that are visible in the bottom windows bar) ??

Thanks
Sunil.

Retrieving Table Names From Access Database
How can i retrieve table names from Database designed in MS Access through VB6 as a front end?

VBA: Retrieving Sheet Names, And Access Column Headers
Hi,

I am writing a VB6 application that would allow a user to select data from a variety of data sources, including Excel and Access.

For Excel------------------------------------------

I'm trying to retrieve sheet names from a user selected workbook.

I've declared all the objects and set them appropriately, but I'm trying to fill a combo box with the sheet names so they can select it for use.

I'm basically looking for an Excel.Workbook.Worksheets. (Name?) property.

For Access------------------------------------------

I want to be able to then allow them to use selection criteria based on the column headers.

I am looking to retrieve these headers and place them into combo boxes as well.

--------------------------------------------------------

I'm just not clear on how to retrieve these properties in a VB app.

Thanks one and all for your help.

Tojam

Retrieving The Column Names Of A Table - Error Using DESCRIBE?
Hi ppl,

I'm trying to obtain a list of all the column names for a table (using MySQL/VB) - if I use the "DESCRIBE table" or "SHOW COLUMNS FROM table" expressions, I always get "Data provider returned an E_FAIL status", even though I can sit at a MySQL prompt and type that quite happily Any ideas why? Here's the code I'm using:
Code:
    Dim rs As ADODB.Recordset

    Set rs = New ADODB.Recordset
    With rs
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .Source = "SHOW COLUMNS from users"
        .LockType = adLockReadOnly
        .ActiveConnection = db
        .Open
    End With

    rs.MoveFirst
    While Not rs.EOF
        fieldlist.AddItem (rs!field)
        rs.MoveNext
    Wend
    rs.Close

Cheers

-rich

Retrieving The URL Of A Web Page Using VB?
Hi,

Is there any way to retrieve the URL of a web page using VB?

I am using Word 97 VBA and need to retrieve the full URL of a word document which has been linked to.

Thanks

Retrieving Web Page
I have this web page, and I'd like to download also its sub-pages, usually accessible by clicking the button.
How to accomplish this?
http://www.cinematocasa.it/palinsesti.asp -- Jumpjack --

Retrieving Data From ASP Page
Forgive me, I'm not too familiar with ASP.

I am browsing a site that containt an input box. Basically, you enter in a 4 digit number, 0000 to 9999, and it returns dynamiclly via ASP (in HTML form) data based on that number (in our case, a street corresponding to that number).

Is there a way I can get the server to give me ALL the data (all 10,000 items) in one dump, or something?

P.S. To preempt any accusers, I wouldn't call this "hacking". I can sit there all day entering the data, one by one, and copying the output, but i don't have 200 years to spare. The data is there. I just want a faster way to get it.

here is the relevant code, more or less.

Code:
<form action="/getnumber.asp" method="post">
<input type="hidden" name="action" value="Save Form Data" />

<p>Number:
<p><input type="text" name="id" maxlength="4" />

<input type="submit" value="Get location" />
</form>

Retrieving Text From Web Page
I want to write some information in a web page, and then retrieve the result from the following page (a string in the middle of the text in that page). Is that possible? Could anybody start helping me?

Thanks in advance!!!!!

Retrieving A Web Page's Source
Hiya well heres the problem. I'd like to extract a web page's source. I haven't got a clue how to do it and I've tried looking around and searching Google but without any results. Would any of you guys know how to do it? Any help would be greatly appreciated!! Thanks!

Retrieving Https Page Using Certificates
I am trying to download a specific webpage using a digital certificate. I"m not sure how to go about this inside vb.

I want to pick the digital certificate from the certificate store and use it to download the contents of a webpage. I've already written the code to choose the certificate I am just not sure how to use it to download the webpage.

Is there an inet function or something you can pass the digital certificate too before you download the page?

If anyone has any idea please let me know.

Kelly

Retrieving HTTPS Page Info
How can I retrieve the server response info from an HTTPS page (CGI)? In the page I have a login form, and I only need to retrieve the server name which is shown just before the username and password fields.

UPDATE:

I'm now using this with the the Inet control which supports HTTPS to attemp retrieval of the login page:

Code:
Inet1.AccessType = icDirect
Inet1.Protocol = icHTTPS
Inet1.RemotePort = 443
Inet1.URL = txtURL.Text

rtbMain.Text = Inet1.OpenURL
But this doesn't return anything for the https pages... it does return the server error page when using the "http://..." address, which is refused by server, but nothing for the https page. Could this be because the server provides some kind of certificate which must be accepted before attemp the login?

Retrieving Page Numbers In Word VBA
Thanks for your help, but I wanted to determine the current page number at any given point, not the total number of pages. Any ideas? Thanks.

Retrieving HTML Text From A Web Page
I'm trying to write a search engine 'robot', which works, except for one major detail. The program uses a file on a hard drive as opposed to the text on a web page. ie: it uses file.asp instead of the text you'd see surfing to file.asp over the internet. My question is, how can I grab all of the text from a web page after it's been opened in a browser? Thanks!
-Aaron

ASP.NET Passing Argument From Code Behind Page To Client Function In Another Page
I am Using a VBSCRIPT function where an argument is needed.

This Page is called from another page.
Response.Redirect(Print.aspx?url=http://localhost/sample.doc")

I need the url to pass to VBScript Function. But url is available in Server Side. How to pass it to client Function.

I am using ASP.NET

Thanks in Advance.

Get Names From A Page
Im making a program for a game called lifehit.com where you click a button and it loads a bunch of names from a website to a list.

Dont understand what im saying then :
go to www.lifehit.com and on the login do this
username : tester142
password : kennyrogers

then once logged in go to http://lifehit.com/findplayer.php?se...s=find+players i want to be able to take the user names off that website and load them into a list.
Is there a way to do this , if so please help me.

Somebody Help Me!!Retrieving Images From A Databse To Show Up On A Web Page
Hello Again
How are you doing?

I am a bit stuck trying to retrieve images from the database and show them on a web page. I am almost certain that to be able to do this I am going to have to create a component in VB which will first fetch all the images from the database into an ADODB Recorset Object. The rest I am not sure.

I would really appreciate it if you could help me out with this. As of now I am clueless about this. So please help me out.

My email is: orahul@yahoo.com
Rahul

Retrieving Images From A Databse To Show Up On A Web Page
Hello Again
How are you doing?

I am a bit stuck trying to retrieve images from the database and show them on a web page. I am almost certain that to be able to do this I am going to have to create a component in VB which will first fetch all the images from the database into an ADODB Recorset Object. The rest I am not sure.

I would really appreciate it if you could help me out with this. As of now I am clueless about this. So please help me out.

My email is: orahul@yahoo.com
Rahul

Retrieving An Excel Sheet Checkbox Data In ASP Page?
Hi All,
I have and excel sheet with a Checkbox field.I need to read the checkbox data(if checked then true else false) from an ASP page and need to update a database.Can anyone pls help me??
Thanks in advance
Rajeev

Retrieving Value From A SQL Function
Hello!!!

First of all, thanks so much for reading this I'm pretty new with SQL, so I have a feeling this might be an easy thing to do, I hope...

I have an access project that connects to a SQL database.
I have a user defined function in the SQL database that
returns the system_user (here goes the first question: do I really need a function to retrieve the system_user? or can I get it straight from Visual Basic?).

The second question is: How do I retrieve that value and use it in a form? I guess I could try something like Openfunction, but I keep getting error messages "Object needed". I guess I must be doing something wrong....

I need to grab the system_user and put it on a textbox.

Thanks in advance for your help

Nathalie

Retrieving Function/procedure Name
how do i get the name of the current procedure or function that is running.

i want to pass it as parameter to err.raise

thanks

What Is The Function For Retrieving The Natural Number?
hello,

I have number, it can either x or x.5, what is the function to use on this num
if I retrieve the x everytime?

thanks

Problem Retrieving Recordset From Function
Okay, I'm writing an inventory program that uses a DSN in order to access a MSAccess database.

Before, whenever I needed a recordset, I'd declare all the variables, open the db, open the record, etc in the sub itself.

I wanted to change it so I could just call a function and get the requested recordset. However, now that I've done that, I keep getting an error saying that the dataset is closed.

Here's what I've done (only showing relevant code):

Public rsTemp As New ADODB.Recordset
Public dbTemp As New ADODB.Connection

Public Sub Startup() 'run at startup
dbTemp.Open "dsn=" & DSN
End Sub

Public Function GetRecords(DSN As String, sql As String) As ADODB.Recordset
'ignore the DSN parameter
Dim grRS As New ADODB.Recordset

'Open the recordset
grRS.Open sql, dbTemp, adOpenDynamic, adLockOptimistic

'send it back to the sub that asked for it
Set GetRecords = grRS

'Close the recordset
grRS.Close

End Function

Public Sub PROBLEMSUB()

'Getting recordset and putting into rsTemp
Set rsTemp = GetRecords(DSN, "SELECT Value From Environment Where (Setting='CompanyId')")

'Retrieve my data
'THIS IS WHERE THE PROBLEM IS. VB is telling me that this recordset is closed! What am I doing wrong?
WarehouseId = rsTemp("Value")

End Sub

Is There A Way To Perform A Function On A Field While Retrieving A Recordset?
OK, this may sound pretty weird, but for performance reasons, I would like to know it.
I have a nice database contains certain problems. I write the problems that the user enters down in the database in RTF format. Now is there a way that I can retrieve this field (Problem) and apply the function RTFToText to it? (this function I 'made' myself)
I want to be able to search the database, but when you would search for example for "f1", it might appaer in RTF codes, so it would select that record, while it shouldn't.
I hope I made my problem kind of clear.
Thank you for ANY response.

Search before you ask - if you don't know where to search, ask before you search

Tricks With Function Names
Is it possible to assign the function name to a string variable from within that function?

e.g.

Private Function ReturnFunctionName() As String

dim fnName as string

fnName = unknownMethod

end function

I want fnName to be set to ReturnFunctionName in this case

The reason I want to do this is for a global error handler that can return the function name in which the error occured.

Enumerate Function Names?
I want to enumerate function names and call the function based on the value passed. It can be done with a select case statement, but this is more efficient. If I have 3 subs or functions, is there a way to call them from one statement?

Code:

Public Enum FuncNames
    Funct1=0
    Funct2=1
    Funct3=2
    etc.
End Enum

Somewhere later...

    DoAFunction "Avalue", 0

Public Sub DoAFunction(byval thisVal as Variant, Func)

    Do some stuff with thisVal...
    Now Call the other sub
    Func
End Sub

Thanks,

Scott
The worst thing about wearing glasses is them being on your face.
Nothing is impossible, it just looks that way.

Edited by - ScottinTexas on 2/5/2004 10:30:36 AM

How To Get All Function Names And Constants Used In A DLL
How to get all function names and constants used in a DLL

Enumerate Function/sub Names Within Module(s)?
Hi, does anyone know of a way to enumerate all of the function/sub names within a module, or within an entire project? I'm looking for a quick fix to return all function names, and then filter out certian types of functions by their name prefix, and return them to the user.

How To Pass File Names To A Function?
Below is a function from Tim Hastings (http://www.nonhostile.com/). This is a post from his blog. At the bottom of his code you can see he demonstrates his function with some html fed into the function.

I would like to know how you could use a function similar to this but instead of some html passed into the function...be able to pass the function a file or a group of files. How would you pass this function a file name or group of file names?

I'm thinking something like this...

Code:
Dim HTMLFile As String
HTMLFile = Dir("C:TEMP" & "*.html")
HTMLClean (HTMLFile)

Of course, this doesn't work. I think it has to do with the byVal reference in the function but I'm not sure and don't know what it should be. Any help is greatly appreciated. Thanks.

Code:
Private Function HTMLClean(ByVal strText As String) As String

Dim objRegEx As VBScript_RegExp_55.RegExp

' replace <br>'s for a newline
strText = Replace$(strText, "<br>", Chr$(10), 1, -1, vbTextCompare)

' replace non-breaking spaces for a space
strText = Replace$(strText, " ", Chr$(32), 1, -1, vbTextCompare)

' create new regex object
Set objRegEx = New VBScript_RegExp_55.RegExp
objRegEx.Global = True ' don't just operate on first find.

' remove HTML tags
objRegEx.Pattern = "<[^>]*>"
strText = objRegEx.Replace(strText, "")

' ditch excessive white space
objRegEx.Pattern = "s+"
strText = objRegEx.Replace(strText, " ")

' thanks, bye
Set objRegEx = Nothing

' named-entities
strText = Replace$(strText, ">", ">", 1, -1, vbTextCompare)
strText = Replace$(strText, "<", "<", 1, -1, vbTextCompare)

' insert your favourite named-entities here.
strText = Replace$(strText, "&", "&", 1, -1, vbTextCompare) ' must do last

' return
HTMLClean = strText

End Function

Debug.Print HTMLClean("<greets>Hello <oh> &" & vbNewLine & _

"<b>I</b> <a href=""#"">wonder</a> " & vbNewLine & _

" what<br>will become of all this?</greets>")

Hello <oh> &I wonder what will become of all this?

Splitting Names Using The Split Function
Does anybody know where there may be a pre-written procedure that would split a name field into three fields (first, middle, and last). I've started to write the procedure myself but I started to think about prefixes and suffixes. For example, doctors prefix their names as DR and juniors would have a suffix of JR or II or III etc...

Here is my code so far. I'm worried this procedure will become very large.

VB Code:
Public Sub Strip_Names() Dim X As Long Dim PR() As String For X = 1 To arec Let PR() = Split(A(X).P) ' Only attempt to split if the array is not empty If UBound(PR) <> -1 Then Select Case UBound(PR) ' Two words. Simple. A first name and a last name. Case 1 Let A(X).PF = PR(0) Let A(X).PL = PR(1) Case 2 If Len(PR(1)) = 1 Then Let A(X).PF = PR(0) Let A(X).PM = PR(1) Let A(X).PL = PR(2) ElseIf PR(1) = "LA" Or PR(1) = "VAN" Then Let A(X).PF = PR(0) Let A(X).PL = PR(1) & Chr(32) & PR(2) Else Stop End If Case Else Stop End Select End If Next X End Sub

There is also the issue of first names such as Mary Ann that will get messed up in this code as well. Please post a link to a procedure that could take care of this (If it exists). Thanks.

Loading Class Varinbles With Function Names
I have a class, i would like it to output information to a label, the want to be able to load that labels address into the class, so the data can be posted in the label as it is produced

Extracting Function, Sub, Method, Property Names From An OCX Or DLL
I was wondering how I would go about extracting the Method, Sub, Function etc names and parameters from an OCX or DLL file. Any help?

Shell Function And Long File Names
This Shell Function Works:

Shell("D:program FilesExcel.EXE C:Data.xls", 1)

it opens excel with the requested workbook

This one does not:

Shell("D:program FilesExcel.EXE C:My DocsData.xls", 1)

It does not work due to the space in "My Docs". Excel will open but is chokes on the file to open. Am I missing something? I have tried "D:program FilesExcel.EXE 'C:My DocsData.xls'" (Single quotes inside the double quotes). I have been all over the web searching for the answer and have seen no existing discussions. If it just doesn't work does anyone have an alternative?

Unwanted Function Call Names In The Run->RunSub/UserForm
Morning All.

Having a problem with the Run-> RunSub/UserForm menu screen.

I have a Excel VBA app with about 30 function calls in it.

Most of them follow the following format.

xml_main
xml_parse_handler
xml_parse_class
xml_parse_project
xml_parse_variables
and so on and so on.

At a later time I added a new set of functions that has similar names such as
xml_bcl_handler
xml_bcl_enforce_methodology
xml_bcl_generate_human_readable_output

Now when I select Run->RunSub/UserForm I get the xml_main function (but no other xml_parse_xxxx functions) and every single dern xml_bcl_xxxxx function.

xml_bcl_handler is dependant on xml_main being run and is clearly being called from a function beneath xml_main.

None of the other xml_parse_xxxxx function calls are there so I don't understand why every single xml_bcl_xxxx function I define is being put inside the Run->RunSub/UserForm box.

Any suggestions on how to get rid of them?

Retrieving Function Names From Asp Page Using Vb

hi, how to display all methods and functions of a module or asp page using vb(or api's) giving this asp page or module as input . can any one help me!!!!!!!!!!thanks,roja.

hi,
how to display all methods and functions of a module or asp page using vb
(or api's) giving this asp page or module as input .
can any one help me!!!!!!!!!!
thanks,
roja.