local lcConnString
text to lcConnString noshow pretext 15
	Driver=MySQL ODBC 5.3 ANSI Driver;
	SERVER=localhost;
	DATABASE=qqqqqq;
	uid=qqqqq;
	pwd=qqqq;
endtext	

thisform.lnconnhandle = sqlstringconnect(lcConnString)

thisform.omycad = createobject('CursorAdapter')

		thisform.oMyCAD.Alias              = 'Curfrommysql'
		thisform.oMyCAD.DataSourceType     = 'ODBC'
		thisform.oMyCAD.DataSource         = thisform.lnconnhandle
		thisform.oMyCAD.SelectCmd          = 'Select customer_id,filial_id,customer_name from customer'
		thisform.oMyCAD.Tables             = 'customer'
		thisform.oMyCAD.BufferModeOverride = 5
                thisform.oMyCAD.UpdateType=2
		thisform.oMyCAD.UseCursorSchema = .T.
		thisform.oMyCAD.CursorSchema       = 'customer_id N(10),filial_id N(3),customer_name C(200)'
		thisform.oMyCAD.KeyFieldList	= 'customer_id,filial_id'
		thisform.oMyCAD.UpdatableFieldList = 'customer_id,filial_id,customer_name'
		thisform.oMyCAD.UpdateNameList     = 'customer_id customer.customer_id,filial_id customer.filial_id,customer_name customer.customer_name'
		thisform.oMyCAD.UseTransactions    = .f.
		thisform.oMyCAD.CursorFill()