cyberalexxx

um exemplo: fonte: http://www.connectionstrings.com/ A string correta vai depender do modo de conexão e qual driver ODBC voce esta usando, consulte a fonte que eu passei que tem mais exemplos.

para campo data uso essas duas formas: Campo DATA: '" & variavel & "' , Campo DATA: #" & variavel & "# ,

tentou da forma que eu fiz??? Poste como esta seu código agora.

fiz um rapidinho aki e funfou, ficou assim: Private Sub Text1_Change() Dim conecta As New ADODB.Connection conecta.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Documents and Settings\Administrador\Meus documentos\fontes\teste\produtos.mdb;" conecta.Open Dim rs As New ADODB.Recordset List1.Clear sql = "Select * from linhas where descricao like '" & Text1.Text & "%'" Set rs = conecta.Execute(sql) Do While Not rs.EOF List1.AddItem rs("descricao") rs.MoveNext Loop End Sub é só adaptar seus dados que vai funcionar e é claro dar uma organizada na conexão e coloca-la em um modulo, para não ficar criando a conexão a cada alteração no campo texto.

Porque voce não pega a hora e a data do sistema no momento do insert no banco?!?!?!

essa função que voce pegou é para VB!!

O access é limitado a 2 GB!!

crie uma conexão com a planilha e depois gere um recordset, feito isso faça um loop no recordset inserindo as linhas lidas no BD desejado: exemplo de conexão (fonte: www.connectionstrings.com) "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\MyExcel.xls;DefaultDir=c:\mypath;" Dica: SQL syntax: "SELECT * FROM [sheet1$]" - i.e. worksheet name followed by a "$" and wrapped in "[" "]" brackets.

já sofri com isso também!! O chato é que não consegui fazer com o DataReport, como na epoca eu estava sem Crystal utilizei o objeto Printer para gerar na raça a capa e o resumo.

tem também o http://www.codigolivre.com.br o ideal seria tentar desenvolver pois é bem facil, caso queira algo especifico entre em contato que te passo um orçamento baratin baratin.

um exemplo: http://scriptbrasil.com.br/forum/index.php...ndpost&p=234420

outra lógica: <% response.write "<table>" response.write "<tr><td>" for x = 1 to 50 response.write x if x mod 3 = 0 then response.write "</td></tr><tr><td>" else response.write "</td><td>" end if next response.write "</td></tr>" response.write "</table>" %>

Para posicionar o cursor no campo DDD

Shiii!! nunca vi isso não (em access, pois no mysql é so usar limit) uma solução seria usar select top com o numero do resgistro que você quer em ordem descrescente dai é só visualizar o primeiro registro apenas.

if left(dddterminal.text,2) <> ddd.text then msgbox "Numero de DDD inválido!", VbCritical ddd.setfocus exit sub end if é isso???

imaginei a seguinte estrutura: 1 textbox chamado txtnr onde o usuário digita o numero limite 2 textbox chamado txtresultado onde irão aparecer os numeros primos 3 botão chamado gera para executar a tarefa: Private Sub gera_Click() txtresultado.Text = Empty If IsNumeric(txtnr.Text) = True Then For i = 1 To txtnr.Text primo = True For x = 1 To i If i Mod x = 0 And x <> 1 And x <> i Then primo = False End If Next If primo = True Then txtresultado.Text = txtresultado.Text & " - " & i End If Next Else MsgBox "Valor Invalido no campo numero", vbCritical End If End Sub

aki:

em .net não sei mais em vb acho q assim funciona: For i = 1 To 20 If i Mod 3 <> 0 Then Text1.Text = Text1.Text & i & " - " End If Next

Eu costumo usar FSO pra gerar textos: Private Sub Gera_Click() Dim fso As New FileSystemObject dim arquivo as textstream Set arquivo = fso.CreateTextFile("arquivo.txt", True) Do Until Rs2.EOF arquivo.writeline Rs2("campo1") & ";" & Rs2("campo2") & ";" & Rs2("campo3") & ";" & Rs3("campo4") Loop MsgBox "Arquivo - - gerado com sucesso !!" End Sub

falha minha!! evento errado, faz assim:

mude a coluna: LstItems.AddItem (.Fields(1)) ou coloque o nome do campo: LstItems.AddItem (.Fields("nomedocampo"))

Quanto ao combo seria isso: Private Sub Combo1_Change() If Combo1.Text = "0 - 50" Then sql = sql = "Select * from tabela where valor between 0 and 50" ElseIf Combo1.Text = "50 - 100" Then sql = sql = "Select * from tabela where valor between 51 and 100" Else sql = sql = "Select * from tabela where valor > 101" End If Adodc1.RecordSource = sql Adodc1.Refresh DataGrid1.Refresh End Sub já quanto ao Adodc seria a conexão com o banco de dados que alimenta o Datagrid (eu costumo fazer assim)