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, ...