gastao Posted February 26, 2013 at 09:22 PM Report #497157 Posted February 26, 2013 at 09:22 PM (edited) boas tou a tentar ler uma query de uma base de dados e gravar o seu resultado num .TXT andei na pesquisa e tou aqui com umas pequenas duvidas de variaveis. alguem me consegue dar uma ajuda Dim strIniFile As String = My.Application.Info.DirectoryPath & "\config.ini" 'Le qual o caminho das Facturas escrito no Ini Dim bdsql As String = GetIniSetting("CaminhoBaseDados", "MudaDocumentosSage", strIniFile) Dim bdnome As String = GetIniSetting("NomeBaseDados", "MudaDocumentosSage", strIniFile) Dim bduser As String = GetIniSetting("User", "MudaDocumentosSage", strIniFile) Dim bdpass As String = GetIniSetting("Password", "MudaDocumentosSage", strIniFile) Dim nomecliente As String = GetIniSetting("Cliente", "MudaDocumentosSage", strIniFile) 'conexao SQL Dim consql As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection("Data Source='" & bdsql & "';Initial Catalog='" & bdnome & "'; Integrated Security=false; User Id='" & bduser & "';Password='" & bdpass & "';") 'query Dim query As String = "SELECT SaleTransactionDetails.ItemID, SaleTransactionDetails.Quantity, SaleTransactionDetails.TaxIncludedPrice FROm SaleTransactionDetails INNER JOIN Item ON SaleTransactionDetails.ItemID = Item.ItemID WHERE SaleTransactionDetails.DtAlt = '2012-02-01'" Dim command As New SqlCommand(query, consql) command.ExecuteNonQuery() dr = command.ExecuteReader Dim sb As New StringBuilder While dr.Read() 'vai ler linha por linha StringBuilder sb.AppendLine(String.Format("{0} | {1} | {2} | {3}", dr.item("ItemID"), dr.item("Quantity"), dr.item("TaxIncludedPrice"))) End While 'ondecolocar o ficheiro File.WriteAllLines("D:\teste.txt", sb.ToString()) ta me a dar -> Warning 1 Runtime errors might occur when converting 'String' to 'System.Collections.Generic.IEnumerable(Of String)'. Edited February 26, 2013 at 09:46 PM by gastao GeSHi
gastao Posted February 26, 2013 at 10:49 PM Author Report #497172 Posted February 26, 2013 at 10:49 PM isto ta me a dar erro ao gravar apenas para o ficheiro alguem tem uma ideia???
NunoDinis Posted February 26, 2013 at 11:14 PM Report #497174 Posted February 26, 2013 at 11:14 PM poe uma msgbox do sb e diz-me o que ele retorna sff. em todo o caso o erro esta em estares a converter o sb para string... vamos ver a melhor maneira de como podemos fazer isso. Estranha forma de vida que tem a capacidade de transformar comandos em mensagens de erro. ndsotware.org
gastao Posted February 26, 2013 at 11:36 PM Author Report #497177 Posted February 26, 2013 at 11:36 PM MsgBox(sb.ToString) retoma aquilo que eu pretendo. por exemplo: 1000|1|-33,34 1000|5|3,29 1000|2,4|2,34 1000|1,42|1,24 ... e por ai fora isto na msgbox ta bacano 😉 so que para o file e mentira 😞 isto quando eu meto o File.WriteAllLines("c:\test.txt", sb.ToString()) no sb.tostring aparece me a sublinhado a dar aquela situaçao que coloquei em cima
gastao Posted February 27, 2013 at 12:18 AM Author Report #497179 Posted February 27, 2013 at 12:18 AM File.WriteAllText("c:\test.txt", sb.ToString) desta maneira funciona 😉 agora e so manipular os dados desejados para la 😉
NunoDinis Posted February 27, 2013 at 08:41 AM Report #497187 Posted February 27, 2013 at 08:41 AM Força! Se tiveres dúvidas expõe 🙂 Estranha forma de vida que tem a capacidade de transformar comandos em mensagens de erro. ndsotware.org
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now