Thanks For Returning...

Recordset Only Returning Five Records When It Should Be Returning 466
All,

Doing this in excel with VBA. Haven't working in VBA for a very long time but can't see why I'm getting these results.

I run this sql in query analizer and I get 466 records back but when the same sql runs in vba I only get five records back. I checked the conn string to make sure I was running against the correct db. Is it that I'm not setting up my recordset object correctly?

Code:
Set conSql = New ADODB.Connection
    conSql.Provider = "SQLOLEDB"
    conSql.ConnectionString = "Data Source = Test1;" & "User ID=sa;Password=test; Initial Catalog = test;"
    'conSql.ConnectionTimeout = 120
    conSql.Open
    
    Dim strSql As String
    Dim fldField As ADODB.Field
    Dim docXML As New MSXML2.DOMDocument
    Set rstData = New ADODB.Recordset
    
    strSql = "SELECT CedingCoID, effectivedate, XMLString " & _
                "FROM CAPSProgram " & _
                "Where ID > 1 and CedingCoID > 1" _
          ' "WHERE (CedingCoID = '" & intCedingCoID & "' AND EffectiveDate = '" & CDate(datEffectiveDate) & "' AND Description " & IIf(strDescription = vbNullString, "IS NULL)", " = '" & strDescription & "')")

    rstData.Open strSql, conSql, adOpenForwardOnly, adLockReadOnly
    'Set rstData = conSql.Execute(strSql)
    Do Until rstData.EOF
       ' If Not rstData.EOF Then
            globEffectiveDate = rstData.Fields("effectivedate").Value 'set global effective date for future use
            docXML.LoadXML (rstData.Fields("XMLString").Value) 'load glabal xmldoc for all load routines
            globCedingCoID = rstData.Fields("CedingCoID").Value
              Call LoadCapsProgram(docXML)
            Call LoadCapsLossHisEvents(docXML)
            
            
        'End If
      rstData.MoveNext
    Loop
    

---

Returning Value
I'm using the following command to make a sum from a range of cells.


Code:
Dim Pa As Integer
ActiveCell.Offset(1, 5) = WorksheetFunction.Sum(Sheets("BOMA").Range("F5", Sheets("BOMA").Cells(Range("F65536").End(xlUp).Row + 1, 6)))
Pa = ActiveCell.Offset(1, 5)

The program return an error and stops at Pa = ....
Debug shows that Pa = 0 even though the sum in this cell are something else.

Some ideas

---

Returning From A Sub
Can any one tell me is there a way to return from a sub function
such as:
sub Replace()
blablabla
end sub

is there a way to return to the place in another function where I called this sub from?
if not is there another way I can run the same procuder and come back to my starting point?

---

Returning A Value From A Sub?
well I have something along the lines of

VB Code:
public sub returnTest(theNum As integer)if theNum = 1 then'return something elseend ifexit sub

But, I don't know how to return something in vb.
I would like to use this sub like..

VB Code:
testVar = returnTest(1)

---

Returning A Value From An Exe
Hello,

I am trying to make an exe which returns a value to the command prompt when run through the command line. I am using cmd line parameters..

Thanks
Ajit

---

Mts, Vb6, W2k, Not Returning
It's only been a week and it's time for me to throw this out to bigger brains then mine.

I have a vb6 app that uses MTS objects to retrieve data and do other nifty db stuff. When it was on nt4 I wrote a report engine that used MTS and generated a html report for the user. Dam* users now want me to implement it on w2k.

I register the dll in component services, run the control on the client that calls it:


VB Code:
Set obj = CreateObject("RDS.DataSpace")  Set report = obj.CreateObject("DCISReportEngine.Report", sServer)  'Set report = obj.CreateObject("DCISReportEngine.Report", "localhost")         'should return report url                strURL = report.GenerateReport(Conn, sServer, sSQL, sRepDef, boolDup, boolGroup)


Now running locally it runs fine. But when the code above runs it creates the object (starts the package running on the server) but
returns a null string. It should return a string with a url in it.

So I ask what am I not getting? I added a log file to the MTS dll and it doesn't create the log so I'd guess it doesn't run.

But nothing tells me that it doesn't.

Suggestions? Mine regarding giving back my nt4 have gone unanswered.

Thanks for your time,
Dave

---

Returning Value From Exe
Hi,

Thanks for reading. I want a VB exe which should return a value say some success or failure regarding the operation happening inside it. Just like a C++ program returning a value to the console. And I want my java program to read this. How can I return the value from my VB program?


Thnx,
Pres.

---

I Really Don't Know (returning A Value)
My problem is kinda complicated. I have made my own msgbox because the normal msgbox freezes my program and that's not good. But now I can call the function. This opens a form and if it's already openend it put's the info into a type MSGINFO. So far so good. That form raises an event to tell if a button got clicked. Now when that happends I want to return the value to where the sub got called. And that's not possible (I think). But I don't want the sub wich calls the msgbox form to use something like:

DO
DOEVENTS
LOOP until Clicked

and then save in the boolean clicked if it got clicked cause that uses to much resources and gives up to much time. It's kinda complicated but I hope someone has got an answer.

---

Why Is It Returning Nothing?!?!?
I have this code piece to try and convert a month in numbers to the actual month like 11/ would be november. But I get a blank msgbox when I try this code and I can not figure out why! thanks for any help!

Dim strdate As String
Dim strmonth As String
Dim theday As String
Dim str2 As String
Dim strday As String
Dim chkmonth As String

strdate = Text1.Text

If Left$(strdate, 3) = "/" Then
Select Case Mid(Text1.Text, 1, 2)
Case "10"
str2 = "October"
Case "11"
str2 = "November"
Case "12"
str2 = "December"
End Select
strmonth = str2
End If
MsgBox strmonth

---

API Returning Nothing
I got a few problems...
What do you do when you use a GetText Function to get the text on a window and nothing comes back? Like you know for a fact your code is right and bug free. I thinking the window has something blocking API or something. Some windows and objects dont let you use API on them is that possible? Some windows/objects you can't hide. Like Ad bars that dock on ur computer and stuff. How can you hide em? Also I know of one window i have you can SEE it has a title bar and a caption in it, but an API spy can get it's caption.
- How do you get around all of this? -
- How can I hide the windows i want to hide, and get text from objects that have text in em like a text box or maybe password box, or even a label, and captions? -
Maybe theres something I would use instad of API??
Please help...

My GetText Function:

Code:
Public Function GetText(WindowHandle As Long) As String
Dim TheText As String, TL As Long
TL = SendMessageLong(WindowHandle, WM_GETTEXTLENGTH, 0&, 0&)
TheText = String(TL + 1, " ")
Call SendMessageByString(WindowHandle, WM_GETTEXT, TL + 1, TheText)
TheText = Left(TheText, TL)
GetText$ = TheText
End Function

---

Returning A Value
So I'm working on my gradebook programme. As mentioned in other posts I'm a teacher though not of computers - that's just a hobby.
I have a form with 5 textboxes in an array txtMark(0), txtMark(1) etc.
Each one contains a mark for a quiz. Now, if a student is missing a mark due to absence or something I want to recalculate the average based on the number of marks available. If there are only 4 marks then the divisor for that average should be 4.

Here is my code for the command button to calculate the average

Private Sub cmdAverage_Click()
intDivisor = txtMark().Count 'sets the divisor to the same number as there are textboxes
ReCalc (intDivisor)
Dim i As Integer

intTotal = Val(txtMark(0).Text) + Val(txtMark(1).Text) + Val(txtMark(2)) + Val(txtMark(3)) + Val(txtMark(4))
 'I know that line is clumsy - I'll tidy it up later
txtAverage = CInt(intTotal / intDivisor)
End Sub

I also have a function ReCalc which is supposed to iterate through the text boxes and if any of them are empty, the divisor should be reduced accordingly:

Public Function ReCalc(intDivisor) As Integer
Dim i As Integer
Dim ctr As Integer
ctr = 0
Dim ctl As Control
For Each ctl In Controls
    If TypeOf ctl Is TextBox Then
        If ctl.Text = "" Then
            ctr = ctr + 1 ' supposed to count how many text boxes are empty
            intDivisor = intDivisor - ctr 'supposed to reduce the divisor by the number of textboxes that are empty
        End If
    End If
Next ctl

End Function

Unfortunately it just doesn't work. intTotal is always divided by 5 regardless of how many textboxes contain text. I'm not getting any errors so it must be a logic error but I can't see it. Any help?

---

Returning Mouse Down
Hey, I'm making a game and I have a bunch of Shapes on my form. When a user clicks on one of the shapes I would like it to return which shape it is so I can add a color to the shape that is clicked.

Example:

o o o o o <----Shapes (In an array 0-4) called shapePeg

^ ^ ^ ^ ^ <----Colored Shapes named shpRed, shpYellow, shpBlue, shp Green shpOrange

now say the user clicks on the shapePeg(2) shape, I want it to return that shape so that when the user clicks on one of the color shapes, the color will then go into the shapePeg(2)

I hope it isn't to confusing.

---

Help Returning Line Set?
Hi, i have the following problem.


I have a 6 multine textboxes not linked to eachother in any way, EXCEPT.. that they contain information wich is related to eachother..

like this :

Code:

text1: text2: text3: etc

info1 info2 info3
info1 info2 info3
info1 info2 info3
info1 info2 info3
as you can see, the first line of text1 .. contains information relevant to the same line in text2/text3/text4/text5/text6.
if you still dont understand 1 more example :

say we have a chair.. and we put it in a table.


Code:

colour type serial

blue antique 123-3472
red old-style 234-4567
now i want those information bits to be linked to eachother by counting the lines on wich they exist.

say i would want to see what would exist on lines 100~200

so therefor i would need it to do this :

1. Count the lines in text1 , start reading from line 100 .. and stop at line 200
2. print those in any way ( im going to write them to a textfile ).
3. then do point 1 for text2 till text6. and print those also.


how would i go by this?
i know how to count the lines and all that

Code:
Private Sub Count_Click()
Dim Pieces1() As String
Dim string1 As String
Dim lines As Integer
Dim i As Integer


string1 = Text1.Text


Pieces1 = Split(string1, vbNewLine)

For i = LBound(Pieces1) To UBound(Pieces1)

lines = lines + 1
Count.Text = lines

Next i

End Sub
but then i wouldnt know how to read the content of that single line, and even how to read multiple lines.


Please help me with this!

thank you
Jeroen van Vierzen

---

Old Toolbar Keeps Returning
Hi all,

Has anybody had problems changing to a later version of a custom toolbar.

I have a toolbar that has a menu on it, once an option is clicked it runs a small VBA program. This toolbar was attached the workbook and when opened appeared on the receiving PC.

I added some more options a while ago and I had a lot of problems getting the new toolbar to appear. Again I've added more options and now I'm pulling my hair out because the toolbar is reverting back the original one, version 1.....

I've asked the user to delete the original file and toolbar. There is now nothing on the machine relating to my custom toolbar. I have then deleted the attached toobars from my workbook and saved. Next step is to reattach the latest toolbar to my workbook.

Again the user still gets the old toolbar from 2 versions ago.

Help!!!!!!

Cheers
Tom

---

VBA: Returning The Top 'x' Results.
I need to display 'x' number of results.

The 'x' is user defined.
The results are generated by a Query then displayed by a report.

I have tried the SQL TOP command, but it appears you cannot link that to an input box located on a Form direct to the Query.

I have tried to generate an incrementing number field in the query, but this was also to no avail. If this would have worked then I could simply limit the amount to display.

Any ideas on this are greatly appreciated.

Cheers,

Si.

---

Returning A Value, Not A Formula
Hey all, I need a little help with something pretty basic. I have a macro that performs a simple calculation. How do I return only the result, the integer information, to the cell without the formula tracking along with it?

ActiveCell.FormulaR1C1 = "=R[-1]C+1"

Thanks for any help on this!

---

XLS MsgBox Returning A Value
I'm an idiot. I'm sure this is a super easy fix and I'm just overlooking something.
Heres what I have


Code:
Private Sub Validate()
Dim EmpName As String
EmpName = Range("B2").Value
Ans = MsgBox("Are you" & " EmpName " & "?", vbYesNo, "Validating")
Select Case Ans
Case vbYes
' Code for yes
Case vbNo
Range("B3").ClearContents
Call GetName
End Select
End Sub
The Message box shows "Are you EmpName?" It doesn't show like, "Are you DrSwaity?" if thats what was in B2. I think it looks good, but obviously not.

One consideration is B2 contains a "=vlookup" formula. There is a value in the cell...

Anyways, thanks in advance!

---

Returning A String From A VB6 Std DLL
I have created a standard (not ActiveX) DLL from VB6 and am trying to return a string to the calling application from the DLL function. The problem is that the string returned is in wide character format (nulls in between characters)...is it possible to return it in narrow character format (no inter-character nulls)?

---

Returning The Address
i whouldnt know what to google to find the answer to this so ill ask on a fourm. i whould like to make a program that can copy itself to another directory. i know how to copy just fine, my problem is that, i dont know how to return the current address of the program. say someone downloads my progam and saves it were ever(c:/downloads/stuff/) for example. how do i make my program return (c:/downloads/stuff/myprogram.exe) as a string, so i can make it copy it and save it to another directory?

---

Returning Focus To VB
I have a VB program which instructs an Application (AutoCAD), to do a number of things, including "zoomAll". THis sets the focus on the AutoCAD application. Then to proceed with the VB program's Code, I always have to manually click on the VB interface. This returns the focus to the VB program and so teh VB code is resumed.

The problem this is to be a server program so I need ensure that the focus is returned to the VB program automatically.....Any suggestions would really be appreciated.

Thanks

Gwyn

---

Returning Filenames
Hello.

Does anyone know how to return a list of filenames from a folder.

In a folder say H:Folder there would be some documents. Documentx, Documenty, Documentz. I would like to populate a list in excel with these filenames.

Hope this makes sense.



Martin

---

Returning The Value From A List Box
Alright, I have a list box and im using my variable.listindex which gets the value of the row that i have selected but i want to take the value that i have in the row. So just tell me.

---

Returning A Variable
Ok ive made an object, but there is still once piece of code i cant figure out. The object has a few variables (Dim Id As Integer), and has a function to give it the Id. But now If i want to call the ID while the program is running, how do I do it? I have another function called getID() but Im not sure what the command is so i can call that variable and use it. (similar to the return variable command in Java)

---

Dir Function Returning . And ..
I'm using the dir function to populate an array with the names of folders on a drive. It works fine if you specify the root folder

ex.
sFolders = Dir("f:", vbDirectory)

but if i specify a subdirectory, like this

sFolders = Dir("f:sub", vbDirectory)

it lists all the subdirectories off of f:sub but it also lists "." and ".." for the first two elements of my array.

Is there a way to stop this?
Also, is there a difference between dir() and dir$()

thanks

---

Returning Day Of Week
is there a simple function in vb that can return the first day of a given week.

for example week 3 in 2003 gives 13 januari

thnx for the help

---

Returning Enum
Module:

Code:
Enum type_Defcon
blue = -1
green = 0
yellow = 1
red = 2
End Enum

Public Defcon As type_Defcon
Form:

Code:
Private Sub Form_Click()
Defcon = Defcon + 1
If Defcon > 2 Then Defcon = -1
Debug.Print Defcon
End Sub
This will print the value of Defcon. But how can I print the names? like blue, green etc.

---

Returning ListIndex
How do i return the listindex from a item in a listbox if i only know the text?

i know how to return the text if you know the listindex

SelItem = List1.List (List1.ListIndex)

But the other way round isn't working...

---

Returning A Pointer From A DLL
Hi All,

This may be a stupid question (there are no stupid questions, just stupid people asking questions)....

This is my DLL function that returns a pointer to a buffer variable that is passed, as a pointer, the function:

char *PROG_GetHome(char *buff);

and I am trying to build the VB code that calls this function and I am having a little trouble.

Any ideas?

Thanks much, DM

---

Returning Printer Name
I have an application where I need to store a users selection of up to 6 different printers (various default label printers, etc). I am trying to use the Common Dialog to allow the user to select a printer to store, but cannot determine how to find the printer name once returned from the selection using the control.

Thanks in advance.

---

Returning An Array
how can i return an array from the function?


waqas

---

Returning An Error
In A function or Subrotine, is it possible to return an error to what called it? That way I can use the On Error command more easily.

---

Returning Values From A VB Exe
Hi All,
I am trying to write an exe file (required by a 3rd party vendor I am integrating my system with) that accepts an arguement (the ID of a particular record in a database) and select the values from the tuple associated with the ID from the database, concatenate the selected fields and return this concatenated string.

Is this at all possible. I mean if i create a standard exe, it is the form_load that runs and since it is a Sub it cannot return a value. I cannot use a dll because the vendor explicity states that an executable (exe) file must be used. It is their system that calls my exe file and I do not have control over how it calls my file. All it does it call my file with an input paramenter and expects the string returned when it calls the exe.

Any help is greatly appreciated. I am a novice to VB and I do apologise if my question sounds silly.

Thanks a million.

MI

---

Function Returning A Value
Could someone show me a quick demonstration of calling a function, and having that function return a value?

---

Returning A Value From A Form
Hi all,

I'm probably being dense here, but could someone enlighten me on how to return a value from a form in VB6?

Thanks,

-Utini

---

Returning DOS App Results
Is there a function to return the results of a DOS program into a variable? eg,
xxx ("C:windowssystem32ping.exe google.com", result) would return the output you'd get if you typed that into a dos prompt into variable result? Thanks

---

Returning Key Value From A Collection
Is there a way to return the key values from a collection?

Here's some code to illustrate what I mean:


Code:
Public Sub Save()
Dim fso As New FileSystemObject, ts As TextStream
Dim outputLine As String, i As Integer, setting As String
Set ts = fso.CreateTextFile(mFilename)
For Each setting In Settings
outputLine = setting.key & "=" & setting '<- if only this worked....
ts.WriteLine outputLine
Next setting

ts.Close

Set ts = Nothing
Set fso = Nothing

End Sub

Of course, the setting.key is invalid. What I want to do is find both the value of each member of a collection, and also the value of the key for each member. I supose I could just rewite the class to store the key and value in a small array, but I was hoping to make a shortcut in this way...

Any suggestions?

---

Returning The Value Between Two Characters
If i have

<one two three> how do i get the values between the < and the >?

thanks

---

Returning A Value And How Read It
Hi,

This question its a little simple, but I don't know how do it.


I just need to return a value of my EXE when the commandline have some letter ie. "/V", I need to return a Version of the EXE. and How I can read it from another EXE ???


Thanks
Mike

---

Help! Regarding Recusefolder Returning
I found this code. Is this code capable of returning just the filename and just the subdirfilename? Example:

1st_read.bin
Readme
New Folder1st_read.bin
New FolderReadme

I working around this, but couldn't figure this out. any help would be appreciated!!


Code:
Option Explicit

' Copyright © 2001 DonkBuilt Software
' Written by Allen S. Donker
' All rights reserved.

'************************************************************
' Takes a valid path to a folder and, using recursion,
' fills a listbox with the complete path and filename
' of each file in the folder passed in
'************************************************************


'************************************************************
' Folder/File attributes constants
'************************************************************
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_COMPRESSED = &H800
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

Const INVALID_HANDLE_VALUE = -1
Const ERROR_NO_MORE_FILES = 18&
Const MAX_PATH = 255


'************************************************************
' Struct to hold file data
'************************************************************
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type


'************************************************************
' Struct to hold data returned from API calls
'************************************************************
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type


'************************************************************
' Struct to hold data returned from API calls
'************************************************************
Private gFileData As WIN32_FIND_DATA


'************************************************************
' Windows API declarations
'************************************************************
Private Declare Function FindFirstFile& Lib "kernel32" Alias "FindFirstFileA" _
(ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA)
Private Declare Function FindNextFile& Lib "kernel32" Alias "FindNextFileA" _
(ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA)
Private Declare Function FindClose& Lib "kernel32" (ByVal hFindFile As Long)





Public Sub RecurseFiles(ByVal sFolderPath As String, objListbox As ListBox)

Dim hFindFile As Long
Dim ReturnValue As Long
Dim Filename As String

'Get First Directory Entry. File value returned will end in
'a null-terminated string.
hFindFile = FindFirstFile(sFolderPath, gFileData)

'Exit if there was an Error Getting First Entry
If hFindFile = INVALID_HANDLE_VALUE Then
FindClose (hFindFile)
Exit Sub
End If

'Initialize ReturnValue
ReturnValue = 1

Do While ReturnValue <> 0

'Remove the null charactor from Returned Filename
Filename = StripNulls(gFileData.cFileName)

' If it is a Directory but NOT the "." or ".." directories
' get all the Files in that directory (starts the recursion)
If Filename <> "." And Filename <> ".." And _
gFileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then

RecurseFiles Mid(sFolderPath, 1, Len(sFolderPath) - 3) & Filename & "*.*", objListbox


Else 'Keep getting files in current psStartingPath

If Filename <> "." And Filename <> ".." And Filename <> "" And Not _
gFileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then


'Now that we have the file, do something with it,
'in this case, add it to a listbox
objListbox.AddItem Mid(sFolderPath, 1, Len(sFolderPath) - 3) & Filename

DoEvents

End If

End If

' Get Next Entry
ReturnValue = FindNextFile(hFindFile, gFileData)

If ReturnValue = 0 Then

Filename = ""
Exit Do

End If

DoEvents

Loop

' Close Handle
FindClose (hFindFile)

End Sub


Private Function StripNulls(ByVal FileWithNulls As String) As String

Dim NullPos As Integer

NullPos = InStr(1, FileWithNulls, vbNullChar, 0)

If NullPos <> 0 Then

StripNulls = Left(FileWithNulls, NullPos - 1)

End If

End Function

---

Returning Control From A DLL
Hi,

I have an ActiveX DLL written in VB which is very interactive. From the calling code I can pass and receive data ok. All works fairly well, but my big, big, big problem is that I don't know how to instruct the calling logic to wait until the interactive parts on the DLL are complete.

How do I suspend execution until such time as I enter everything through the calling DLL.

Thanks for any help received in advance.

AS

---

Dll Returning A Handle
hi.

1) I wrote a dll that opens a new window, plays a flash file
and returns a handle in a function.

2) I wrote an app that calls the function that creates the new
flash window in the dll.

the problem is:
the function in the dll dosen't return the handle - it Returns nothing!


the dll code:

Public Function FunctionName( byVal ArgList....)
.
.
.
FunctionName=NewForm.hWnd
end function

what am i missing?

thanks.
yaniv.

---

Returning 8 Characters From 13
I wanna display 8 characters from a 34 characters long string:

example:

"This is a 26 long character string"

and i only want this part:

"This is "

how do I do that?

thanx

---

Returning Arrays?
Is it possible for a function to return an array of values (specifically, an array of Bytes)? Here is my current code.


Code:
Public Function bAdd(ByRef b1() As Byte, ByRef b2() As Byte, ByRef bOut() As Byte) As Boolean

You pass it three arrays total (which can all be the same if you wish), and bOut() is the result array.

To call it, it looks something like this:


Code:
bAdd b1(),b2(),bFinal()

What I want is something more 'traditiona', like this:


Code:
bFinal() = bAdd(b1(),b2())

Any hope, or am I stuck passing the array both ways instead of setting the function? Thanks

---

Returning Records
I am using the folowing code to retrieve specific data from an SQL7 DB. If I run the same query copied and pasted from the code
into the query analyzer it returns a record. When run in the code it returns nothing and a record count of -1.

Am I not doing something right here?



Code:
Dim NewCon As ADODB.Connection
Dim RS1 As New ADODB.Recordset

'Create New Connection
Set NewCon = New ADODB.Connection

'Set Connection string and open connection
With NewCon
.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;" _
& "Initial Catalog=image;User Id=sa ;Password= ;" _
& "Connect Timeout=15;Network Library=dbmssocn;"
.Open
End With

SQL1 = "SELECT * FROM STORE WHERE INDEX1 = '12345'"

RS1.Open SQL1, NewCon

MsgBox RS1.RecordCount

---

DLL Returning Recordsets
Hi,

I am new to COM development and have the following questions:

1. Is this the correct way to return recordset (used by ASP)?
2. Should I "Set rsObj = Nothing" in my code?
If Yes, how can ASP (which initiates the COM) use the returned recordset if it is destroyed?
If NO, will there be memory leakage?


Sample Code:

Code:
Public Function TestRs() as ADODB.Recordset
Dim rsObj As ADODB.Recordset
Dim cnObj As ADODB.Connection

set rsObj = New ADODB.Recordset
set cnObj = New ADODB.Connection

cnObj.Open("uid.....")
rsObj.CursorLocation = adUseClient
rsObj.Open "select * from authors",.....

Set rsObj.ActiveConnection = Nothing
Set TestRs = rsObj

Set rsObj = Nothing // Do I need this? //

cnObj.Close
Set cnObj = Nothing
End Function

---

Max Not Returning Anythig
Greeting:

Using Access20000, VB6, ADO 2.7

I' trying to use the max aggregate to return the highest key on file so that I can add another record by bumping the returned key up. I'm not getting any errors but I'm not getting anything back on the MAX. The code in use:

Code:
dim Maxno as long
dim rsSelect as string

rsSelect = " select max(custacctno) from customers group by custacctno "

adocustomerRS.open rsSelect adoconn, openkeyset, openpessimistic adcmdtext

if adocustomerRS.recordcount > 0 then
Maxno = adocustomerRS.FIelds("custacctno")
Maxno = Maxno + 100
txt_custno = Maxno
end if

After execution maxno is left with 0, and the recordcount comes back full meaning all the records are returned (56) which is all the records on file.

Can someone tell me what I'm doing wrong and or how I can go about getting the highest key on file. I thought the max could do that.

custacctno is defined as a number and the key. Using autonumber is not a choice at this point.

Thanks for your responses.

Donald

---

Not Returning Records
Hi,
I run an sql statement designed to return records based on dates

strSELECT = "SELECT ID, Name, Number, LastAccess FROM UA#BatchReport WHERE LastAccess BETWEEN '" & StartDate & "' AND '" & EndDate & "';"
Adodc1.RecordSource = strSELECT
Adodc1.Refresh
DataGrid1.Refresh

However this is not returning any records, it should - the info is there in the tables, I have tried it in the SQL server and got the proper result - so I can only think that there is something wrong in the code but I cant see it

If anyone else can I would appreciate any help

---

Returning A Value On Exit
Hello,

I am trying to write a VB program (say prog1) to call another VB program (say prog2) and wait for it to close. When prog2 closes, I would like it to return a value (preferably a string) to prog1.

I have everything working except for the returning of a value, I can't work out how to do this. I have seen some examples which use ExitProcess but the Microsoft website says that this can cause problems and is unsupported. Anyone got any ideas?

Thanks in advance

---

VB6 DLL Not Returning Any Value When Called From C++
Hi,
I made a VB6 ActiveX dll. It contains a simple function that returns the integer value 10.

I tried calling it from VC++.
The CoInitialize and CoCreateInstancefunctions execute successfully, even the actual function call made using the function handle i got from the CoCreateInstance returns Success... however the last parameter which is supposed to contain the "out" value does not return the expected value 10... it remains the same value as when it was initialized.

example:
int returnvalue = 0;
hr = Class1->ExampleFunction(&param1, &param2, &returnvalue);

the returnvalue should be set to 10 but it remains 0...

please help me out

---