Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Insert data via SQLexec
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01521368
Message ID:
01521382
Vues:
46
I managed to do as below:
scatter memvar
test = SQLEXEC(m.lnHandle, "INSERT INTO correios (nome, rua);
       VALUES (m.nome,m.rua)")

= MESSAGEBOX(test)


It returns  -1


Using '  '  it seems to work:

<pre>
scatter memvar
test = SQLEXEC(m.lnHandle, "INSERT INTO correios (nome, rua);
       VALUES ('m.nome', 'm.rua')")

= MESSAGEBOX(test)


It returns  + 1


However it replaces literal value  'm.nome' and 'm.rua'  instead of value stored in variable
How can I track this error ?


Moisés







>>How can I insert data from my_local_table.dbf to my_remote_sql_table using SQLexec ?
>>
>>Please help me to complete the code below:
>>
>>
>>
>>
>>
>>thisform.status.Value = "Connecting..."
>>thisform.status.BackColor = RGB(232,255,232)
>>
>>WAIT WINDOW TIMEOUT 1
>>
>>lcServer="siteground150.com"
>>lcPort= 3306
>>lcDatabase= "monitorr_acrisoft"
>>lcUser= "monitorr_******"
>>lcPassword="**********"
>>lcStringConn="Driver={MySQL ODBC 5.1 Driver};Server=&lcServer;Port=lcPort;Option=16384;Stmt=;Database=&lcDatabase;Uid=&lcUser;Pwd=&lcPassword"
>>
>>SQLSETPROP(0,"DispLogin",1)
>>
>>thisform.status.BackColor = RGB(255,242,236)
>>
>>lnHandle=SQLSTRINGCONNECT(lcStringConn)
>>thisform.status.Value = "Connected."
>>thisform.status.BackColor = RGB(255,232,221)
>>
>>
>>*****************************************************below I need the code to: ***********************************************
>>
>>use my_local_table
>>  
>>     scan for my_local_table.control = .F. 
>>
>>* insert   my_local_table.name, my_local_table.address into  my_remote_sql_table.name, address...
>
>
>Try (check out syntax : http://www.w3schools.com/sql/sql_insert.asp)
>
>
>
>scatter memvar
>cSQL = "insert into my_remote_sql (Name,Address, ...) ('" + m.name + "','" + m.adderess + "','"... + ")"
>sqlexec(lnHandle,cSql,,a)
>
>
>Check out http://msdn.microsoft.com/en-us/library/1x933c7s(v=vs.80).aspx how to check for errors in the a array.
>
>Good luck.
>
>
>
>>
>>* if insert is successful
>> replace my_local_table.control with .T.
>>
>>endscan
>>
>>
>>
>>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform