kuroi

não tem como não, mas você pode importar o banco. nunca usei firebird, mas deve ter uma opcao de importar tabelas, não tem?

sim, mas isso q eu disse no outro post tb é verdadeiro. estava deduzindo isso com base no q você disse nesse e no outro tópico. porque eu tentei isso: Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Text = "ffsd" End Sub Private Sub Button1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = TextBox2.Text & "X" End Sub e funcionou. ele alterou tanto o text do button1 quanto do textbox2 (veja tb q eu tirei o button1.gotocus da funcao Button1_GotFocus)

entendi, então no clique de um botao, posso chamar automaticamente varias subs.

se eu tenho o evento: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub se eu quiser chamar esse evento de outra sub, o q eu tenho q passar para os parametros sender e e? e porque?

e porque você não consegue mudar o tamanho do text? se precisar apague o q vai estar la e ponha um na mao digitando você mesmo o nome do campo.

pode mas so pra numeros inteiros. senao, por exemplo, 12.75 vira 12 isso não acontece usando CDbl.

descobri. não precisa do textBox1.HideSelection = false não. percebi q do jeito q estava antes ele sempre selecionava quando eu ia de um campo pra outro usando TAB, mas não selecionava quando eu clicava. então copiei o mesmo codigo para o evento click. mas devia funcionar apenas no gotfocus, não devia? alguém sabe se tem algum jeito sem ter q copiar no evento click? valeu bruno.

valeu, mas não funcionou... continua não selecionando...

esse eu descobri: Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = 13 Then System.Windows.Forms.SendKeys.Send("{TAB}") End Sub e pra selecionar o texto?

tem uns codigos q eu fazia em vb6 q não consegui fazer funcionar em 2005. por exemplo, pra selecionar o texto de uma textbox quando ganha o foco, eu fazia assim: Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub no 2005, tentei assim e não funcionou, ele não seleciona o texto, porque? Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus TextBox1.SelectionStart = 0 TextBox1.SelectionLength = Len(TextBox1.Text) End Sub e pra passar pra proxima textbox quando o cara der enter, eu fazia assim: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then SendKeys "{TAB}" End Sub no 2005, consegui chegar ate aqui: Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = 13 Then End Submas como continuo esse if?

respondi no forum de sql

se for numero inteiro pode usar CInt, se não use CDbl. Exemplo, s é uma variavel string e n é uma variavel numero: <% n = CDbl (s) %>

acho q assim da: Select Grupo, N_Discado, Sum(Duracao) as Soma, Count(N_Discado) as Total from Tabela Group By Grupo, N_Discado Having Count(N_Discado) >= 3

tente assim: mskCadastro(6).PromptInclude = False If mskCadastro(6).Text = Empty Then MsgBox "Valor Hora Municipio não Informado.", vbInformation, sSiglaSistema mskCadastro(6).PromptInclude = True mskCadastro(6).SetFocus Exit Sub End If mskCadastro(6).PromptInclude = True

sei q da se você adicionar a referencia Microsoft Scripting Runtime. adicione a referencia e faca assim: Set f = New Scripting.FileSystemObject If not f.FileExists([caminho e nome do arquivo]) Then MsgBox "Arquivo não encontrado!"

esta mesmo certo você por os nomes de campos entre '?

o q você quer dizer com subnivel de tabela?

tem o inno setup. www.innosetup.com baixe tb o istool www.istool.org q ajuda a montar os scripts.

tente assim: <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=" & server.mappath("dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" end sub %>

tentou algum desses? 1 - prestar atenção na aula 2 - estudar 3 - tirar duvidas com o professor

criei as tabelas com mesmo nome e mesmos campos aqui e testei a consulta e funcionou. não tem porque não aceitar o as. a não ser q você esteja usando uma versao antiga do access.

então deve ser a versao... sera q tem alguma versao mais antiga do mysql q não suporta agrupamento, tipo count e sum?

não tem mysql aqui pra testar, mas criei a tabela igualzinho e testei a sql no access e funcionou. acho q deve ser algum tipo de erro de palavra chave. tipo, você já fez outras queries acessando essas tabelas e funcionou direito? porque por exemplo, no access, se eu tenho um campo chamado "local" e tento acessar ele de um select, da erro porque local é tipo uma palavra chave do access. talves no mysql, location ou members tb seja uma palavra chave. tente assim: select [location], count([location]) as contagem from [members] group by [location]

não funciona assim? Select Nome, TB2_1.NomeItem, TB2_2.NomeItem, TB2_3.NomeItem from ((TB1 INNER JOIN TB2 as TB2_1 ON TB1.ID1 = TB2_1.ID) INNER JOIN TB2 as TB2_2 ON TB1.ID2 = TB2_2.ID) INNER JOIN TB2 as TB2_3 ON TB1.ID3 = TB2_3.ID

se a coluna data for tipo Texto faça assim: Update Tabela Set Data = Dia & '/' & Mes & '/' & Ano se for do tipo data-hora, faca assim: Update Tabela Set Data = CDate(Ano & '-' & Mes & '-' & Dia) UNION não tem nada ver com isso.