![](https://forum.scriptbrasil.com.br/uploads/set_resources_1/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Posts postados por cyberalexxx
-
-
-
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.
-
Private Sub Txtpesquisa_Change()
Dim I As Integer
Dim J As Integer
Dim aux As String
Dim SQL As String
Dim Sansql As String
Dim db As Database
Dim rs As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path + "\..\db1.mdb")
Set rs = db.OpenRecordset("CAD_PART")
LstPesquisa.Clear
If Txtpesquisa.text <> "" Then
J = Len(Txtpesquisa.text)
J = J Mod Letras
If J <> 0 Then
Exit Sub
End If
SQL = "Select * from cad_part where nome like '" + Txtpesquisa.text + "%' order by nome"
Set rs = db.OpenRecordset(SQL)
If rs.RecordCount > 0 Then
Do While Not rs.EOF
LstPesquisa.AddItem rs.Fields(0)
rs.MoveNext
Loop
End If
rs.Close
End If
End Sub
-
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.
-
Set Obj = Server.CreateObject("ADODB.Connection")
obj.Open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ="&Server.MapPath("Banco_Site.mdb")
Str = "select * from cliente where CPF ='"&CPF&"' "
set Rs = Obj.execute(Str)
if Rs.eof then
Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&CPF&"''"&email&"','"&login&"','"&senha&"')"
Session ("OBS")= "<B>Usuário cadastrado com sucesso</B>"
OBJ.EXECUTE(STR)
Response.Redirect ("comprar.asp")
else
Session("OBS")= "<B>Usuário já existente ! Tente Novamente</B>"
Response.Redirect ("principal.asp")
Rs.close
Rs=nothing
End if
-
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.
-
-
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>" %>
-
Vou tentar aqui e te digo. Pra que serve a instrução ddd.setfocus?
Para posicionar o cursor no campo DDD
-
x=1
<% While not RsListaInicial.eof %>
<img width="94" height="71" src="Admin/ImagensPublicidades/<%RsListaInicial.Fields("Foto").value%>"
<%=RsListaInicial.Fields("Descricao")%>
if x mod 3 = 0 then
response.write "</P></td>"
end if
x = x + 1
<%
RsListaInicial.MoveNext
Wend
%>
-
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:
Private Sub Gera_Click()Dim fso As New FileSystemObject
dim arquivo as textstream
Set arquivo = fso.CreateTextFile("c:\temp\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
-
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:
Private Sub Combo1_Click()If Combo1.Text = "0 - 50" Then
SQL = "Select Op_Final as Operadora,count(*) From COBILLING_BLOQUEIOS Where Data_Desbloqueio is NULL and minutagem between 0 and 50 Group by Op_Final"
End If
adodb.RecordSource = SQL
adodb.Refresh
DataGrid1.Refresh
End Sub
-
mude a coluna:
LstItems.AddItem (.Fields(1))
ou coloque o nome do campo:LstItems.AddItem (.Fields("nomedocampo"))
-
Ok mas como eu testo esse onchange? Esse método não tá listado nas propriedades do combo box.
E esse Adodc no caso representa o que?
[]s
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)
Asp E Interbase
em ASP
Postado
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.