1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

problemas com strings

Discussão em 'Web Development' iniciada por pascasso, 29 de Julho de 2007. (Respostas: 0; Visualizações: 613)

  1. pascasso

    pascasso Power Member

    boas pessoal, ando aqui com um problemazito, tou a fazer umas cenas em asp.net e kuando vou a compilar da.me o seguinte erro:


    Erro de servidor na aplicação '/mill'.

    Erro de compilação

    [FONT=Arial, Helvetica, Geneva, SunSans-Regular, sans-serif]Descrição: Erro ao compilar um recurso necessário para efectuar este pedido. Consulte os detalhes do erro específico que se segue e modifique o código fonte conforme apropriado.

    Mensagem de erro do compilador: BC30456: 'Text' não é um membro de 'String'.

    Erro de origem:

    ----------------------------------------------------------------------------------------
    Linha 10: data_nasc = drop1.SelectedItem.Text & "/" & drop2.SelectedItem.Text & "/" & "19" & ano.Text
    Linha 11: morada = morada.Text & " Nº" & N.text & " " & andar.Text & "º" & " " & letra.Text
    Linha 12: ars = "ARS" & " - " & ars.text
    Linha 13: outro = seguradora.text & " - " & numseguradora.text[/FONT]
    -----------------------------------------------------------------------------------------

    "text nao e um membro de string" ?????

    mas ele nao da erro na linha 9 so da na linha 11, k se passa??

    deixo aqui o codigo:

    Código:
    <%@ Page Language="VB"%>
    <%@ Import Namespace="System.Data" %>
    <%@ Import Namespace="System.Data.OleDb" %>
    <%@ Import Namespace="System.Data.OleDb.OleDbDataAdapter" %>
    <script language="vb" runat="server">
    Sub registar_OnClick(Src As Object, E As EventArgs)
            Dim data_nasc As String
            Dim morada As String
            Dim ars As String
            Dim outro As String
     
            data_nasc = drop1.SelectedItem.Text & "/" & drop2.SelectedItem.Text & "/" & "19" & ano.Text 
            morada = morada.Text & " Nº" & N.text & " " & andar.Text & "º" & " " & letra.Text
            ars = "ARS" & " - " & ars.text
            outro = seguradora.text & " - " & numseguradora.text
     
            Dim MySQL as string = "Insert into blabla (Nome_completo, Data_de_nascimento, Morada, Telemovel, Telefone, Trabalho, profissao, sistema_de_saude, Outro, EMail) values (@Nome, @data_nasc, @morada, @telemovel, @telefone, @trabalho, @profissao, @sistema, @outro, @email)"
            Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=L:\project\mill.mdb")
            Dim Cmd as New OleDbCommand(MySQL, MyConn)
            cmd.Parameters.Add(New OleDbParameter("@Nome", nome.text))
            cmd.Parameters.Add(New OleDbParameter("@data_nasc", data_nasc))
            cmd.Parameters.Add(New OleDbParameter("@morada", morada))
            cmd.Parameters.Add(New OleDbParameter("@telemovel", telemovel.text))
            cmd.Parameters.Add(New OleDbParameter("@telefone", telefone.text))
            cmd.Parameters.Add(New OleDbParameter("@trabalho", trabalho.text))
            cmd.Parameters.Add(New OleDbParameter("@profissao", profissao.text))
            cmd.Parameters.Add(New OleDbParameter("@sistema", ars))
            cmd.Parameters.Add(New OleDbParameter("@outro", outro))
            cmd.Parameters.Add(New OleDbParameter("@email", email.text))
     
            MyConn.Open()
            cmd.ExecuteNonQuery
            MyConn.Close()
     
            reset()
     
            lbl.Label = "<b><font face="Arial" color="#008000">Registado com sucesso!</font></b>"
     
    end sub
     
    
     
    Última edição: 29 de Julho de 2007

Partilhar esta Página