Valores nulos

[ucx 0]

Minha aplicação funciona normalmente. A rotina vai no banco de dados, pega um número, multiplica pelo valor de algum text, e mostra em outro text.. Bem simples..

Tudo funciona normalmente, a consulta funciona, as variáveis estão ok..

Mas online não funciona! Ao invés de puxar o valor correto da tabela, a aplicação puxa "0".. e o resultado dos texts é "0"...

*É exatamente a mesma página, usando o mesmo banco.

 

Alguém tem alguma idéia?

 

Obrigado!

[quintelab 91]

Cara a possibilidade é não estar no mesmo banco.

Mas poste uma a parte do código e como esta a estrutura do seu banco.

 

Abraços...

[ucx 0]

Olá quintelab! Obrigado pela resposta. O código é esse:

 

 

Imports System.Data
Imports MySql.Data.MySqlClient

Partial Class _Default
	Inherits System.Web.UI.Page


	Protected Sub txtValorTotal_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtValorTotalNota.TextChanged
		If txtValorTotalNota.Text = "" Then
			lblErro_Data.Text = "<br> <font color=red size=2> Digite o valor </font> "
			txtDtEmissao.Focus()
		Else

			Dim Valor As Double
			Valor = txtValorTotalNota.Text

			Dim cnBancoDados As New MySqlConnection("Server=mysql01.servidor.com.br;Database=database;Uid=usuario;Pwd=senha;")
			cnBancoDados.Open()
			Dim cmBusca As New MysqlCommand
			cmBusca.CommandText = "Select * from tbTabela where RegimeTributario = '" & "Lucro Presumido" & "' and Recipiente = '" & ddlDestinatario.SelectedValue & "' "
			
		cmBusca.Connection = cnBancoDados

			Dim drResultado As MysqlDataReader
			drResultado = cmBusca.ExecuteReader()
			If drResultado.HasRows = True Then 'se tiver resultados
				Do While drResultado.Read()

						Dim Pis As Double = drResultado("PIS")
						txtPIS.Text = "PIS, " & Valor & ", " & Pis 'linha para verificação do que está sendo o erro. Retornou "PIS", o valor correto e o valor do dataReader como "0"
						'txtPIS.Text = Valor * (drResultado("PIS") / 100)
						txtCOFINS.Text = Valor * (drResultado("COFINS") / 100)
						txtCSLL.Text = Valor * (drResultado("CSLL") / 100)
						If drResultado("INSS") <> 0 Then
							txtINSS.Enabled = True
							txtINSS.Text = Valor * (drResultado("INSS") / 100)
						Else
							txtINSS.Text = ""
							txtINSS.Enabled = False
						End If
				Loop
			End If

			drResultado.Close()
			cnBancoDados.Close()
		End If
		
	End Sub

Localmente, os valores puxados do datareader vem correto. Online não funciona, vem com "0".

 

Obrigado!

[ucx 0]

Amigos.... Já estou me convencendo que isso é algum problema de configuração..

Aconteceu a mesma coisa denovo!!! No debug as coisas funcionam e online não!! E agora não teve interação com o banco de dados, foi apenas conversão de valores..

Meu web.config está assim:

 

<?xml version="1.0"?>
<!-- 
	Note: As an alternative to hand editing this file you can use the 
	web admin tool to configure settings for your application. Use
	the Website->Asp.Net Configuration option in Visual Studio.
	A full list of settings and comments can be found in 
	machine.config.comments usually located in 
	\Windows\Microsoft.Net\Framework\v2.x\Config 
-->
<configuration>
	<appSettings/>
	<connectionStrings/>
	<system.web>
		<!-- 
			Set compilation debug="true" to insert debugging 
			symbols into the compiled page. Because this 
			affects performance, set this value to true only 
			during development.

			Visual Basic options:
			Set strict="true" to disallow all data type conversions 
			where data loss can occur. 
			Set explicit="true" to force declaration of all variables.
		-->
		<compilation debug="false" strict="false" explicit="true">
			<assemblies>
				<add assembly="System.Design, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
				<add assembly="System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
				<add assembly="System.Web.Extensions.Design, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
				<add assembly="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
				<add assembly="WindowsBase, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
				<add assembly="MySql.Data, Version=5.0.8.1, Culture=neutral, PublicKeyToken=C5687FC88969C44D"/></assemblies>
		</compilation>
		<pages>
			<namespaces>
				<clear/>
				<add namespace="System"/>
				<add namespace="System.Collections"/>
				<add namespace="System.Collections.Generic"/>
				<add namespace="System.Collections.Specialized"/>
				<add namespace="System.Configuration"/>
				<add namespace="System.Text"/>
				<add namespace="System.Text.RegularExpressions"/>
				<add namespace="System.Web"/>
				<add namespace="System.Web.Caching"/>
				<add namespace="System.Web.SessionState"/>
				<add namespace="System.Web.Security"/>
				<add namespace="System.Web.Profile"/>
				<add namespace="System.Web.UI"/>
				<add namespace="System.Web.UI.WebControls"/>
				<add namespace="System.Web.UI.WebControls.WebParts"/>
				<add namespace="System.Web.UI.HtmlControls"/>
			</namespaces>
		</pages>
		<!--
			The <authentication> section enables configuration 
			of the security authentication mode used by 
			ASP.NET to identify an incoming user. 
		-->
		<authentication mode="Windows"/>
		<!--
			The <customErrors> section enables configuration 
			of what to do if/when an unhandled error occurs 
			during the execution of a request. Specifically, 
			it enables developers to configure html error pages 
			to be displayed in place of a error stack trace.

		<customErrors mode="RemoteOnly" defaultRedirect="GenericErrorPage.htm">
			<error statusCode="403" redirect="NoAccess.htm" />
			<error statusCode="404" redirect="FileNotFound.htm" />
		</customErrors>
		-->
	</system.web>
	<system.codedom>
	</system.codedom>
	<!-- 
		The system.webServer section is required for running ASP.NET AJAX under Internet
		Information Services 7.0.  It is not necessary for previous version of IIS.
	-->
	<system.webServer>
	</system.webServer>
</configuration>