pascasso
29-07-2007, 22:33
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
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
-----------------------------------------------------------------------------------------
"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:
<%@ 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
Erro de servidor na aplicação '/mill'.
Erro de compilação
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
-----------------------------------------------------------------------------------------
"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:
<%@ 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