Graymalkin

De nada, bsmith! Agora, se cadastre aí e venha fazer parte da nossa comunidade (ajudando e sendo ajudado). Abraços, Graymalkin

Você poderia pedir o usuário e senha no momento da execução ou encriptar esse arquivo texto e só desencriptar na hora que ele fosse ser usado. São duas opções que imaginei. Abraços, Graymalkin

Sim, eu mesmo já escrevi um tutorial sobre como usar ADO (ActiveX Data Objects) com Python, que por sua vez é a forma mais usada para abrir um banco de dados Access em qualquer linguagem: http://www.pythonbrasil.com.br/moin.cgi/PythonComADO Certo? ;) Graymalkin

Sim, você pode fazer algo assim: diretório = App.Path If Right(diretório, 1) = "\" Then diretório = Left(diretório, Len(diretório) - 1) 'Retira a última \ se ela estiver presente Data1.DatabaseName = diretório & "\teste.mdb" Data1.Refresh Com isso o seu programa vai procurar o banco no mesmo diretório onde estiver o executável. Certo? ;) Graymalkin

Sim, é só você usar automação do Excel. Faça uma busca aqui no fórum e você encontrará exemplos de como manipular o Excel desta maneira. Abraços, Graymalkin

O problema de utilizar os dois na mesma partição é que diferentemente da pasta Windows, cujo nome você pode configurar (Win98 e WinXP, por exemplo), a pasta "Arquivos de Programas" você não tem como mudar e vai ser a mesma para ambos. Abraços, Graymalkin

Sim, tem sim. Há um tempo atrás eu pesquisei na Net e encontrei o seguinte código (que implementei no meu XPlayer): Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Type COPYDATASTRUCT dwData As Long cbData As Long lpData As Long End Type Private Const WM_COPYDATA = &H4A ' eg: Call SetMusicInfo("artist", "title", "album") ' eg: Call SetMusicInfo("artist", "title", "album", "WMContentID") ' eg: Call SetMusicInfo("artist", "title", "album", , "{1} by {0}") ' eg: Call SetMusicInfo("", "", "", , , False) Public Sub SetMusicInfo(ByRef r_sArtist As String, ByRef r_sAlbum As String, ByRef r_sTitle As String, Optional ByRef r_sWMContentID As String = vbNullString, Optional ByRef r_sFormat As String = "{0} - {1}", Optional ByRef r_bShow As Boolean = True) Dim udtData As COPYDATASTRUCT Dim sBuffer As String Dim hMSGRUI As Long 'Total length can not be longer then 256 characters! 'Any longer will simply be ignored by Messenger. sBuffer = "Music\" & abraços(r_bShow) & "\" & r_sFormat & "\" & r_sArtist & "\" & r_sTitle & "\" & r_sAlbum & "\" & r_sWMContentID & "\" & vbNullChar udtData.dwData = &H547 udtData.lpData = StrPtr(sBuffer) udtData.cbData = LenB(sBuffer) Do hMSGRUI = FindWindowEx(0&, hMSGRUI, "MsnMsgrUIManager", vbNullString) If (hMSGRUI > 0) Then Call SendMessage(hMSGRUI, WM_COPYDATA, 0, VarPtr(udtData)) End If Loop Until (hMSGRUI = 0) End Sub Coloque o código acima em um módulo e chame conforme mostram os exemplos. Abraços, Graymalkin

Que eu saiba não existe uma função para isso no VBScript. No VB6 você pode usar alguma função da API Win32 (GetSystemTime(), GetLocalTime() ou timeGetTime()). O que você poderia fazer é criar um componente ActiveX (um OCX) no VB6, e usá-lo no VBScript (do lado do servidor, é claro). Abraços, Graymalkin

Isso seria no Excel? Pegue a parte inteira da divisão de x minutos por 60. Você terá a quantidade de horas. Subtraia os x minutos pela multiplicação do valor inteiro por 60 e você terá os minutos. Agora... onde que 200 minutos são 3 horas e 33 minutos????? :blink: 200 minutos são 3 horas e 20 minutos. Se for no Excel: A1 = 200 B1 = INT(A1/60) B2 = A1 - B1*60 D4 = CONCATENAR(B1; " horas e "; B2; " minutos") Certo? ;) Graymalkin

Dê uma olhada aqui: http://www.mysql.com/products/connector/net/ Os princípios são os mesmos das classes já existentes em .NET (porque implementam a mesma interface). Abraços, Graymalkin

É mais simples e inteligível você fazer com um For Each: Dim texto As String = InputBox("Digite o texto:") Dim letra As String = InputBox("Digite a letra a ser procurada:") Dim qt As Integer = 0 For Each caracter As Char In texto If caracter = letra Then qt += 1 End If Next MessageBox.Show(String.Format("Quantidade de ocorrências de '{0}' em '{1}': {2}", letra, texto, qt)) Certo? ;) Graymalkin

Movendo para o local correto. Graymalkin

O que você usa para armazenar o resultado da consulta? Um DataReader, um DataSet ou uma DataTable? Abraços, Graymalkin

Aqui funcionou perfeitamente (acabei de testar): Dim cn As New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\teste.mdb" cn.Execute "CREATE TABLE Tabela (NomeCampo TEXT(40) WITH COMPRESSION)" O banco é Access 2003 e no VB6 usei o ADO 2.8. Abraços, Graymalkin

Mas, em qual linha ocorre o erro e onde está este código? Abraços, Graymalkin

Sinceramente nunca vi um batch que alterasse o conteúdo dos arquivos. Você pode manipular um conjunto de arquivos tranquilamente, mas não alterá-los (a não ser copiando dois arquivos juntos, mas não é o caso). Para o seu caso, eu aconselharia a utilização de Python, que é uma linguagem de programação simples e que serviria aos seus propósitos. Abraços, Graymalkin

Pelo que eu entendi ele quer saber como colocar uma aspa dentro de uma string literal. Por exemplo, se você colocar... s = 'Carlos Sant'anna' ... você vai receber um erro porque a segunda aspa estará fechando a primeira. Para que você possa fazer isso, em C, por exemplo, você teria que fazer: s = 'Carlos Sant\'anna' A contra-barra (ou barra invertida) em C serve como um caracter de escape para caracteres especiais. Se você mandar escrever o conteúdo de s você verá o texto normalmente: Carlos Sant'anna O mesmo caso em VB não teria problemas, uma vez que as strings são denotadas por aspas duplas ("), mas aí e se você quisesse colocar uma aspa dupla dentro do texto? Neste caso você tem que dobrar as aspas que você quer mostrar: s = "Isto é um ""teste""" No caso, em s estará o texto: Em Python (e Clipper), por exemplo, já não temos que usar de nenhum artíficio como os citados acima, já que ambas as linguagens permitem denotar strings tanto com aspas simples quanto com aspas duplas (então é só inverter quando for o caso), exemplo: s = "Carlos Sant'anna" s2 = 'Isto é um "teste"' Sacou? Três linguagens diferentes e três modos diferentes, cada qual específico. É por isso que ele tinha que dizer qual é a linguagem. Certo? ;) Graymalkin

O método bolha é o método bolha em qualquer linguagem. Ele é o mais simples método de ordenação e você chega à sua conclusão até mesmo sozinho: se você percorrer os itens de uma lista comparando cada um deles com todos os demais da lista, ao encontrar um menor que o item você vai trocar os dois de posição. Exemplo: a = Array(5, 3, 1, 2, 4) For i = LBound(a) To UBound(a) For j = LBound(a) To UBound(a) If a(i) < a(j) Then temp = a(i) a(i) = a(j) a(j) = temp End If Next j Next i For Each it In a Debug.Print it Next it Aconselho a você dar uma estudada sobre Lógica de Programação, porque esse tipo de coisa é o básico do básico. Abraços, Graymalkin

Você não estaria usando um evento que chama a si mesmo, não né? Esse tipo de coisa pode ocasionar um estouro de pilha (stack overflow). Qual o código utilizado e onde você o colocou? Abraços, Graymalkin

Você não está usando OLEDB e sim ODBC, provavelmente é esse o problema. Troque a sua string de conexão de... strCnn = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\Dados.mdb;Uid=Admin; Pwd=" ... para... strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Dados.mdb" .... e veja se dá certo. Abraços, Graymalkin

Use ADO (faça referência ao Microsoft ActiveX Data Objects 2.x): Global cn As ADODB.Connection Global rdcli As ADODB.Recordset Private Sub Form_Load() set cn = new ADODB.Connection set rdcli = new ADODB.Recordset cn.CursorLocation = adUseClient rdcli.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="App.Path + "\dbintegracao.mdb" rdcli.Open "SELECT * FROM tab_cli", cn, adOpenDynamic, adLockBatchOptimistic End Sub Certo? ;) Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=3411 Sempre faça uma busca antes de postar, ok? ;) Abraços, Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=15716 Abraços, Graymalkin

Foi por isso que eu te falei para usar DateValue(), fica bem mais simples e você não precisa inverter o dia com o mês. Abraços, Graymalkin

Qual é a linguagem? Para fazer isso em C, Python e VB você vai usar métodos diferentes. Abraços, Graymalkin