Visual Basic

Eddy Vluggen12-Jan-09 4:51

12-Jan-09 4:51

Could it be that VB6 just doesn't like the "append"-type query?

Can you get the SQL-statement that is associated with your selection-query? If so, you could try and execute the 'raw' SQL. If that succeeds, add an "INSERT INTO" before the "SELECT"-statement.

Ehr.. one thing at a time - can you execute the query as an SQL-statement? Can you post a simplified version of the SQL here?

I are troll Smile | :)

Calferreira12-Jan-09 4:57

12-Jan-09 4:57

I tried the raw sql command using only the select without the insert and shows nothing!The problem must be there!

Eddy Vluggen12-Jan-09 5:33

Re: Problem Executing Append Query [modified]

12-Jan-09 5:33

Can you post the SQL statement that you used? Smile | :)

I are troll Smile | :)

Calferreira12-Jan-09 4:53

12-Jan-09 4:53

"SELECT ARTIGOS.CODIGO, ARTIGOS.NOME " & _
"FROM ARTIGOS LEFT JOIN Substancias ON ARTIGOS.CODIGO = Substancias.CODINTERNO " & _
"WHERE (((ARTIGOS.NOME) Like 'Acido*' or 'Cola*' or 'Purpurina*'))"

Now i have another problem although i filter to some keywords as you can see it returns all rows.
Maybe this can only be solved with a Stored Procedure..

modified on Monday, January 12, 2009 11:42 AM

EliottA12-Jan-09 5:45

12-Jan-09 5:45

Umm just a little thing, I may be way off here but in SQL isn't the wildcard string %?

Calferreira12-Jan-09 6:06

12-Jan-09 6:06

Already found the problem Big Grin | :-D

The problem was the sql query itself not it works but gives me a diferent error D'Oh! | :doh:

The sql query i'm using now is the following:

INSERT INTO Substancias ( CODINTERNO, NOMESUBSTANCIA )
SELECT ARTIGOS.CODIGO, ARTIGOS.NOME
FROM ARTIGOS
WHERE (((ARTIGOS.NOME) Like "Cola*" Or (ARTIGOS.NOME) Like "Tinta*") AND ((Exists (SELECT * FROM SUBSTANCIAS WHERE ARTIGOS.CODIGO=SUBSTANCIAS.CODINTERNO))=False));

Much more simple Smile | :)

The problem is when i execute the following code :

Dim SqlCMD As Command
               Set SqlCMD = New Command
               
               SqlCMD.CommandText = "CRegSubAdicNulo"
               SqlCMD.CommandType = adCmdStoredProc
               SqlCMD.ActiveConnection = MyCnn
               
               Set RecSet = SqlCMD.Execute(, , adExecuteNoRecords)

Gives the error "Few Parameters.1 Expected"

EliottA12-Jan-09 6:07

12-Jan-09 6:07

Sorry I don't know VB6 all that well.

EliottA12-Jan-09 6:29

12-Jan-09 6:29

Calferreira wrote:
Set RecSet = SqlCMD.Execute(, , adExecuteNoRecords)

Try
Set RecSet = SqlCMD.Execute(adExecuteNoRecords)?

Eddy Vluggen12-Jan-09 7:52

12-Jan-09 7:52

2 steps to debugging:

1) make it simpeler, until you got something that works

once you got it working, proceed to step 2;

2) re-add complexity, validating each step

SELECT *
FROM ARTIGOS
WHERE ARTIGOS.NOME Like "Cola%"

This query should return rows Smile | :)

BTW, you might want to split that complex query into a few smaller ones.

I are troll Smile | :)

Calferreira12-Jan-09 23:57

12-Jan-09 23:57

Found the problem Big Grin | :-D

The problem was,when i executed the query in access was filtering using * for example "Select * From Cars where brand='F*'" as someone posted before by using % instead of * Solved the problem Big Grin | :-D

Thank you all guys you rock! Cool | :cool:

EliottA13-Jan-09 2:59

13-Jan-09 2:59

Told you that wildcard was fishy! Smile | :)

Eddy Vluggen13-Jan-09 3:20

13-Jan-09 3:20

Well done

I are troll Smile | :)

convert string to byte

elci12-Jan-09 1:01

elci

12-Jan-09 1:01

hello please tell me how to convert string into byte values

N a v a n e e t h12-Jan-09 1:05

N a v a n e e t h

12-Jan-09 1:05

Encoding.GetBytes[^]

Navaneeth

How to use google | Ask smart questions

EliottA12-Jan-09 1:16

12-Jan-09 1:16

Not fair, I was writing a witty comment and you totally beat me to the punch with your short, concise and (probably more) helpful answer (then I would have written)!! In short, Mad | :mad:

Steven J Jowett12-Jan-09 1:44

Steven J Jowett

12-Jan-09 1:44

Why don't you share your "witty comment" anyway?; then we can judge you accordingly

Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.

N a v a n e e t h12-Jan-09 2:30

N a v a n e e t h

12-Jan-09 2:30

Navaneeth

How to use google | Ask smart questions

SSIS Package Loading and Executing in VB.NET

programmervb.netc++13-Jan-09 10:49

programmervb.netc++

13-Jan-09 10:49

Could you not use CByte()...

Humble Programmer

gzali12-Jan-09 0:41

gzali

12-Jan-09 0:41

Dear All,
i am creating a SSIS package that is executing successfully in 1 mints 30 second with dtexecui utility.
But when i am loading same package with vb.net code package execute successfuly without any error but execute some starting tasks not all.when i am executing same package by using Threads all are going wel.can anyone explain me why package is not executing without Threads successfully.

Ghazanfar Ali
Programmar (MSTS,MCPD)

urgent

ravishankar173512-Jan-09 0:21

ravishankar1735

12-Jan-09 0:21

hi all,
how to access files in the server from a remote machines.

Eddy Vluggen12-Jan-09 0:34

12-Jan-09 0:34

Over TCP/IP, WebDAV?

Using Windows Explorer?

Urgency is dependent on payment. Since I'm not paid, it ain't urgent Smile | :)

I are troll Smile | :)

EliottA12-Jan-09 1:04

12-Jan-09 1:04

Is it me or does anyone else still get giddy when they see "urgent" as the thread topic?

Eddy Vluggen12-Jan-09 1:12

12-Jan-09 1:12

Like a bull on a red flag! I enjoy helping out, but this is killing the fun of it. I can't help wondering if those people cross the streets, shouting "I'm urgentz!!", and in those daydreams I do hope they catch the bus!

Once in a while, you get a sincere "thank you"-post though.

I are troll Smile | :)

EliottA12-Jan-09 1:13

12-Jan-09 1:13

Eddy Vluggen wrote:
Once in a while, you get a sincere "thank you"-post though.

Where the hell was I for these??