SQL - Statement!

[hyme]

Howdy!

I can't seem to get the proper quotes for this statement, help me, Please!

Global Num1, Num2 As Integer
Global F1, F2 As String

num1 = 1
Num2 = 2
F1 = "Hello"
F2 = "Goodbye"

SQL = "SELECT * FROM Table1
WHERE Field1 = '" & Num1 & "'" & " AND Field2 = " & Num2
& "'" & " AND Field3 = " & F1 & "'" & " AND Field4 = " & F2

Set ado1rs = New Recordset
ado1rs.Open SQL, db, adOpenStatic, adLockOptimistic


Thanx!

[sebs]

Try this and let me know!!!

Global Num1, Num2 As Integer 
Global F1, F2 As String 

num1 = 1 
Num2 = 2 
F1 = "Hello" 
F2 = "Goodbye" 

SQL = "SELECT * FROM Table1 
WHERE Field1 = '" & Num1 & "' AND Field2 = '" & Num2 
& "' AND Field3 = '" & F1 & "' AND Field4 = '" & F2 & "'" 

Set ado1rs = New Recordset 
ado1rs.Open SQL, db, adOpenStatic, adLockOptimistic

[Mark Sreeves]

you don't need quotes for numbers

SQL = "SELECT * FROM Table1 WHERE Field1 = " & Num1 & " AND Field2 = " & Num2 & " AND Field3 = '" & F1 & "' AND Field4 = '" & F2 & "';"


note:

global keyword is old an yukky!

Global Num1, Num2 As Integer
Global F1, F2 As String

is declaring Num1 as Variant and Num2 as Integer
is declaring F1 as Variant and F2 as String

I always get lost when messing around with " vs '.....

use CHR$(34) for " and CHR$(39) for '

...


sql = sql & "this is text..." & chr$(34) & "quoted" & chr$(34)




Good Luck
DerFarm

[hyme]

I am using ado to Access97
and I still get an error with the statement

Dim Num1 As Integer
Dim Num2 As Integer
Dim F1 As String
Dim F2 As String

Set db = New Connection
dbname = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source= C:\db1.mdb;Persist Security Info=False"
db.CursorLocation = adUseClient
db.Open dbname

Num1 = 1
Num2 = 2
F1 = "Hello"
F2 = "Goodbye"

Sql = "SELECT * FROM Table1 WHERE Field1 = " & Num1 & " AND Field2 = " & Num2 & " AND Field3 = '" & F1 & "' AND Field4 = '" & F2 & "';"

Set ado1rs = New Recordset
ado1rs.Open Sql, db, adOpenStatic, adLockOptimistic

[sebs]

instead of:
Set ado1rs = New Recordset
ado1rs.Open SQL, db, adOpenStatic, adLockOptimistic

try:
set ado1rs=db.execute(Sql)