Visual Basic

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

Don't forget to click [Vote] / [Good Answer] on the post(s) that helped you.

I will not say I have failed 1000 times; I will say that I have discovered 1000 ways that can cause failure – Thomas Edison.

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

hvgyufg28fh38tyr78hf22-Dec-09 5:23

hvgyufg28fh38tyr78hf

22-Dec-09 5:23

text is not in memory ..its in original text file only.