Novato em ASP.net

[kioshy 0]

Salve galera http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Bom estou começando agora com o asp.net em VB e encontrei um probleminha estou usando o VS 2005

 

bom é o seguinte

em asp eu faço isso aki:

ASP

[*] <%IF idHotel <> "" And IDHotel <> "Selec" then

 

[*] Strsql = "SELECT"_

 

[*] & " SERVICOHOSPEDAGEM.ID ID_SERVICOHOSPEDAGEM,"_

 

[*] & " SERVICO.ID AS ID_SERVICO,"_

 

[*] & " SERVICO.DESCRICAO AS TIPOAPTO,"_

 

[*] & " SERVICOHOSPEDAGEM.DESCRICAO"_

 

[*] & " FROM"_

 

[*] & " SERVICO, NEGOCIACAOHOSPEDAGEM, NEGOCIACAOHOSPEDAGEMSERVICOH, SERVICOHOSPEDAGEM"_

 

[*] & " WHERE"_

 

[*] & " NEGOCIACAOHOSPEDAGEM.ID = NEGOCIACAOHOSPEDAGEMSERVICOH.ID_NEGOCIACAOHOSPEDAGEM AND"_

 

[*] & " SERVICOHOSPEDAGEM.ID_SERVICO = SERVICO.ID AND"_

 

[*] & " SERVICOHOSPEDAGEM.ID = NEGOCIACAOHOSPEDAGEMSERVICOH.ID_SERVICOHOSPEDAGEM AND"_

 

[*] & " NEGOCIACAOHOSPEDAGEM.ID_HOTEL = " & IDHotel & " AND"_

 

[*] & " NEGOCIACAOHOSPEDAGEM.ID_PROJETO = " & IDPrj & " Order by ID_SERVICO"

 

[*]

 

[*] Set ObjTPAp = Server.CreateObject("ADODB.Recordset")

 

[*] ObjTPAp.Open StrSql, Conn_Reserva

 

[*] IF ObjTPAp.EOF = False then

 

[*] ObjTPAp.MoveFirst

 

[*] end if

 

[*] %>

 

[*] <select name="ap" class="select"><%Aux = VerSeTem(2)%>

 

[*] <%Aux = VerSeTem(4)

 

[*] Do While ObjTPAp.EOF = false %>

 

[*] <option value="<%=ObjTPAp("ID_SERVICO")%>"<%If CStr(i)=CStr(Aux) Then Response.Write " selected"%>><%=ObjTPAp("DESCRICAO")%></option>

 

[*] <% 

 

[*] i = i + 1

 

[*] ObjTPAp.MoveNext 

 

[*] Loop

 

[*] ObjTPAp.Close

 

[*] Set ObjTPAp = Nothing %>

 

[*] </select>

 

 

Bom agora a minha dúvida como eu faço isso em Asp.net???

[rOcKLoCo 0]

adiciona um controle DropDownList, depois adiciona um SqlDataSource, configura do jeito q você quer... e só associar ao controle dropdown...muuuito simples...Att,Carlos

[kioshy 0]

beleza Até ai eu consegui agora tem um outro detalheeu tenho q depois do ultimo registro adicionar um a mais.Como eu posso fazer isso??? outra coisa eu coloquei um primeiro valor no meu DropDownList como "Selecione o Hotel", mas na hora q eu executo esse valor some pq???

[DiFalco 0]

beleza Até ai eu consegui agora tem um outro detalhe

 

eu tenho q depois do ultimo registro adicionar um a mais.

Como eu posso fazer isso??? outra coisa eu coloquei um primeiro valor no meu DropDownList como "Selecione o Hotel", mas na hora q eu executo esse valor some pq???

<{POST_SNAPBACK}>

você tem q colocar o valor inicial depois q você dá carga no DropDownList, assim:

 

myDropDownList.Items.Insert(0, New ListItem("-- Selecione o Hotel --", "0"))

 

e para adicionar um a mais você pode colocar o comando myDropDownList.Items.Add...

 

espero ter ajudado..

[kioshy 0]

:( Bom galera obtive algumas responsta mas nenhuma delas era realmente o q eu preciso, vejam este código em asp:

 

ASP

[*]Strsql = "SELECT RIGHT('00'+CONVERT(VARCHAR(2),DAY(Data)),2)+'/'+RIGHT('00'+CONVERT(VARCHAR(2),MONTH(Data)),2) AS CHECKIN"_

 

[*]& " from allotment"_

 

[*]& " where id_Projeto = " & IDPrj & " and id_hotel = " & idhotel & "Order by Data"

 

[*]  

 

[*]Set ObjDTSaida = Server.CreateObject("ADODB.Recordset")

 

[*]ObjDTSaida.CursorType = 2

 

[*]ObjDTSaida.Open StrSql, Conn_Reserva

 

[*]

 

[*]if ObjDTSaida.EOF = False then

 

[*]ObjDTSaida.MoveLast

 

[*]

 

[*]Data = CDate(ObjDTSaida("CHECKIN")) + 1

 

[*]Dia = Day(Data)

 

[*]Mes = Month(Data)

 

[*]

 

[*]if Mes < 10 then

 

[*]Mes = "0" & CStr(Mes)

 

[*]end if

 

[*]if Dia < 10 then

 

[*]Dia = "0" & CStr(Dia)

 

[*]end if

 

[*]Data = Dia & "/" & Mes

 

[*]

 

[*]ObjDTSaida.MoveFirst

 

[*]ObjDTSaida.Move 1

 

Bom pra quem não entender o script é o seguinte:

 

Para cada Hotel eu tenho algumas datas gravadas no banco de dados sendo que no sistema para q eu possa fazer a reserva do cliente a opção de data de saida tem q ter um dia a mais do que a ultima data gravada no sistema.

 

Portanto o que eu preciso é pegar a ultima data cadastrada no sistema somar mais um dia e colocar na Dropdownlist

 

Espero que tenha sido bem claro no que eu quero

 

Desde já Agradeço http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[kioshy 0]

Salve galera :)

 

To aki mais uma vez para informar q eu consegui resolver a minha dúvida vlw pela ajuda.

Aquele procedimento ficou assim:

 

Dim Conn As New Data.SqlClient.SqlConnection("Data Source=IT-SQL;Initial Catalog=IT;Persist Security Info=True;User ID=csilva;Password=12345")

Dim Query As String

 

Query = "Select a.ID, a.Nome"

Query = Query & " From Entidade a, Hotel b, NegociacaoHospedagem c, projeto d"

Query = Query & " Where (((a.ID = b.ID_Entidade) and C.ESGOTADO = 0 AND b.ID_Entidade = c.ID_Hotel) and c.ID_Projeto = d.ID) and (d.ID in(72))"

 

Dim Command As New Data.SqlClient.SqlCommand(Query, Conn)

Dim Dr As Data.SqlClient.SqlDataReader

 

ListHotel1.Items.Clear()

ListHotel1.Items.Add("Selecione o Hotel")

 

ListHotel2.Items.Clear()

ListHotel2.Items.Add("Selecione o Hotel")

 

Try

Conn.Open()

Dr = Command.ExecuteReader()

 

Do While Dr.Read()

ListHotel1.Items.Add(Dr(1))

ListHotel2.Items.Add(Dr(1))

Loop

 

Finally

Conn.Close()

End Try

 

 

Ainda tenho q melhorar ele um bocado pra ficar do jeito q eu preciso.