none
Coluna calculada RRS feed

  • Pergunta

  • Bom dia a todos.

    Este sistema tem um banco de dados: COLUNAALCULADA.MDF, uma tabela Produtos com 5 campos CODIGO INT PRODUTO NVARCAR(50) PREÇO MONEY QUANTIDADE INT TOTAL MONEY

    Este codigo é para quando clicar no botão exibir, as colunas  deveraiam ser exibidas na listBox lisResultado com o valor da multiplicação da coluina quantidade pela coluna preço na coluna totalcalculado. Mas acontece este erro ao clicar no botão Exibir

    ________________________________________________________________________________________________

    Format of the initialization string does not conform to specification starting at index 0. Quero saber as possíveis soluções para corrigir este erro.                                                          Alguem aí pode ajudar-me?

    _________________________________________________________________________________________________

    Imports System.Data
    Imports System.Data.SqlClient

    Public Class Form1
        Private Sub btnExibir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExibir.Click
            Dim COM As String = "C:\Documents and Settings\nasc\Meus documentos\Estudos do Visual Basic\ColunaCalculada.mdf"
            Dim sql As String = "SELECT  * FROM M mensal"
            ' Usa a DataAdapter para preencher o DataTable
            Dim da As New SqlDataAdapter(sql, COM)
            Dim dt As New DataTable()
            da.Fill(dt)
            dt.Columns.Add(New DataColumn("totalCalculado", GetType([Decimal]), "quantidade * valor unitario"))
            lstResultado.Items.Add("codigo  produto  preço quantidade   Total")
            For Each row As DataRow In dt.Rows
                lstResultado.Items.Add(Convert.ToString(row("codigo")) & "      " & _
                                       Convert.ToString(row("produto")) & "       " & _
                                       Convert.ToString(row("preço")) & "  " & _
                                       Convert.ToString(row("totalCalculado")))
            Next
        End Sub
    End Class

    Fico no aguardo e muito obrigado

    ***********************************************************

    JOSÉ DO NASCIMENTO

    **********************************************************

    sexta-feira, 8 de abril de 2011 11:28

Respostas

Todas as Respostas

  • Jose, porque você não traz isso já calculado do banco de dados?

    Exemplo:

     "SELECT *, (quantidade * valor) as ''totalCalculado' FROM M mensal"

     


    Abraço

    Estevam

    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    sexta-feira, 8 de abril de 2011 18:55
  • Valeu Estevam pela interatividade,

    mudei o         Dim sql As String = "SELECT  * FROM M mensal" PARA FORMA QUE VOCE ME DISSE, MAS O ERRO CONTINUA

    SERÁ QUE TEM ALGUMA COISA A VER COM A STRING DE CONECXÃO? EM BREVE IREI TESTAR NUMA OUTRA APLICAÇÃO QUE FUNCIONA BEM DAÍ EU TE FALO O QUE DEU.

    ACHO QUE MEU COMPUTADOR TEM PROBLEMAS, POR QUE RECENTE FIZ OUTRA APLICAÇÃO USANDO O LINK TO SQL EM CAMADAS, SÃO DOIS FORMULARIOS E DUAS CLASSES, O CODIGO TÁ TODO CERTINHO SEM ERRO, MAS ESSA MENSAGEM APARECE AO EXECUTÁ-LO;

    A startup form has not been specified. VOCXE SABE O QUE SE REFERE ESTE ERRO?

     

    OLHA, MUITO OBRIGADO ESTEVEM

    _______________________________________________

    JOSE DO NASCIMENTO

    ______________________________________________

    sábado, 9 de abril de 2011 19:29
  • José, você alterou o select e retirou as linhas abaixos, pois você não precisara mais delas.

            dt.Columns.Add(New DataColumn("totalCalculado", GetType([Decimal]), "quantidade * valor unitario"))
            lstResultado.Items.Add("codigo  produto  preço quantidade   Total")



    Abraço

    Estevam

    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    sábado, 9 de abril de 2011 22:05
  • FIZ COMO SEGUE ABAIXO, HA, MUDEI O BANCO DE DADOS

    Imports

    System.Data

    Imports

    System.Data.SqlClient

    Public

    Class Form1

     

    Private Sub btnExibir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExibir.Click

     

    Dim COM As String = "C:\Documents and Settings\nasc\Meus documentos\Estudos do Visual Basic\ColunaCalculada.mdf"
     

     

    Dim sql As String = "SELECT *, (quantidade * pre‡o) as ''totalCalculado' FROM ColunaCalculada"
     

     

    ' Usa a DataAdapter para preencher o DataTable

     

    Dim da As New SqlDataAdapter(sql, COM)

     

    Dim dt As New DataTable()

    da.Fill(dt)

     

     

    For Each row As DataRow In dt.Rows

    lstResultado.Items.Add(Convert.ToString(row(

    "codigo")) & " " & _

    Convert.ToString(row(

    "quantidade")) & " " & _

    Convert.ToString(row(

    "pre‡o")) & " " & _

    Convert.ToString(row(

    "totalCalculado")))

     

    Next

     

    End Sub

    End

    Class

    Ao executar o sistema aparece esse erro nessa linha

    Dim da As New SqlDataAdapter(sql, COM) >Format of the initialization string does not conform to specification starting at index 0. Aforma de inicialização está incorreta. Obrigado pela paciencia.

    ***********************************************************

    JOSÉ DO NASCIMENTO

    terça-feira, 12 de abril de 2011 13:35
  • sábado, 16 de abril de 2011 20:14
    Moderador