Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: prasanna kunder
  Where is prasanna kunder?
 mumbai
 India
 prasanna kunder
 To: tushar Kanvinde
  Where is tushar Kanvinde?
 Kolhapur, Maharastra
 India
 tushar Kanvinde
 Tags
Subject: RE: CA Class
Thread ID: 373598 Message ID: 373643 # Views: 36 # Ratings: 0
Version: Visual FoxPro 9 Category: Databases, Tables and SQL Server
Date: Sunday, March 24, 2013 5:31:56 PM         
   


> >
> > sir how i can use same connection for all my ca
>
> At the start of your program give
>
> gnConnection=SQLStringConnect("DRIVER={MySQL ODBC 5.2(w) Driver};SERVER=192.168.0.52;database=maxell_Data;uid=root;pwd=pmk007")
>
> and in the init of the cursor adapter give
> this.DataSource=gnConnection
>
> Regards
> Tushar
> http://weblogs.foxite.com/tushar/


thanks sir , that i am missing

check this is correct

SET MULTILOCKS ON
PUBLIC lodo,ToDo,GnConnection
lodo = CreateObject("CursorAdapter")
lodo.DataSourceType="ODBC"
gnConnection=SQLStringConnect("DRIVER={MySQL ODBC 5.2(w) Driver};SERVER=192.168.0.52;database=maxell_Data;uid=root;pwd=pmk007")
lodo.DataSource = gnConnection
lodo.alias = "Cust_Details"
lodo.SelectCmd="select * from Customer_Detail"
lodo.TABLES='Customer_Detail'
lodo.KEYFIELDLIST='IdCustomer_Detail'
g='ACCCODE,ACCHEAD,SRNO,NAME,DESIG,landMobile' 
TEXT TO lodo.UPDATABLEFIELDLIST TEXTMERGE PRETEXT 15 noshow
	<<g>>
ENDTEXT 
l='IDCUSTOMER_DETAIL Customer_Detail.IDCUSTOMER_DETAIL,ACCCODE Customer_Detail.ACCCODE,ACCHEAD Customer_Detail.ACCHEAD,SRNO Customer_Detail.SRNO,NAME Customer_Detail.NAME,DESIG Customer_Detail.DESIG,landmobile Customer_Detail.landmobile'

text to lodo.UPDATENAMELIST TEXTMERGE pretext 15 noshow
	<<l>>
endtext

lodo.CursorFill()
					   
Todo = CreateObject("CursorAdapter")
Todo.DataSourceType="ODBC"
todo.DataSource = gnConnection
todo.alias = "AInfo"
todo.SelectCmd="select * from Info"
todo.TABLES='Info'
todo.KEYFIELDLIST='IdInfo'

g='ACCCODE,ACCHEAD' 
TEXT TO Todo.UPDATABLEFIELDLIST TEXTMERGE PRETEXT 15 noshow
	<<g>>
ENDTEXT 
l='IdInfo Info.IdIfo,ACCCODE Info.ACCCODE,ACCHEAD Info.ACCHEAD'
TEXT TO Todo.UPDATENAMELIST TEXTMERGE pretext 15 noshow
	<<l>>
ENDTEXT 

Todo.CursorFill()


sir may be i am near to CA
thanks again for your valuable support

ENTIRE THREAD

CA Class Posted by prasanna kunder @ 3/24/2013 4:31:52 AM
RE: CA Class Posted by tushar @ 3/24/2013 5:07:34 AM
RE: CA Class Posted by prasanna kunder @ 3/24/2013 5:14:17 AM
RE: CA Class Posted by tushar @ 3/24/2013 5:26:34 AM
RE: CA Class Posted by prasanna kunder @ 3/24/2013 5:34:34 AM
RE: CA Class Posted by tushar @ 3/24/2013 6:01:30 AM
RE: CA Class Posted by prasanna kunder @ 3/24/2013 5:31:56 PM