I have an SQL statement in my program that looks like this:
data3.recordsource = “SELECT id, date from reservations where (date = ‘” & maskededit1.text & “‘) and (id = ” & data1.recordset.fields(“movie_id”).value & “)”“date” is declared as Date/Time, “id” and “movie_id” are integers. The program crashes on this statement (which is on the line after the SELECT statement):
data3.refreshIt gives me a “Type Mismatch” error. I have spent two days trying to solve this problem.
Try the following to replace your code:
Dim sSQL as StringsSQL = “SELECT id, date FROM reservations WHERE “sSQL = sSQL + “date = ” + CVar(MaskedEdit1.Text)sSQL = sSQL + ” AND id = ” + data1.recordset(“movie_id”)data3.RecordSource = sSQLdata3.RefreshThis broke the SQL statement up to make it more readable. CVar converts text to a Variant, which deals with dates much better. In addition, no parentheses are needed in the SELECT statement. Also, to get the field value, you do not use the Fields collection. The Recordset property is a Dynaset, and can be used as such.