VB DataEnvironment and SQL

[CorfuVBProgrammer]

Gia . . . ! ! !

 

Xriazome tin Voithia sas ! ! !

 

Yparxei tropos na ekteleso SQL erotimata mesa apo tin efarmogi mou ? ? ?

 

H sindesi stin Vasi dedomenon ginete meso tou DataEnvironment tis Visual Basic

 

Paradigma :

 

'-------------------------------------------------

Dim sqlStr as String

 

sqlStr = "SELECT * FROM theTable WHERE FNAME LIKE '%" & txtFNAME.Text

 

'-------------------------------------------------

 

Thanks . . . . ! ! ! !

[sotospez]

DES AYTO MPOREI NA SE BOHTHISI EINAI ENA KOMATI APO ENA

PROGRAMA MOY

 

Private Sub PrintPreview_Click()

Dim SEL As String

Dim CON1 As String

CON1 = "DATA Provider=SQLOLEDB.1;Password=PASS;Persist Security Info=True;User ID=sa;Initial Catalog=" & TxtDatabase & ";Data Source=" & TxtServer

 

Unload DataRep

DataRep.RepPel.ConnectionString = CON1

DataRep.RepPel.Open CON1

 

SEL = " SHAPE {SELECT PELATES.CODE, PELATES.NAME, PELATES.AFM, PELATES.TEL1, REC.WORKDATE, REC.WORKNAME, REC.STARTTIME, REC.STOPTIME, EMP.NAME AS EXPR1 FROM REC INNER JOIN PELATES ON REC.PELATESID = PELATES.PELATESID INNER JOIN EMP ON REC.EMPID = EMP.EMPID " _

& " WHERE REC.ISDEL <> 1 "

If SetOnePel = True Then

If PelCodeForSearch <> "" Then

SEL = SEL & " AND PELATES.CODE = '" & PelCodeForSearch & "'"

Else

MsgBox "XXXXXXXXXXX", vbCritical, "!!! XXXXX !!!"

Exit Sub

End If

End If

If SetByRecDate.Value = True Then SEL = SEL & " AND ( REC.RECDATE BETWEEN CONVERT(DATETIME, '" & Format(DateFind1.Value, "YYYY/MM/DD") & "', 102) AND CONVERT(DATETIME, '" & Format(DateFind2.

Value, "YYYY/MM/DD") & "', 102)) "

If SetByWorkDate.Value = True Then SEL = SEL & " AND ( REC.WORKDATE BETWEEN CONVERT(DATETIME, '" & Format(DateFind1.Value, "YYYY/MM/DD") & "', 102) AND CONVERT(DATETIME, '" & Format(DateFind2.Value, "YYYY/MM/DD") & "', 102)) "

SEL = SEL & " ORDER BY REC.WORKDATE } AS pel COMPUTE pel BY 'CODE','NAME','AFM','TEL1'"

 

DataRep.Commands.Item(1).CommandText = SEL

If SetAllPel = True Then DataRepPel.Sections(2).Controls.Item(1).Caption = "KATRELA PELATH"

Unload Me

DataRepPel.Show