D4rk Schn31d3r

obrigado Graymalkin, mas resolvi o problema definindo um sqlDataAdapter e um DataSet: Dim frmPrincipal As New frmPrincipal Try frmPrincipal.scnSCComercial.Open() Dim scmFuncao As New SqlCommand scmFuncao.Connection = frmPrincipal.scnSCComercial scmFuncao.CommandType = CommandType.StoredProcedure scmFuncao.CommandText = "funcao_sps" Dim sdaFuncao As New SqlDataAdapter sdaFuncao.SelectCommand = scmFuncao Dim dsFuncao As New DataSet sdaFuncao.Fill(dsFuncao, "funcoes") Me.cboNomeFuncao.DataSource = dsFuncao.Tables("funcoes") Me.cboNomeFuncao.DisplayMember = "Nome_Funcao" Me.cboNomeFuncao.ValueMember = "ID_Funcao" Catch ex As Exception '... End Try , mas estou com outro problema no evento SelectedIndexChanged dessa combo: If cboNomeFuncao.SelectedIndex <> 0 Then gNumero = Me.cboNomeFuncao.SelectedValue Me.Close() End If , quando ela passa pelo Me.Close(), isto é, quando tento fechar o form depois q selecionei um item da combo, dá a seguinte mensagem de erro: An unhandled exception of type 'System.NullReferenceException' occurred in system.windows.forms.dll Additional information: Referência de objeto não definida para uma instância de um objeto - Alguém tem alguma idéia de como resolver isso?

você quer dizer uma específica para vb.net? o único tópico relacionado a .net q vi foi esse.

no evento load do meu form: Dim frmPrincipal As New frmPrincipal Try frmPrincipal.scnSCComercial.Open() Dim scmFuncao As New SqlCommand scmFuncao.Connection = frmPrincipal.scnSCComercial scmFuncao.CommandType = CommandType.StoredProcedure scmFuncao.CommandText = "funcao_sps" Dim sdrFuncao As SqlDataReader sdrFuncao = scmFuncao.ExecuteReader(CommandBehavior.CloseConnection) Do While sdrFuncao.Read() Me.cboNomeFuncao.Items.Add(sdrFuncao("Nome_Funcao")) '??? Loop sdrFuncao.Close() Catch ex As Exception '... End Try Nessa minha sp: funcao_sps, ela retorna os campos id_funcao e nome_funcao (cujos valores já estão sendo exibidos corretamente na minha combo através do método add), o q eu queria agora era associar o respectivo código (id_funcao) em cada uma das funções, como consigo fazer isso? Agradeço se alguém puder dar 1 help. OBS: no vb6, eu fazia assim: Do While Not rs.EOF cboNomeFuncao.AddItem rs("nome_funcao") cboNomeFuncao.ItemData(cboNomeFuncao.NewIndex) = rs("id_funcao") rs.MoveNext Loop

descobri como fazer, dessa forma: Private Sub Form_Load() gTipoOrdenacaoGrid = "DESC" End Sub Private Sub dgrConsCliente_HeadClick(ByVal ColIndex As Integer) If gTipoOrdenacaoGrid = "ASC" Then de.rsspCliente_sps.Sort = dgrConsCliente.Columns(ColIndex).DataField & " ASC" gTipoOrdenacaoGrid = "DESC" ElseIf gTipoOrdenacaoGrid = "DESC" Then de.rsspCliente_sps.Sort = dgrConsCliente.Columns(ColIndex).DataField & " DESC" gTipoOrdenacaoGrid = "ASC" End If End Sub fiz esse exemplo utilizando data environment (de) utilizando uma store procedure (spCliente_sps) do SQL Server 2000, uma variável global q tem q ser setada no carregamento do form, q irá determinar se a ordenação será crescente ou decrescente e um grid chamado: dgrConsCliente, ...,

Essa DLL não achei não, ..., nas opções de components e references, tem várias opções para crystal report e tal, você não sabe qual eu uso não? thx

No vb, qual é o objeto q substitui o TDBRadioGroup do Delphi? Onde posso encontrá-lo?

Ih cara, qual DLL tenho q adicionar no meu projeto? Pego ela em references ou components?

beleza, o vb me pediu pra criar um form, com esse código dentro: Dim Report As New CrystalReport1 Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer91.ReportSource = Report CRViewer91.ViewReport Screen.MousePointer = vbDefault End Sub Private Sub Form_Resize() CRViewer91.Top = 0 CRViewer91.Left = 0 CRViewer91.Height = ScaleHeight CRViewer91.Width = ScaleWidth End Sub Só q na hora de rodar, ele dá esse pau: User-defined type not defined, na linha: Dim Report As New CrystalReport1 O q está acontecendo?

Putz era só trocar $ por &H, mesmo assim, valeu aí.

Como faço pra acoplar um arquivo .rpt do Crystal ao meu projeto em vb, e como fazer para exibi-lo mediante ao clique de um botão qualquer?

Como faço pra colocar essa cor da prop. color de 1 form de Delphi: $0031319B, na prop. backcolor de 1 form em vb?

Consegui fazer uma gambiarra e resolver a situação, fiz assim: dim prm1 as string dim prm2 as string dim prm3 as string If situacao_A then prm1 = "A1" else prm1 = "A2" end if If situacao_B then prm2 = "B1" else prm2 = "B2" end if If situacao_C then prm3 = "C1" else prm3 = "C2" end if . . . de.qryConsPesq prm1, prm2, prm3 Ufaaaaaaa!!!

Alguém tem alguma idéia?

Isso, quero passar um parâmetro por vez, como faço em delphi, isso porque em determinados parâmetros tenho 2 opções, e aí teria q usar o if, para passar 1 ou outro, tipo assim: de.qryConsPesq param1 if Situação_A then de.qryConsPesq param2A else de.qryConsPesq param2B de.qryConsPesq param3 . . . , e usando esse esquema: de.qryConsPesq param1, param2, param 3 ..., não tenho como usar a cláusula if, dentro dessa passagem de parâmetros, entendeu?

Tem como eu consultar, passando um parâmetro por vez, assim: de.qryConsPesq param1 de.qryConsPesq param2 de.qryConsPesq param3 . . . , ao invés de ter q fazer obrigatoriamente assim: de.qryConsPesq param1, param2, param3, ...

Um cara de um outro fórum me ajudou, fica assim: ------------------------ Defina a opção BoundColumn para ID_Andam, e, depois faça o seguinte: Private Sub dcboAndam_Change() If dcboAndam.Text <> "" Then gnum = dcboAndam.BoundText End if ------------------------

Tenho uma DataCombo e as prop. estão definidas assim: RowSource = de RowMember = qryConsAndam ListField = Andam Minha query (ID_Andam, Andam) está assim: SELECT Andam.* FROM Andam ORDER BY Andam.Andam O q eu quero, é no evento OnClick ou OnChange dessa DataCombo, jogar o valor ID_Andam numa variável gNum, assim: Private Sub dcboAndam_Change() If dcboAndam.Text <> "" Then de.rsqryConsAndam.Filter = "Andam = " & dcboAndam.Text gNum = de.rsqryConsAndam![ID_Andam] Unload frmConsAndam End If End Sub Mas é claro q isso não está funcionando!!! Alguém poderia me ajudar? PS1: sim, meu banco possui dados PS2: estou utilizando VB6, Access 2000 e DataEnvironments (de)

Definir o DataSource, DataMember e DataField de uma caixa de texto, não funciona não?

Sim, claro. Tá aqui o meu código funcionando: - botão inserir - Private Sub cmdIns_Click() gOper = "I" Inv de.rstbContr.Open de.rstbContr!ID_Andam = de.rstbContr!ID_Andam + 1 de.rstbContr.Update If de.rsqryCadAndam.State = 1 Then de.rsqryCadAndam.Close End If de.qryCadAndam (-1) de.rsqryCadAndam.AddNew de.rsqryCadAndam!ID_Andam = de.rstbContr!ID_Andam de.rstbContr.Close txtAndam.SetFocus End Sub - botão confirmar - Private Sub cmdConf_Click() If (Trim(txtAndam.Text) = "") Then MsgBox "Esse campo deve ser preenchido!!!", vbOKOnly + vbExclamation, gSist txtAndam.SetFocus Exit Sub End If If (gOper = "I") Or (gOper = "A") Then de.rsqryCadAndam!Andam = txtAndam.Text de.rsqryCadAndam.Update ElseIf gOper = "D" Then de.rsqryCadAndam.Delete End If Limp txtAndam.SetFocus Inv End Sub Agora, se eu excluir a linha: de.rsqryCadAndam!Andam = txtAndam.Text, e setar as propriedades DataSource, DataMember e DataField em tempo de projeto, não funciona!!! Esse é o problema.

Quando defino o DataSource, DataMember e DataField de uma caixa de texto, o valor q escrevo nela, não é gravado no banco, ao invés disso, está sendo gravado 1 valor em branco, ..., só funciona, qd jogo esse código em tempo de execução: With txtAndam .DataField = "Andam" .DataMember = "qryCadAndam" Set .DataSource = de End With O q será q pode estar acontecendo?

Resolvi dessa forma: - botão inserir - Private Sub cmdIns_Click() gOper = "I" Inv de.rstbContr.Open de.rstbContr!ID_Andam = de.rstbContr!ID_Andam + 1 de.rstbContr.Update If de.rsqryCadAndam.State = 1 Then de.rsqryCadAndam.Close End If de.qryCadAndam (-1) de.rsqryCadAndam.AddNew de.rsqryCadAndam!ID_Andam = de.rstbContr!ID_Andam de.rstbContr.Close txtAndam.SetFocus End Sub - botão confirmar - Private Sub cmdConf_Click() If (Trim(txtAndam.Text) = "") Then MsgBox "Esse campo deve ser preenchido!!!", vbOKOnly + vbExclamation, gSist txtAndam.SetFocus Exit Sub End If If (gOper = "I") Or (gOper = "A") Then de.rsqryCadAndam!Andam = txtAndam.Text de.rsqryCadAndam.Update ElseIf gOper = "D" Then de.rsqryCadAndam.Delete End If Limp txtAndam.SetFocus Inv End Sub

Nenhuma idéia?

Postamos no mesmo minuto, hehehe. É isso ae, as 3 opçãos funcionam.

Um camarada de um outro fórum me ajudou, fica assim: Private Sub txtUsuar_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub

Isso, isso, isso, isso. (by Chaves )