Text2 = Format(Date, "DD.MM.YY")

For i =  1  To FlexGridPlus4.Rows -  1 
strsql = "insert into registr (doc_id,client_id, usluga_id, price , amount,date, time) values " _
+ "(" + Str(naklnum) + "," + Str(Combo1.ItemData(Combo1.ListIndex)) + "," + Str(FlexGridPlus4.TextMatrix( 1 ,  4 )) + "," _
 + Str(massprice(FlexGridPlus4.TextMatrix( 1 ,  4 ))) + "," + Str(FlexGridPlus4.TextMatrix( 1 ,  2 )) + "," + _
 "'" + Text2.Text + "'" + "," + "'" + Text3.Text + "')"
Debug.Print strsql
query strsql
FlexGridPlus4.RemoveItem  1 
Next i

select * from registr
where date='08.07.2010'
или
select * from registr
where date<'08.07.2010'

Text2 = Format(ctrKalendar1, "DD/MM/YYYY")

Text2 = Format(ctrKalendar1, "DD/MM/YY")

CREATE DEFINER=`root`@`localhost` PROCEDURE `add_to_registrusl`(in d_id BIGINT( 20 ),
in cl_id BIGINT( 20 ) ,in usl_id BIGINT( 20 ) ,in d_price INT( 7 ) ,
in d_am INT( 5 ) ,in d_date varchar( 20 ) ,in d_time varchar( 20 ))
BEGIN
insert into registr_usl (doc_id,client_id, usluga_id, price , amount,doc_date, doc_time)
values (d_id , cl_id , usl_id , d_price , d_am , d_date ,d_time);
END

Text3 = Format(Time, "HH:MM:SS")
Text2 = Format(ctrKalendar1, "YYYY-MM-DD")

in d_date varchar( 20 ) ,in d_time varchar( 20 )

'дата'

strsql = "CALL add_to_registrusl(" + Str(naklnum) + "," + Str(Combo1.ItemData(Combo1.ListIndex)) + "," + Str(FlexGridPlus4.TextMatrix( 1 ,  4 )) + "," + _
Str(massprice(FlexGridPlus4.TextMatrix( 1 ,  4 ))) + "," + Str(FlexGridPlus4.TextMatrix( 1 ,  2 )) + ", '" + Text2.Text + "'," + _
"'" + Text3.Text + "');"