zekasan Posted June 25, 2013 Report Share Posted June 25, 2013 Boa tarde, teria alguma alma caridosa que possa me fornecer algo bem básico, que contenha a forma como se conecta ao banco MSSQL Server 2008? Preciso de um exemplo, estou garimpando no site e não consegui nada concreto.... Estou utilizando o Five 8.08 ou o 12.07 com xharbour, e uso tb o xDev Agradeço a colaboração. Quote Link to comment Share on other sites More sharing options...
alex2002 Posted June 25, 2013 Report Share Posted June 25, 2013 Segue. ////////////////////////////////////////////////////////// Function AcessaMSSQL( ) LOCAL oCn, oRs, oErr Local cServerIP := "Alexandre-Note" Local cDatabaseName := "nome_do_banco" Local cUserName := "Alexandre VB" Local cPassWord := "senha" local lErro := .f. // Modelo de autenticação com senha // cConnection := "driver={SQL Server Native Client 10.0};Server="+cServerIP+";Database="+cDataBaseName+";Uid="+cUserName+";Pwd="+cPassword+";" // Modelo de autenticação com LOGON do windows cConnection := "driver={SQL Server Native Client 10.0};Server="+cServerIP+";Database="+cDataBaseName+";Trusted_Connection=yes;" // o nome do driver pode alterar conforme versão do client // Criando o objeto oCon:=CreateObject("ADODB.Connection") // Abrir Conexao com o SQL SERVER oCon:Open( cConnection ) // dando um selec cCmdSql := 'select cd_cc, nr_chq, cd_mot, CONVERT(char(10),dt_sus, 126) as sustacao FROM nome_do_banco.dbo.t401chsu where cd_und = '+str( nAgencia, 4 ) oRS := oCon:Execute(cCmdSql) // da um While no retorno da SQL While !oRS:EOF() cConta := oRs:Fields("cd_cc"):value cCheque := oRs:Fields("nr_chq"):value cMotivo := oRs:Fields("cd_mot"):value dSusto := oRs:Fields("sustacao"):value // Tratando todos os campos cConta := if( empty( cConta ), '00000000', strzero(cConta,8,0) ) cCheque := if( empty( cCheque ),'000000', strzero( cCheque, 6, 0) ) cMotivo := if( empty( cMotivo ),'', cMotivo )d dSusto := if( empty( dSusto ), '19800101', sonumeros(dSusto) ) cConta := substr( cConta, 1,7)+'-'+substr( cConta, 8, 1 ) dSusto := CETOD( dSusto ) /* trabalhando com os meus dados .. .. .. */ oRs:MoveNext() enddo // Finalizar uso do Retorno. oRS:Close() ///////////////////////////////////// Um abraço, Alexandre Pereira Quote Link to comment Share on other sites More sharing options...
zekasan Posted June 26, 2013 Author Report Share Posted June 26, 2013 Caro Alexandre (tinha que ser Pereira, o meu é José Carlos Pereira), muito obrigado pelo seu retorno e a mão que tú me deste, consegui finalmente conectar e ver uma das tabelas, só mais uma coisinha, onde posso estudar estes comandos ? com que nome devo procurar? (exemplo comandos do xharbour). OBRIGADO novamente,você não sabe o tamanho do galho que foi quebrado... Quote Link to comment Share on other sites More sharing options...
zekasan Posted June 26, 2013 Author Report Share Posted June 26, 2013 . Quote Link to comment Share on other sites More sharing options...
alex2002 Posted June 26, 2013 Report Share Posted June 26, 2013 Olá, Então, eu sugiro que vc veja as classes (fwh\source\classes) e tambem os exemplos (\fwh\samples).Basicamente é isso. Mas se precisar de algo é só berrar aqui no fórum. Um abraço, Alexandre Pereira Quote Link to comment Share on other sites More sharing options...
Yury Posted June 26, 2013 Report Share Posted June 26, 2013 olá José Carlos caso precise utilizar outras propriedades / métodos do componente ADODB, no link abaixo tem uma documentação bem simples: www.w3schools.com/ado/met_rs_save.asp abraço Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.