Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Teste de SQL
Message
From
02/06/2004 14:44:55
 
 
To
21/05/2004 12:56:12
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00906061
Message ID:
00909358
Views:
13
1. criar o bd no sql server
2. colocar essa tabela no sqlserver
3. da uma olha nesta funçao
***************************
Function chamadaaosql(sqlcomando, sqlcursor)
STORE SQLSTRINGCONNECT('DRIVER='+m_driver+';SERVER='+m_servidor+';DATABASE='+;
m_bancoremo+';UID='+m_usuario+';PWD='+m_senha)TO TratadorConexao
if TratadorConexao < 0
*Erro de conexao ao banco de dados
=messagebox('Não foi possível gravar informações',16,'ERRO DE CONEXÃO AO BANCO DE DADOS')
sqlresp=.F.
else
=SQLSETPROP(TratadorConexao, 'asynchronous', .F.)
*Verifica informações do colaborador
sqlresp=0
sqlresp=SQLEXEC(TratadorConexao, sqlcomando, sqlcursor)
transacao OK
= SQLEXEC(TratadorConexao,;
'select @@ERROR as sucesso','cur_atualiza')

if cur_atualiza.sucesso=0
= SQLEXEC(TratadorConexao,;
'COMMIT TRAN','')
else
= SQLEXEC(TratadorConexao,;
'ROLLBACK TRAN','')
select cur_atualiza
=messagebox('Não foi possível gravar informações ERRO Nº '+ str (cur_atualiza.sucesso,5),16,'ERRO NO BANCO DE DADOS')
Endif

=SQLCOMMIT(TratadorConexao)
=SQLDISCONNECT(TratadorConexao)
ENDIF
Return sqlresp
Previous
Reply
Map
View

Click here to load this message in the networking platform