Visual Basic

22-Dec-09 8:08

Experts, i need your help Frown | :(

I have got so far with a search option however it doesn't seem to work.

I have a simple database of a person, the fields are labeled up ID, First_Name, Surname etc etc

if for example bob wants to know how many points he scored in maths test A i want to be able to search for bob and got bob you scored 0

this is so far how much i have done.

Adodc1.RecordSource = "SELECT * From datagrid1 WHERE [First_Name] = 'bob'"

eventually i will add a text box instead of hard coding bob.
so it may look something along the line of this

<pre>Adodc1.RecordSource = "SELECT * From datagrid1 WHERE [First_Name] = 'txtSearch.text'"</pre>

i again tried this and nothing worked Frown | :(

it would really help me if someone could tell me where i have gone wrong. Every thing else works apart from this.

Many thanks

Dan

Luc Pattyn22-Dec-09 8:20

Luc Pattyn

22-Dec-09 8:20

You need string operations for this, try something along this line:
Adodc1.RecordSource = "SELECT * From datagrid1 WHERE [First_Name] = '" & txtSearch.text & "'"

Of course your app now becomes vulnerable to "SQL injection" where a malignant user enters special stuff in the textbox in order to alter what your SQL statement does; say he enters some data, a closing quote, a semi-colon and a DELETE statement...

So you should test the variable text and filter all abnormal stuff; or use parameterized SQL (not sure that exists in VB6).

BTW: I also suggest you take the first exit from the VB6 highway as it is leading nowhere, VB being obsolete.
VB.NET is the more recent Basic-like language.

Smile | :)

Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

offroaderdan22-Dec-09 8:29

22-Dec-09 8:29

thanks for the quick reply.

umm it doesn't seem to work, if i wanted to try it with a record i know that is in there would i use

Adodc1.RecordSource = "SELECT * From datagrid1 WHERE [First_Name] = '" & "bob" & "'"

thanks again

offroaderdan22-Dec-09 8:32

22-Dec-09 8:32

saying that it could well be working, is there any way to get that record highlighted?

so if it finds record "bob" it has the whole record highlighted?

i know that there could be millions of bobs in this records however this is just an example

Smile | :)

dan

Luc Pattyn22-Dec-09 8:36

Luc Pattyn

22-Dec-09 8:36

You'll need to do some research to get SQL working in your environment.
RecordSource does not seem like the right property for SQL statements.
Sorry can't help you on this any further.

PS: try to provide precise information and ask precise questions, "it doesn't seem to work" isn't very informative.

Smile | :)

Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

offroaderdan22-Dec-09 8:40

22-Dec-09 8:40

sorry, nothing seems to come out of the program when i press "search" after i have put in bob in txtSearch

that is why i was wandering if there was anyway of highlighting the database record that MAY have been found. Or finding out if the program has actually searched?

Dan

Eddy Vluggen22-Dec-09 9:39

Eddy Vluggen

22-Dec-09 9:39

First, are you selecting data from a table or from a grid? Try to run your query from SQL Management Studio, or run it without the filter to see if it returns anything at all.

You should indeed use the ADODB.Command (with parameters!) to return a ADODB.RecordSet. More information can be obtained here[^] Smile | :)

I are Troll Suspicious | :suss:

offroaderdan22-Dec-09 10:59

22-Dec-09 10:59

Thanks for the help, umm this seems a little to complicated.

All i originally wanted was a search box with a button saying search, when the user types someting in the textbox and hits search i wanted the database to display that record.

The database all works fine it just the search box that i need help with

I found this website however i am new to vb6 so sorry if the link you showed me is a lot easier to use than the current way.

http://www.bigresource.com/Tracker/Track-vb-wINQIg4YXj/[^]

many people have been saying that this is the best way

"SELECT * From DataGrid1 WHERE [First_Name] = " & "'" & First_Name & "'" & ""

however i cant't seem to get this to work Frown | :(

as the code doesn't react. I just click the button and nothing happens.

If you can help me that would be very helpful.

offroaderdan22-Dec-09 11:09

22-Dec-09 11:09

I seem to have got a little bit further

DataGrid1.RecordSelectors = "SELECT * From Adodc1 WHERE [First_Name] = '" & txtSearch.Text & "'"

this seems to do more than the old code, however brings up an error saying type

run time error 13

type mismatch

I think i am nearly there Smile | :)

(probably not but hey)

If anybody can help that would be great!!

Dan

Md. Marufuzzaman22-Dec-09 11:22

Md. Marufuzzaman

22-Dec-09 11:22

At first I would like to suggest...Stop writing code in vb6..Start with VB/C#.Net. If you are bounded to write code on vb6
it will be better to read vb6 book first...

Thanks
Md. Marufuzzaman

Eddy Vluggen22-Dec-09 11:57

Eddy Vluggen

22-Dec-09 11:57

Usually I'd agree with getting a book first, but VB6 is a piece of antique. You fix it and get the Hell out or there Smile | :)

Let's try and divide it into two separate problems; first you'd need to get an argument from a textbox. The second task is to use this argument in the SQL statement. So, the code would be changed to something like this;

Dim Arg$
Arg$ = txtSearch.Text

Dim Statement$
Statement$ = "SELECT * FROM [tablename] WHERE [First_Name] = '" & Statement$ & "'"

DataGrid1.RecordSelectors = Statement$

This is not the "ideal" construct, as it leaves you vulnerable to hackers. That's something that you can worry about when the code works though. Put a breakpoint on the last line by clicking in the gutter, run your code and press Ctrl-G when you reach the breakpoint. That will cause the "immediate"-window to pop up.

Type "? Statement$" and press enter in that Window. VB6 should react by showing you the contents of the Statement$ variable. You can copy/paste this SQL-statement here, if you want to have it verified.

I are Troll Suspicious | :suss:

offroaderdan22-Dec-09 23:24

22-Dec-09 23:24

Thank you ever so much for your help, unfortunately i am still receiving a few errors.

I ma probably doing something wrong but just want to clarify. Table name is the access file? or is it the table you have but in vb6?

And the First_Name is the column you want to search?

I have tried the code but am still receiving an error message. run time error 13
type mismatch

I think i'll glad to get this done and move onto a more up to date language!!!

Thanks again

Dan

Eddy Vluggen23-Dec-09 0:39

Eddy Vluggen

23-Dec-09 0:39

offroaderdan wrote:
I ma probably doing something wrong but just want to clarify. Table name is the access file? or is it the table you have but in vb6?

It's the name of the table, as it appears in the Access-file. Click on the Access-file one, hold down shirt, and double-click. That should open the database. The should be a list of tables. You can test your SELECT statement directly in Access, by creating a new Query.

offroaderdan wrote:
And the First_Name is the column you want to search?

Yup

I'd go for something like this;

VB.NET

Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As ADODB.Recordset

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Northwind.mdb;User Id=admin;Password=;"
con.Open

cmd.CommandText = "SELECT * FROM [Employees]"
cmd.CommandType = adCmdText
cmd.ActiveConnection = con.ConnectionString

Set rst = cmd.Execute
 ' Proces here :)

rst.Close
con.Close

Set rst = Nothing
Set cmd = Nothing
Set con = Nothing

I are Troll Suspicious | :suss:

offroaderdan23-Dec-09 7:20

Re: Technical documentation of a software [modified]

23-Dec-09 7:20

Thanks for the reply

I am currently getting an error saying unrecognized database format in vb6?

Umm the database file is all fine? I don't know why this has happened.

I have tried to code a different way as today one of my mates let me borrow a book in vb6 and i found a db way (so thought i'd try it)

has anyone ever come across this error and if so how do you get rid of it??

Many thanks

Dan

[Message Deleted]

manisghouri22-Dec-09 5:06

manisghouri

22-Dec-09 5:06

[Message Deleted]

Dr.Walt Fair, PE22-Dec-09 5:48

Dr.Walt Fair, PE

22-Dec-09 5:48

This doesn't have much to do with VB. Try your local college's English department, assuming the documentation is to be in English.

I think you could probably use Bing/Google yourself, but here are a couple of links from Bing that may or may not be useful:

http://www.klariti.com/technical-writing/index.shtml[^]
http://www.pegr.com/howtowriteatechnicalwritingmanual.html[^]

CQ de W5ALT

Walt Fair, Jr., P. E.
Comport Computing
Specializing in Technical Engineering Software

modified on Tuesday, December 22, 2009 12:02 PM

Writing the content of a text file

hvgyufg28fh38tyr78hf22-Dec-09 2:38

hvgyufg28fh38tyr78hf

22-Dec-09 2:38

hi all,

i want to write the content of a text file to another txt file exactly like what i have in original file.

i used write,writeline and put functions. but to my surprise, i found the text file is benig written without the new line character.

for example:

original file content:

aefaiojefioae
fafajfpfjafaffjaeiofjafjfjfi
faijfoijf
faioj

Para 2:
fafaopfopfkaokfopfaopkfopkopafopkfpoaf. fijaoijij
fafijoifjfiajparwto

MY COPIED FILE content:
aefaiojefioae fafajfpfjafaffjaeiofjafjfjfi faijfoij ffaioj Para 2: afaopfopfkaokfopfaopkfopkopafopkfpoaf. ijaoijij fafijoifjfiajparwto

Can anyone help me on how to write the content of the file exactly as what i have in original?

Thanks,
mahi.

Ashfield22-Dec-09 2:42

Ashfield

22-Dec-09 2:42

Why not just use system.io.file.copy?

Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP

Luc Pattyn22-Dec-09 2:42

Luc Pattyn

22-Dec-09 2:42

File.Copy is the simple way. Copying bytes, not characters (hence using a byte array), is the alternative.

Smile | :)

Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

#realJSOP22-Dec-09 4:09

#realJSOP

22-Dec-09 4:09

Is the text in memory, or is it still in the original file?

.45 ACP - because shooting twice is just silly
-----
"Why don't you tie a kerosene-soaked rag around your ankles so the ants won't climb up and eat your candy ass..." - Dale Earnhardt, 1997
-----
"The staggering layers of obscenity in your statement make it a work of art on so many levels." - J. Jystad, 2001