Girréis

Prezados, Estou aprendendo a trabalhar com banco de dados, e estou tentando importar dados do arquivo excel para access 2003 tanto manual como em script e como faço isso? E mais, os dados em excel estão com apenas uma coluna e várias linhas separados por ; Segue em anexo uma foto do arquivo em excel. obrigado pessoal.

Prezados, Gostaria de um modelo em ASP que busque informações de um banco de dados e mostre essas informações em uma página web em formato de tabela, acionando um botão. Obrigado, Ramon

Prezados, Amigos. Estou com uma dúvida, criei um banco chamado Teste e com faço para importar os dados de um arquivo texto cujo formato está da seguinte forma: Policy_Domain_Name Schedule_Name Associated_Nodes ------------------------------ ------------------------------ ---------------------------------------------------------------- PD_EX001 BKP-EXC-DIARIO-RJ0000NT511-EXC PD_EX001 BKP-EXC-DIARIO-RJ0000NT512-EXC PD_EX001 BKP-EXC-DIARIO-RJ0000SR511-EXC RJ0000SR511-EXC PD_EX001 BKP-EXC-DIARIO-RJ0000SR512-EXC RJ0000SR512-EXC PD_EX001 BKP-EXC-DIARIO-RJ0000SR513-EXC RJ0000SR513-EXC PD_EX001 BKP-EXC-DIARIO-RJ0000SR514-EXC RJ0000SR514-EXC Ainda não criei tabela, pois quero além de criar uma tabela, os campos acima tem que estar presentes ao importar. São mais 100 registros. Grato pela ajuda. Ramon

Bom dia, amigos. ontem instalei o SP6 para que eu pudesse usar a sintaxe: .Orientation = rptOrientLandscape acontece que deu erro ao compilar, como faço para resolver esse problema? grato, girréis obs: segue a parte do código. erro: Compile error: Method or data member not found Private Sub cmdPrevia_Click() Dim vdescricao As Integer, filtro As String With DataReport1 .Orientation = rptOrientLandscape For i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Checked = True Then filtro = filtro & IIf(filtro <> "", " Or ", "") & " IDENTIFICACAO like '" & ListView1.ListItems(i) & "'" End If Next DataSubsistemas.rsCommand1.Filter = filtro .Show End With End Sub Encontrei no site da microsoft um trecho do erro acima, alguém pode me explicar? Microsoft Visual Studio 6.0 Service Pack 4 introduces a new property called Orientation for Data Report. The value for this property is: rptOrientDefault = 0 rptOrientPortrait = 1 rptOrientLandscape = 2 With this property, you are able to tell the Data Report not to use the orientation setting of the default printer in the Printers Folders. Following is the syntax for implementing the Orientation property: DataReport1.Orientation = rptOrientLandscape DataReport1.Show When you use this new Orientation property in Visual Studio 6.0 Service Pack 4, you may encounter the error below: Compiler Error Method or Data member not found. To fix this error, delete the values for DataMember and DataSource properties of the Data Report and reassign these two properties with the original values. valeu, girréis

Macêdo, qual é a sintaxe? girreis

Boa tarde, amigos Como faço para incluir, em código, para mudar a orientação da impressão de Retrato para Paisagem e vice-versa. Um abraço, girréis

Kuroi, como faço para configurar a impressão como PAISAGEM? tem solução? Grato, Girréis

Kuroi, gostei da explicação, testarei amanhã no trabalho. mais uma vez obrigado, testarei e estarei torcendo para que dê certo. um abração, Girreis

Kuroi, filtro = Iif(filtro <> "", " Or ", "") " IDENTIFICACAO like '" & ListView1.ListItems(i) & "'" o que significa Iif ? essa não entendi? Girréis

Obrigado, Macêdo! deu certo, aprendi! mas agora como implemento para que imprima os que foram selecionados? grato, Girreis Macêdo, ficou jóia, consegui implementar para imprimir conforme a filtragem. segue o código abaixo: Private Sub cmdPrevia_Click() Dim vdescricao As Integer For i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Checked = True Then 'MsgBox "selecionado" vdescricao = MsgBox("Itens selecionados: " & ListView1.ListItems(i), vbOKOnly, "informações") Label1.Caption = "deu certo" DataSubsistemas.rsCommand1.Filter = " IDENTIFICACAO like '" & ListView1.ListItems(i) & "'" DataReport1.Show End If Next End Sub Acontece que se eu seleciono mais de um item, ele só apresenta a impressão do primeiro item selecionado! como contorno isto? se quero que imprima apenas 2 itens, ele tem que visualizar 2 itens antes de imprimir, tem como resolver isto? Grato, Girreis Alguém pode me auxiliar? como devo proceder? Girreis

Kuroi, consegui fazer com listview, segue abaixo o código, ok? uma pergunta: estou tentando implementar no botão prévia (cmdprevia_click) que ao clicar ele lista num msgbox os itens que foram clicados, mas não está dando certo, poderia me ajudar? segue o código: Option Explicit Dim vCodIdentificacaoSubsistema As Long Dim vCod As String Dim cnnComando As New ADODB.Command Dim rsSelecao As New ADODB.Recordset Dim i As Integer Private Sub cmdFechar_Click() Unload Me End Sub Private Sub Form_KeyPress(KeyAscii As Integer) 'Se a tecla Enter foi pressionada, passa o foco para o próximo controle na 'seqüência de TabIndex: If KeyAscii = vbKeyReturn Then SendKeys "{Tab}" KeyAscii = 0 End If End Sub Private Sub Form_Load() Dim vCod2 As String 'Centraliza o formulário na área de trabalho do MDI: Me.Left = (frmSistControle.ScaleWidth - Me.Width) / 2 Me.Top = (frmSistControle.ScaleHeight - Me.Height) / 2 'Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnBancoSCS ' .CommandType = adCmdText 'Monta o comando SELECT para selecionar o registro na tabela: ' .CommandText = "SELECT * FROM ConsultaSubsistemas ORDER BY identificacao;" ' Set rsSelecao = .Execute End With 'carrega list CarregamentoListView Label1.Caption = "" End Sub Private Sub cmdPrevia_Click() For i = 0 To ListView1.ListItems.Count If ListView1.ListItems(i).Checked = True Then MsgBox "selecionado" Label1.Caption = "deu certo" End If Next End Sub Public Sub CarregamentoListView() Dim IdLst As ListItem 'Dim i As Integer 'abre o recordset With cnnComando .ActiveConnection = cnnBancoSCS .CommandType = adCmdText 'Monta o comando SELECT para selecionar o registro na tabela: .CommandText = "SELECT * FROM ConsultaSubsistemas ORDER BY identificacao;" Set rsSelecao = .Execute End With 'limpa o listview ListView1.ColumnHeaders.Clear ListView1.ListItems.Clear 'define se irá aparecer um checkbox para listar ListView1.Checkboxes = True 'mostrar as linhas do grid ListView1.GridLines = True 'define para selecionar a linha inteira ListView1.FullRowSelect = True 'define o tipo de listview ListView1.View = lvwReport ListView1.ColumnHeaders.Add , , "", 300 ListView1.ColumnHeaders.Add , , "Nome", 3000, lvwColumnCenter Do Until rsSelecao.EOF Set IdLst = ListView1.ListItems.Add(, , rsSelecao!identificacao) If Not IsNull(rsSelecao!identificacao) Then If Not IsNull(rsSelecao!identificacao) Then IdLst.SubItems(1) = rsSelecao!identificacao End If rsSelecao.MoveNext Loop 'fecha o recordset rsSelecao.Close Set rsSelecao = Nothing End Sub o que achou? aqui deu certo, mas só falta aprender a exibir a mensagem com os itens que foram clicados! será que você consegue me dar um help? Valeu, Girreis

Macêdo, isso mesmo, mas onde coloco esta instrução? dentro código do botão imprimir?

Kuroi, o que você postou, é exatamento o que está dando erro: o temp2 armazena o último dado selecionado pela linha e não na caixa de seleção. acontece o que quero é que depois de finalizar a seleção dos itens, irei clicar em um botão que irá visualizar a impressão com os itens selecionados. não sei se esta função (o uso do listbox) permite isso, se não for poderia ser o listview, mas o problema é que não sei seu formato e como usar para se conectar ao banco de dados. eu te mandei um e-mail para que você averigue, usando um banco de dados qualquer. um abraço, girreis

Macêdo, já tenho o DataReport pronto, o que quero é escolher itens da lista pronta no listbox e mandar imprimir o que selecionei! grato, girreis

Macêdo, não consegui implementar, segue abaixo parte do código, veja o que precisa ser implementado. Grato, Girreis Option Explicit Dim vCodIdentificacaoSubsistema As Long Dim vCod As String Dim cnnComando As New ADODB.Command Dim rsSelecao As New ADODB.Recordset Private Sub cmdFechar_Click() Unload Me End Sub Private Sub Command1_Click() - é aqui que estou tentando implementar! Dim temp, temp2 As String Dim i As Integer For i = 0 To ListaFornecedores.ListCount - 1 If ListaFornecedores.Selected(i) Then temp2 = ListaFornecedores.Text (temp2 = ListaFornecedores.List(i)) End If Next End Sub 'Dim vCodFornecedor As Long Private Sub Form_KeyPress(KeyAscii As Integer) 'Se a tecla Enter foi pressionada, passa o foco para o próximo controle na 'seqüência de TabIndex: If KeyAscii = vbKeyReturn Then SendKeys "{Tab}" KeyAscii = 0 End If End Sub Private Sub Form_Load() Dim vCod2 As String 'Centraliza o formulário na área de trabalho do MDI: Me.Left = (frmSistControle.ScaleWidth - Me.Width) / 2 Me.Top = (frmSistControle.ScaleHeight - Me.Height) / 2 'Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnBancoSCS .CommandType = adCmdText 'Monta o comando SELECT para selecionar o registro na tabela: .CommandText = "SELECT * FROM ConsultaSubsistemas ORDER BY identificacao;" Set rsSelecao = .Execute End With With rsSelecao If .BOF = False Then While Not .EOF vCod2 = rsSelecao("identificacao") ListaFornecedores.AddItem vCod2 rsSelecao.MoveNext Wend Else MsgBox "Banco de dados vazio!!!", _ vbExclamation + vbOKOnly + vbApplicationModal, "Erro" Unload frmRelatFornecedores End If End With End Sub Amigos, parece fácil mas me perdi, ou seja, tenho um formulário que contém uma lista que busca no banco de dados. e neste formulário existem 2 botões, um para fechar e outro para imprimir, mas acontece que não consegui implementar um código que permite imprimir os itens selecionados, usando opção multiselect na propriedade ListBox. Como podem notar, compliquei a situação. Espero receber algumas dicas. Grato, Girreis