AJUDA DTPICKER

ILIDIO 15/06/2015 12:42:09
#447722
Boas Pessoal,

Precisava de uma ajuda dos barras de programação vb6
é o seguinte: tenho uma comboBox (CxPag) com valores [Ô]SIM[Ô] e [Ô]NAO[Ô]
e uma DTPicker (dtPag) calendário.

Gostaria que o registo fosse efectuado na base de dados se o usuário escolher [Ô]SIM[Ô] e caso escolha o [Ô]NAO[Ô] o registo da data não é registada na base de dados
alguma ideia como fazer?

If CxPag.Text = [Ô]SIM[Ô] Then
dtPag.Visible = True
Else
dtPag.Visible = False
End If

Se necessário envio um pequeno projecto
TUNUSAT 15/06/2015 12:54:24
#447725
ILIDIO,

Quando você gravar no banco de dados, no momento que monta a [Ô]query string[Ô], você adiciona a data ou não adiciona.
Exemplo rápido adaptado do site do Macoratti (não testei):

http://www.macoratti.net/vbn_odnr.htm
Imports System.Data.SqlClient
 Dim sqlConexao As SqlConnection
 Dim sqlComando As SqlCommand
 Dim registrosAfetados As Integer
 Dim strConexao As String = [Ô]Server=(local);DataBase=TesteWind;User ID=;Password=[Ô]
 Sim strSQL as String

 Try
   sqlConexao = New SQLConnection(strConexao)

   sqlComando = new SQLCommand()

   With sqlComando
     .CommandType = CommandType.Text

     strSQL =  [Ô]Insert Categorias (NomeDaCategoria,Descrição,DataPagamento) Values ([ô]Livros[ô],[ô]Livros e artigos[ô][Ô]

     If CxPag.Text = [Ô]SIM[Ô] Then
           strSQL = [Ô], dtPag)[Ô]
     Else
           strSQL = [Ô], [ô][ô])[Ô]
    End If

     .CommandText = strSQL 
     .Connection = sqlConexao
   End With

   sqlConexao.Open()

   registrosAfetados = sqlComando.ExecuteNonQuery()

 Catch ex As Exception
     msgbox [Ô] Erro : [Ô] & ex.Message
 Finally
    sqlConexao.close()
 End Try


Seria isso?

[[ô]]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar