Fórum Construir WS com select Box #3341
05/03/2009
0
Régis Mello
Curtir tópico
+ 0Posts
05/03/2009
[devmedia .net]
Gostei + 0
05/03/2009
Régis Mello
Gostei + 0
05/03/2009
[devmedia .net]
comboBox1.DataTextField = "NOME_PAIS"; // Nome do campo que contém o nome do país na tabela comboBox1.DataValueField = "CODIGO_PAIS"; // Nome do campo que contém o código do país na tabela comboBox1.DataBind(); Então na chamada do método do seu WS você colocará metodoWebservice(comboBox1.SelectedValue);//comboBox1.SelectedValue é o código do país na tabela só isso... Quanto a outra dúvida... Você deve fazer a mesma coisa de cima... comboBox1.DataSource = dt; Aqui você coloca a tabela que contém os países válidos
comboBox1.DataTextField = "NOME_CATEGORIA"; // Nome do campo que contém o nome da categoria comboBox1.DataValueField = "CODIGO_CATEGORIA"; // Nome do campo que contém o código da categoria comboBox1.DataBind(); Na sua tela você terá um TextBox que corresponderá ao nome da subcategoria... txtSubCategoria no método de inserção da subcategoria você fará..
inserirSubcategoria(comboBox1.SelectedValue, txtSubCategoria.Text); só implementar essa idéia e boa... Aguardo seu retorno.. Grande Abraço Carlos Jr
Gostei + 0
06/03/2009
[devmedia .net]
Gostei + 0
06/03/2009
Régis Mello
Gostei + 0
07/03/2009
[devmedia .net]
Gostei + 0
09/03/2009
[devmedia .net]
Gostei + 0
10/03/2009
Régis Mello
Gostei + 0
10/03/2009
[devmedia .net]
Dim StrConnection As String = "Provider=microsoft.Jet.Oledb.4.0;Data Source=c:\\database\tblImagem.mdb"
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
If FileUpload1.PostedFile.FileName <> "" Then
'Cria a conexão do banco de dados
Dim ObjConnection As New OleDbConnection(StrConnection)
'Cria a string do comando sql
Dim SqlStr As String = "Insert into tblImagem(Nome,Imagem,Tamanho) values(@nome,@imagem,@tamanho)"
'Cria o objeto OleDbCommand para adicionar a string de conexão e comando sql
Dim ObjCommand As New OleDbCommand(SqlStr, ObjConnection)
'Adiciona o parametro dos objtos ao OleDbCommand
ObjCommand.Parameters.AddWithValue("@nome", TextBox1.Text)
ObjCommand.Parameters.AddWithValue("@imagem", FileUpload1.PostedFile.FileName)
ObjCommand.Parameters.AddWithValue("@tamanho", FileUpload1.PostedFile.ContentLength)
'Abri a conexão
ObjConnection.Open()
'Executa o comando no banco
ObjCommand.ExecuteNonQuery()
'Cria o camando para trazer o ultimo registro
Dim SqlMax As String = "Select Max(ID) from tblImagem"
'Cria o comando para calcular o ultimo registro
Dim ObjCommandMax As New OleDbCommand(SqlMax, ObjConnection)
'Determina o numero da imagem
Dim nMax As String = ObjCommandMax.ExecuteScalar().ToString()
'Nome temporario
nMax = nMax + ".jpeg"
'Salva o arquivo
FileUpload1.SaveAs(Server.MapPath("Imagens/" + nMax))
'Cria outra string Sql para atualiza o banco
Dim StrSqlAtualiza As String = "Update tblImagem set imagem=@imagem where id=@id"
'Cria o ObjCommand para ser executado
Dim ObjCommandAtualiza As New OleDbCommand(StrSqlAtualiza, ObjConnection)
'Adiciona os parametros
ObjCommandAtualiza.Parameters.AddWithValue("@imagem", Server.MapPath("imagens/") & nMax)
ObjCommandAtualiza.Parameters.AddWithValue("@id", ObjCommandMax.ExecuteScalar().ToString())
'Executa o comando
ObjCommandAtualiza.ExecuteNonQuery()
'fecha a conexão
ObjConnection.Close()
GridView1.DataBind()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<p>
<br />
<br />
<br />
Nome:
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server"
ControlToValidate="TextBox1"
ErrorMessage="Campo Obrigatório">*</asp:RequiredFieldValidator>
<p>
</p>
<asp:ValidationSummary ID="ValidationSummary1" runat="server"
EnableClientScript="False" ShowMessageBox="True" ShowSummary="False" />
<p>
Foto:
<asp:FileUpload ID="FileUpload1" runat="server" />
</p>
<p>
<asp:Button ID="Button1" runat="server" onclick="Button1_Click"
Text="Inserir" />
</p> Aguardo seu retorno, Abraços Carlos Jr
Gostei + 0
10/03/2009
Régis Mello
Gostei + 0
10/03/2009
[devmedia .net]
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)