Visual Basic :: Concatenating Two Fields To Form A String To Compare Against A UCase ?

Concatenating Two Fields To Form A String To Compare Against A UCase ?
Im trying to use a UCase LIKE Search...

This is okay if I only want to search a word/words from one field, but how do I do it if I need to join 2 fields ?

Eg. I have 2 fields CustomerFirstname and CustomerSurname

What happens if the user types into the search "VisualBasic Kid"
where VisualBasic is the CustomerFirstname and Kid is the CustomerSurname ?

It won't find anything...

Maybe someone can take a look at my string and tell me where I'm going wrong...

Code:
Select * From Customer Where UCase(CustomerSurname) LIKE
'%" & UCase(txtSearch) & "%' OR (UCase(CustomerFirstname) &
UCase(CustomerSurname)) LIKE '%" & UCase(txtSearch) & "%'", db,
adOpenStatic, adLockOptimistic
Thanks for any help once again

Concatenating Fields
Hello,,

Attached is a text file illustrating a function that is supposed to concatenate two strings together from two fields within an access db. However, every time i try to run the following in access it gives me a vb run time error: type mismatch

ConcatTest: fConcatFld("tblName","fieldName1","fieldName2","String","newConCatField")

I have placed my own table names and fields into the above to no avail. I have made sure the fields chosen are text fields but it still comes back with mismatch error!!

Any help/guidance would be appreciated.

Cheers

Concatenating Bytes Into A String
Hello, I have an array of bytes that i want to concatenate into a single variable without losing the binary data. I know a method is to concatenate the bytes into a string that represents the exact same binary, but I'm not sure how to go about doing this. Any help would be appreciated. Thanks.

Problems With Concatenating String
I'm having some trouble with my concatenat'n in my string. What I want to do is have the variable then the counter and then the field name. I must not be doing it correctly.

Code:
ts.Write ("name" & iCount & "=" & objRs("b_name") & "title" & iCount & "=" objRs("b_title")& "text" & iCount & "=" & objRs("b_bio")& "image" & iCount & "=" & objRs("b_image")& "location" & iCount & "=" objRs("b_location")& "city" & iCount & "=" objRs("b_city")& "state" & iCount & "=" objRs("b_state"))

Concatenating String Variables
i get the follwoing error while concatenting

Code:
"the item with the specified name wasn't found"

i have four variables
namely : strser1,strser2,strser3,strser4
and am using a for loop like this

Code:
For i = 1 To 4
With pptSlide2.Shapes("strser" & i).TextFrame.TextRange
With .Font
.Name = "Arial"
.Size = 6
End With
End with
Next

Please adivce on how can i concatenate strser & i within the shapes function

Concatenating A Quote Into A String
I am trying to create a csv file. I have a string that I want to put quotes at the beginning and end of.

dim string1="hello"

string1= """ & string1 &"""

however this is giving me as an output: ""&string1""

I almost feel stupid for asking...

Edited by - AbbydonKrafts on 3/28/2007 1:03:41 PM

Every 2nd Letter UCase In String
Given a string, how can I make every 2nd letter upper case and every other letter lower case?
ex:
hEy ThErE, wUz Up?

How To Check If A String Is UCase?
Is there a function out there that will tell you if a string is all UCase?

I have created a function that if a string is all UCase I will properly format it to First Letter UCase all other letters LCase, but I don't want every string (There could be thousands) to go through this function unless it is all UCase.

So how can I check a string to see if it is all UCase?

Thanks
Adobe

Changing First Character In A String To Ucase
I've done a couple of searches with no success and am sure this is pretty simple. All I'm trying to do is change the data in a string from

asdasdasd

to

Asdasdasd

But it must leave the formatting of the rest of the string exactly the same.

Cheers if anyone helps

Andy

Program Crashes When Using UCase(string) Command
One of my users is having a problem with an application I wrote. The application uses VBA imbedded in Excel. When the user changes a field, the program executes the Ucase(string) command. When my user runs this, the program crashes out and pops up:

"Compile Error: Can't Find Project or Library"

My question is: what project / library does this require? The program works for all of my other users, so I am assuming that I need to repalce a file on his system.

Any and all help would be appreciated.

Here's the code:

<vb>
Private Sub txtACRO_AfterUpdate()
frmMain.txtACRO.Text = UCase(txtACRO.Text)
Sheets("customer").Range("cellacro").Value = txtACRO.Text
End Sub
</vb>

Chris

String And Ucase Help (Static You Helped Me Last Time)
Some people might rember this but the thing is my computer crashed and i lost all my work so i need help yet again.

I'm trying to add a name entery inputbox on to my form, but i want it to validate/fix problems with the name.

The name must be enterd so that it is no longer then 20 charaters and ends up like this A. Swann (with any old name not just mine)

so that underdstand what I mean these names would all be wrong

a. Swann
A. swann
A Swann
A.Swann
a Swann
a.Swann
A swann
A.swann

Anything that isnt A. Swann would be wrong

VB Code:
Dim Name As String * 20Dim sName As String * 20Dim tName As String * 20Dim rName As String * 20Dim correct As Boolean correct = True Name = InputBox("Please enter the customers name in this fasion A. Swann") If Mid(Name, 2, 2) <> ". " Then correct = False 'If Mid(Name, 1, 1) <> UCase Then UCase (Mid(Name, 1, 1))'If Mid(Name, 4, 1) <> UCase Then UCase (Mid(Name, 4, 1)) tName = NamerName = Name sName = UCase(Mid(tName, 1, 1)) & Right(Name, Len(Name) - 1)sName = Left(Name, 3) & UCase(Mid(tName, 4, 1)) & Right(rName, Len(rName) - 3) Do While correct = False Name = ("You have enterd then name incorrectly. Please re-enter the customers name in this fasion A. Swann. Reamber names do not contain numbers") correct = True If Mid(Name, 2, 2) <> ". " Then correct = FalseLoop lblName1.Caption = sNamelblName2.Caption = sNamelblName3.Caption = sNamelblName4.Caption = sNamelblName5.Caption = sName

so can anyone out thier help

Finding Ucase String Position(Resolved)
hi, everybody,

how can i find the string position of the first Ucase letter in a string but counting from the end of the string??

for examble if i have the string: XRsWdRbcdef
i want the possition of the bold R

thanks?

Compare Fields
I'd like to compare the datas i'm typing in a Formular, to all the fields category where it is supposed to be registered....
how can i do that ??
(The database is Access 97, and i'd like to do this comparison in a macro or with VBA.
thanks !!

How To Compare Records In Different Fields?
Hi,
How do I compare the records in different fields in an Acess db?
For example,
Field1
1
Field2
5
Let's say there is a txtbox in my program. If I enter a number between 1 to 5, the program will check my db and look at the start field(field1) and end field(field2). If the number is in between this 2 fields' records, the program will spit out a unique message. If not, it will display another message.

So, how do I 'program' this program to work? Thanks.

Compare Text In Two Fields
Looking for ways to compare text in two different MS Access cells, and output "SAME" or "DIFFERENT" in a table. I have though about the CompareMode or the VbCompareText, but not sure of the code to perform this action.

Thanks,
Tim

Compare Two Date Fields
How do i compare two date fields in VB

one comes from the table and the other is the system date?

How Can I Compare 2 RecordSets By Certain Fields
Looking for some idea's on how to compare 2 recordsets by a certain field..
Working with an access db and ADO.

Say I have two recordsets, the fields are close to the same.. 1 more than the other but,
I need to compare say rs1 field2 with rs2 field3(can I do this with an sql querry?).
The rows are in different order's so rs1 row 1 won't necessarily be the same as rs2 row 1
(I'm sure I could sort them to avoid this though if this poses a problem).

I'm also having trouble returning only a certain number of rows.
My recordset has 20,000 rows this crashes msflexgrid(error no memory '30006')
I've tried to use rs.maxrecord = 100
This doesn't work. It still tries to load all the rows until out of mem..I'm not home now but I will post my code later so you'll be able to see what I've tried..

:::EDIT:::
Code:
Private Sub SetCon()
    Dim strConnect As String

    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                 App.Path & "products.mdb"

    Set con = New ADODB.Connection
    con.CursorLocation = adUseClient
    con.Open strConnect
    Set rs = New ADODB.Recordset
    rs.MaxRecords = 10 '<---Doesn't Work
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenForwardOnly
    rs.LockType = adLockPessimistic
    rs.Source = "SELECT * FROM [Product1]"
    rs.ActiveConnection = con
    rs.Open

    mblnLoaded = False

    Call LoadFG

    mblnLoaded = True
End Sub

Thanks for any suggestions
$hep

Edited by - $hep on 10/3/2004 11:09:04 AM

Concatenate Fields And Compare With A Third One
Hey,

Can u tell me how do i concatenate fields
eg :
table1 : address_bk
Area_code char 3
phone char 7

table2 : phone
tel_no char 10

I want to concatenate both the fields in table1 , compare the results with table2 tel_no field and delete records from 1st table which are present in 2nd table...!

I use VB 6.0 as front end and SQL 7.0 as backend..!

thanx,
Twinkle

[SOLVED]Compare Two Fields From Two Tables
I have a problem to solve. I have two tables with same fields. Itch hour Table1 is renew with new values and Table2 is changed with all data from Table1. In both tables I have only two fields. Field1 of Table1 is identical with Field1 of Table2. Example after one hour the tables have these values:

Table1 / Table2
Filed1 {} Field2 / Filed1 {} Field2
130011 {} 20.0 / 130011 {} 45.5
130012 {} 10.5 / 130012 {} 25

I need the SQl Statement to compare ALL Field2 of Table1 with Field2 of Table2 based on Field1 that is identical to both Tables. Can help someone//

Edited by - Shandy on 3/2/2007 1:51:18 AM

Select And Compare Records With Matching Fields
Not sure if this is something that needs code or not....

I'm currenting using the criteria:

Code:
In (SELECT [field1] FROM [table] As Tmp GROUP BY [field1] HAVING Count(*)>1 )
to select records where field1 matches. The next step is to check that all other fields for those records match. This is currently a manual process. Is there some way to filter the list so that records (there may be up to 10) where all fields DO match are not listed?
At this point, I am not looking to automate the update. Automation is next week's project. This week, I just want to avoid reviewing 1,000 records that don't need adjustment.

In Data Report How To Compare With Aggregate Fields
Hello Sir,
I have designed a command in dataenvironment that has an aggregate field named NET AMOUNT. Now my question is that I'm querying to the user about the bill no he seeks that has a total sales amount >= his entered value.

How to use this filtering in runtime on that aggregate field

***Resolved*** The Diference Between UCase$ And UCase...
I am wondering if there is any difference between these two statements:

UCase$(txt1.text)
and
UCase(txt1.text)

(Yes I know the obvious difference is that one has a $ in it and the other doesn't...hehehe) I am wondering if they return the result in different ways or as a variant in the one case or just what. Can anyone shed some light and knowledge upon my weak and humble mind about this??? Please??

Thanks for any help given.

Cliff R.
Mesa, AZ
Check out my website at http://crogers.org
Being an organ donor is giving the greatest gift that someone can give.
It is giving the gift of life. Please register to be an organ donor.

Edited by - crogers on 4/3/2007 10:42:43 AM

Compare Dates Multiple Fields Select Earliest
In a table that is named Budget  I have Six different dates in Six Different fields.  Well, the fields can vary whether or not they are null for each record.  Each one of the fields could be null.  Actually, I glanced quickly at the 32,000 records and noticed that one of the records had all 6 fields as being null.  What is the best way to capture the earliest date of the six fields when comparing all of the dates within one record.  Maybe we could create a seventh field to contain the earliest date?

Example: a record in the Budget table contains:

Field 1        01/01/2004
Field 2        04/31/2002
Field 3        02/04/2000
Field 4        null
Field 5        null
Field 6        01/05/1999

I want to capture the earliest date which is in Field 6 (01/05/1999) after comparing all of the dates in the record.  What is the best way to do this?

Speed Optimization: How To Compare Memo Type Fields Fast? (Access)
Hello all, I'm new to both this forum and VB6, and don't know all the ins and outs with access either, so forgive me if I ask a dumb question.

I have a performance issue with an application. To illustrate I'll give a quick overview:

At a given interval, the application shell()'s a dump utility to extract all eventlogs from a computer (This because I don't know how to do this thru the API, and I couldnt find example code) It dumps in .csv format. In 5 days, some of these files can get 600MB big.

A second part kills all remaining procceses (by PID), renames the files, starts the dump again and starts importing the renamed files into a database.

It does this by opening the renamed .csv files as textstream and going over it line by line, checking if the attached Message is already in the database. If so, it adds a reference to the message. If not it adds the message to the database, and then adds the reference. Then the rest of the record is committed to the database.

Problem:

With 300k + records, the search process get's very slow, since I have to compare in VB (Because Access can't compare memo type fields)

My sollution:

Add a 'cache' which remembers the last 10k records with Message and MessaegID, and loop this array first when comparing new records. Use the first 10k records while still collecting new one's till we have 20k, then cut off the bottom part and do again till 20k, etc.

Problem with sollution:

Still slow. (Since Virus scanners and backup's will always have unique messages due to the inclusion of filename and date/time information in the log message, and will fill the cache with garbage)

Anybody any suggestions ? I would post code examples but I doný know how they would be relevant right now.
If needed I'll be happy to supply them.

Thanx,

Jeroen

Edited by - PLJ on 2/27/2006 12:03:01 AM

Word 2003-VBA Update Specific Form Fields But Not Reset Other Fields
Good Afternoon,

I have a userform that pops up right when you open the template. When someone completed the userform the information the entered is placed in specific form fields within the document. If someone was to complete the rest of the form and then go back and update the information in the userform, the rest of the form fields would reset.

My question is, How can I make it so the userform updates the appropriate boxes but does not reset any other form fields?

The userform code I am using is as follows:

Code:
Option Explicit

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
' Prevent variable from being deleted
If txtDate = "" Then txtDate = " "
ActiveDocument.Variables("Date") = txtDate
If txtClientName = "" Then txtClientName = " "
ActiveDocument.Variables("Client Name") = txtClientName
If txtClientIDNumber = "" Then txtClientIDNumber = " "
ActiveDocument.Variables("Client ID Number") = txtClientIDNumber
' Update fields in document
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields.Update
Unload Me
End Sub

Private Sub txtClientID_Click()

End Sub

Private Sub txtClientIDNumber_Click()

End Sub

Private Sub txtDate_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Initialize()
' Load variables into text boxes
On Error Resume Next
txtDate = ActiveDocument.Variables("Date")
txtClientName = ActiveDocument.Variables("Client Name")
txtClientIDNumber = ActiveDocument.Variables("Client ID Number")
End Sub

Any assistance on what I am doing wrong and how to fix it would be greatly appreciated!

Thanks,
SMOO

{REsolved}Problem ConcatEnating A String "Urgent" Thanks
what i need to do is that when I loop through a recordset i get some ids.
These Ids are in a lump (Start and end)

For each lump(eg numberC_Start and numberC_END )I need to get all the number from start to end
and concatanate it in a string .

How can I do it?

Code:
dim numberA_Start as long
dim numberB_Start as long
dim numberC_Start as long

dim numberA_END as long
dim numberB_END as long
dim numberC_END as long

numberA_Start =5
numberA_END =5

numberB_Start =66
numberB_END =69

numberC_Start =91
numberC_END =95

dim strResult as string

strResult=5/66/67/68/69/91/92/93/94/95/

EG of a loop

Code:

Dim tempFirstNumber as long,tempLastNumber as long,tempStrResult as string
dim rs as adodb.Recorset,Delimiter as string

set Delimiter="/"
set rs=GetStuff......

   do while not rs.eof
      tempFirstNumber =rs.fields("FirstNum").value
       tempLastNumber =rs.fields("LastNum").value
     'HELP
      '//calcuLate all the numbers within first and last and concatanate in a string

      rs.movenext
   loop
   tempStrResult

Thanks a lot in advance

Edited by - dotnetsql on 4/5/2006 7:44:38 AM

Difference In UCase And Ucase$
Can someone tell me the WITH AS MUCH DETAILS AS POSSIBLE the difference between Ucase and Ucase$?

I think i read somewhere that Ucase$ is to be used for more effiency when dealing with strings ... it converts things faster (?!?)...UCase (without the $) is for Variant conversions? I might be wrong so please someone explain as THOROUGHLY as you can.

String Compare
I am new in VB, I have VB 6.0, I want to read data from text file and then want to process that data, and then want to save that data in new file. How can I read one word from file? GET command read whole line from file. 2ndly, how can I compare whole line with any charachter, for example

Line is " this is VB forum"
and I wasnt to remove all white space and want to save all data in following format in new file
This
is
vb
forum

In C++ I know I can read the whole line in array and than I can compare each element with white space (if(data[count] == " ") ....) how can I do that in VB. And how can I use strncpy("data", " mydata")... and strcpy() in VB.

Please perdon me for these basic questions. I read books but didn't get string compare function.

Thanks

Syed

Compare String
Hi,

I am using this function "Instr" to find the position of the first occurrence of one string within another. I have a text file that look like this:

ABCThis is an apple <-- I want to find this string 1
DEFEThis is a dog
GHQ123This is goodABC <-- I don't want this string 3
BGHThis is a book

Let say I want to search for the 1st string pattern "ABC" in the textfile, so I have this command:

If InStr(rdLine, "ABC") then tmpVar=rdline

but everytime the file is read, tmpVar is always assign with String 3 rather than String 1.

Is is possible for me to check this string pattern "ABC" where there is NO characters infront of "ABC" so that String 1 will return.

Those labels (ABC, DEFE, GHQ123, BHG) have variable length rather than fixed length.

Thanks in advance.

String Compare Help
Im not quite sure where to start
Im writing a time sheet program there are 7 pay roll codes

H , JS, AH, SL , AH, BL, ACC

But the only apply to some employees

eg. someone on salary can only have H , ACC
where as a waged employee can have PH, SL , AH, BL

what i need to do is some how set up some rules

pseduo code

salarypaycodes = "H" , "ACC"
wagepaycodes = "PH", "SL" , "AH", "BL"

select paytype
case salary
if code entered in salarypaycodes then
do stuff
else
show error mesage
end if
case wage
if code entered in wagepaycodes then
do stuff
else
show error mesage
end if

end select

String Compare...
Hi again. Does anybody know how can i compaire strings? let's say i have "hello" and i want it to be compaired with another string and return true (if that was "hello") or false (if that was anything else). (i am actually asking for something like strcmp and strstr in c). how can i do that? also how can i get a result from the open function inicating if opening the file was succesful or not? if you can answer in any of the above question i would be realy happy! thanks anyway...

Compare String
I need to build a complex comparison string.
Starting with a simple one here I am just trying to compare if (1=1).
Is this possible to do with a string?
I am getting a type mismatch with this code

Code:
Dim a, b As Integer
a = 1
b = 1
Dim mystr As String
mystr = "(" & a & " = " & b & ")"
If mystr Then
'run some code
End If

String Compare
I got a problem with string comparison. I got two dates with the string format (i.e. "03/07/07" and "03/07/10") and I try to compare them. It was working nicely not so long ago but I had to make a few changes in my code and now it doesn't works. I think the problem may be some kind of weirdo blank characters placed after the end of my string (It seems unprobable but that's the only thing I can see). I post a screenshot of the content of my string and the spaces that follows. The string with the spaces at the end is always seen as smaller than the other one even when it isn't.... Help please !!!

String Compare
Hi
I have an array of string,I want to know which elements begin with "test"

How can i do it?
thanks

String Compare
Dear All,
Can some one give example for string compare using Like Operator?

String Compare - Reg
hi all

i want to know how we can find the difference between

two strings

help is appritiated

regards
kamesharun

Compare String
Hi,

I am using this function "Instr" to find the position of the first occurrence of one string within another. I have a text file that look like this:

ABCThis is an apple <-- I want to find this string 1
DEFEThis is a dog
GHQ123This is goodABC <-- I don't want this string 3
BGHThis is a book

Let say I want to search for the 1st string pattern "ABC" in the textfile, so I have this command:

If InStr(rdLine, "ABC") then tmpVar=rdline

but everytime the file is read, tmpVar is always assign with String 3 rather than String 1.

Is is possible for me to check this string pattern "ABC" where there is NO characters infront
of "ABC" so that String 1 will return.

Those labels (ABC, DEFE, GHQ123, BHG) have variable length rather than fixed length.

Thanks in advance.

String Compare
I have two strings to compare ,though they looks the same , the return boolean is false....

lstrString = (xlsheet.Cells(2, 1).Value) ' retrieve from excel which is empty
lstrString1 = ""
MsgBox IsNull(lstrString = lstrString1)

What happen?

Regards
Goh

How To Compare One String To.....HELP!!
Hello,
I'm trying to compare 2 strings(username, and password) to a textfie that I have loaded into my app, via richtextbox.
If there is a way to compare it without using the richtextbox that is cool. I have a textfile that has the usernames and accounts of my users in it. I get the user name and pass from the client they are using(winsock)..then I want to check if the username and password exists in my textfile. I thought I had this down, but it's not comparing right. Anyone know how to do this??? Thanks.

(eVB) How To Specified A String To Compare???
Hi everyone,
Example i got this string "ABCDEFG"
But i only want to compare position 3 to position 5 and that is the character "CDE" with what the user going to key in.

Anyone know how to extract just the position 3 to position 5 character to be compare??

Your help is greatly appreciated.
thanks

String Compare
Dear All,
Can some one give example for string compare using Like Operator?

Compare String To File
hi, this is a complicated one but i hope its possible.

what im doing is opening a file, loading so much of it into the ram (using get) then adding it to the end of another file (using put). then it repeats again so i get one file that contains a lot of other files.

now for the hard part. is there a way that i can compare the file being added and the current file with other files inside it and if theres a section of the 2 files thats longer than X amount of chars then put the positions into variables.

is that possible and will it be fast enough? the big file could be anything upto 1GB total. i dont want to wait more than a few mins for the whole thing to finish

Compare String Algorithm
Hello,

I am trying to compare two sets of strings and return a result in a percentage value for how similar the two strings are.
I realise this is a complicated function (well not a very easy one anyway), since there are many factors to analysing a percentage, like the number of words in each string, capitals and such, but still i am sure there should be some kind of function that does that.

if anyone can help me that would be great (and i'm sure there's some college student that required to do that in uni).

thanks,

Dor

How To Compare Recordset With String?
hi,

I am having this problem, I try to compare recordset with a string something like this...

if Adodc1.recordset!Name = "string" then
.....

this doesn't work Please help me.

thanks in advance.

Find String.... Compare It
OK...
I have a rich text box reading in a dat file.

I have a variable with the line i know is there.
I need the program to search the lines, to see if this is the same as the one i have stored.

Thanks for any help.
-Dave

String Compare Prob
hi
i started learning vb a few weeks ago and im making a prog where i need to compare two strings of numbers where the numbers are separated by a space and the strings have 7 numbers

Code:
a= " 23 2 12 5 26 21 38"
b= " 2 21 16 33 13 32 14"
'string b has 2 numbers that match string a
'so i would need the numbers that match to be displayd in a label and
'the number of numbers that match to allso be diplayd
'so i would get
label1.caption = "2" 'the number of numbers that match
label2.caption = "2 21" 'the numbers that match

ive tried a few things using instr and strcomp but i dont figure it out

How To Compare Recordset With String?
hi,

How to compare a recordset data with a string? I have something like this which doesn't work

If Adodc.Recordset!ColumnName = "String" Then
.....

I have a for loop before this statement to compare one record at a time.

I am trying to select only the record in this database which have data in "ColumnName" equal to the string I compare with.

Please help, thanks in advance.

String Compare In Query
Hello everyone.
i m using access db and vb6.0
i m using adodb for my conection

i want a query which will be executed in vb as
"select * from tble where 'a-a' ='a a'

that means match all strings having - and space should get matched.
i used replace function but in my code it gives an error as 'undefined finctuion replace' and the same query i executed in access, it successfully runs.
so is there any way ?