Promotor Advanced

Valeu ae amigo, mas o que está acontecendo é que eu uso a DAO 3.6, eu acho que é aí que está o problema, porque ela não está suportanto os Grids não, ela só funciona com o ADO para as versões 2000 ou superiores? Obrigado.

Eu costumo usar o chr(39) que é aspa simples e chr (34) que aspas dupla...

Posta o que está no primeiro form_load() do seu programa...

Eu estou querendo usar alguns desses componentes de Grid (Flex Grid, DBGrid, etc...) só que meu banco de dados está em access Xp ou 2000, por isso o formato não está reconhecido pelo "Data source componente" alguém sabe se é possível substituir esse componente ou outro jeito de ligar o banco de dados com o grid?

Valeu brother, resolveu meu problema.

Alguém sabe me dizer como fazer consulta SQL(porque no caso vou passar parâmetros) usando DAO?

Gostei, isso parece um desafio... vou tentar depois...

Me.Controls.Add "VB.TextBox", "TXTNovo" Me.Controls("TXTNovo").Visible = True

Se não quiser usar api... http://www.silicio.com.br/vb/fontes/api_008.zip

Não entendi essa dúvida...

Só uma dúvida, a última versão do Inno também e freeware?

Acredito que muitos programadores de Visual Basic assim como eu não conhecem o VB.Net ainda, então eu gostaria que dessem um olhada nesse material... http://www.wbcontroler.hpg.ig.com.br/vbnet.htm E dese sua opinião a respeito e compartilhasse mais sobre VB.NET, conosco.

Option Explicit Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const VK_MENU = &H12 Private Const VK_SNAPSHOT = &H2C Private Const KEYEVENTF_KEYUP = &H2 Private Sub Command1_Click() ' Press Alt. keybd_event VK_MENU, 0, 0, 0 DoEvents ' Press Print Scrn. keybd_event VK_SNAPSHOT, 1, 0, 0 DoEvents ' Release Alt. keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0 DoEvents End Sub 'É só rodar, ir clicar no command1 e mandar colar no paint...

Não entendi...

Se o campo for chave primária ele não consegue repitir de maneira alguma...

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim StrValid As String StrValid = "0123456789" If InStr(StrValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub

Põe a propiedade Label Edit=Manual... acho que resolve...

Para abrir arquivo de acordo com a extensão, você vai mexer com api... 'Em um módulo Public Const SW_SHOW As Long = 5 Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" ( ByVal hwnd As Long, ByVal _ lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory _ As String, ByVal nShowCmd As Long) As Long 'Em um form Private Sub Button_Click() dim i& i& = ShellExecute(0,"open",text1.text,"","",SW_SHOW) End Sub esse código eu encontrei no http://www.silicio.com.br

Sub só executa o que está dentro dela... Function executa e ainda devolve um valor... Public é porque é uma classe pública que pode ser acessado, por outro form por exemplo sem carregar o form que a tem... Private é porque não pode ser acessada por outro form, apenas mandar o form que a tem executá-la...

O que está usando? rsclientes.movefirst Do while not RSClientes.EOF if instr(0,ucase(rsclientes("NMClientes")),ucase("Augusto"))>0 then msgbox "Achou" endif rsclientes.movenext loop esse caso aí deve resolver...

Private Sub Command1_Click() Shell Text1.Text End Sub

Esse assunto é muito interessante, se quiser pode me procura, para descutir mais a respeito.

Cara tem mais de 2 horas que eu estou pesquisando esse negócio aqui, mas até agora não consegui um resultado concreto... mas achei muita coisa, só que tudo em inglês por isso não consegui chegar a uma resposta ainda, então a partir de agora é com você, se achar dá o retorno pro pessoal aqui... http://www.xtremevbtalk.com/archive/index.php/t-177842.html http://vbnet.mvps.org/index.html?code/wmi/wmibaseboard.htm

Um jeito é criando arquivo.qualquercoisa salvando os dados usando ponto delimitador, onde esse arquivo nada mais é do que um arquivo texto com extensão por ele criada... vamos supor o cara quer gravar um nome, com a cidade e profissão... no banco de dados dele(arquivo texto) vai ficar... Pacatão;João Monlevade; Mecânico se ele quiser pode usar cripitografia também, mas aí já vai complicar mais um pouco... Acho que isso atenderia...

'O engraçado é que o evento click despara sozinho... 'Você ainda pode usar o evento Onclick 'A combobox está com nome de Combo1 Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode <> 38 And KeyCode <> 40 And KeyCode <> 13 Then KeyCode = 0 End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii <> 13 Then KeyAscii = 0 End If End Sub Vê se isso atende porque na verdade eu não entendi o que você queria...