marcus Gemeos

Ola, Qual ferramenta ou programa que uso para trabalhar com Visual Basic?? Obrigado!

Olá pessoal, Já resolvir, quem precisar olha o código abaixo: 'Efetuando a conexão com a base de dados criada Set objConn = Server.CreateObject("AdoDb.Connection") objConn.provider="Microsoft.Jet.OLEDB.4.0;Data Source=d:\dados\dados.mdb;Jet OLEDB:Database Password=sua_senha;" objConn.open Obrigado a todos vocês!! Marcus

Olá pessoal, Já resolvir, quem precisar olha o código abaixo: 'Efetuando a conexão com a base de dados criada Set objConn = Server.CreateObject("AdoDb.Connection") objConn.provider="Microsoft.Jet.OLEDB.4.0;Data Source=d:\dados\dados.mdb;Jet OLEDB:Database Password=sua_senha;" objConn.open Obrigado a todos vocês!! Marcus

Pode deixar já resolvir! Valeu pessoal!

Ola, meu loop funciona bem quando cadastro só uma coisa, por exemplo: cadastro o numero 1 e ele exbibe: 111111111111111 mas quando cadastro o numero 2 e 3 ele fica assim: 2222222233333333333 e o certo é assim: 1111111 2222222 3333333 entenderam? veja meu codigo abaixo: há! E meus botões excluir e alterar deve acompanhar colunas, se tiver 3 colunas deve ter tres opões de excluir do lado dela Obrigado! <table width="100%" border="0"> <tbody> <tr> <tudo><font face="Verdana" color="#583716" size="1">nãoº</font></tudo> <tudo><font face="Verdana" color="#583716" size="1">Matrícula</font></tudo> <tudo><font face="Verdana" color="#583716" size="1">Nome</font></tudo> <tudo><font face="Verdana" color="#583716" size="1">Lotação Atual</font></tudo> <tudo><font face="Verdana" color="#583716" size="1">QTD/Cupons</font></tudo> <% 'abre a conexao Call abre_conexao Fundo = "lightyellow" set rsClipping= conn.execute(sqlClipping_01) IF rsClipping.EOF then 'resposta="nãoão existe processo cadastrado!" Response.write "<i>nãoão existe processo cadastrado!</i>" else do while not rsClipping.Eof IF Fundo = "#FFF2E6" then Fundo = "white" Letra = "black" else Fundo = "#FFF2E6" Letra = "red" end if rscli1=rsClipping("cod_pesquisa") %> <tr> <tudo bgColor="<%=Fundo%>"><font face="arial" color="<%=Letra%>" size="1"><i><%=rsClipping("codigo")%></i></font></tudo> <tudo bgColor="<%=Fundo%>"><font face="arial" color="<%=Letra%>" size="1"><i><%=rsClipping("codigo")%></a></i></font></tudo> <tudo bgColor="<%=Fundo%>"><font face="arial" color="<%=Letra%>" size="1"><i><%=rsClipping("codigo")%></i></font></tudo> <tudo bgColor="<%=Fundo%>"><font face="arial" color="<%=Letra%>" size="1"><i><%=rsClipping("codigo")%></i></font></tudo> <tudo bgColor="<%=Fundo%>"><font face="arial" color="<%=Letra%>" size="1"><i><%=rsClipping("codigo")%></i></font></tudo> </tbody> </table> <% rsClipping.moveNext loop%>

Olá amigo, Mesmo com o código desse link, está dando o seguinte erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Nome de fonte de dados muito longo /construir/asp/busca.asp, line 7 Como resolver, tem como? Obrigado! Marcus

Olá amigo, Está dando o seguinte erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Nome de fonte de dados muito longo /construir/asp/busca.asp, line 7 Como resolver, tem como? Obrigado! Marcus

Não, não... com certeza não! :( Marcus

Olá amigo, Não... por que até mesmo reniciando a máquina... e executo dar esse erro... Referente ao código abaixo: 'Efetuando a conexão com a base de dados criada Set objConn = Server.CreateObject("AdoDb.Connection") objConn.provider="Microsoft.Jet.OLEDB.4.0;Data Source=\dados\dados.mdb;Password=123;" objConn.open Obrigado! Marcus

Tipo de erro: Microsoft JET Database Engine (0x80040E4D) Não é possível iniciar o aplicativo. O arquivo de informações do grupo de trabalho está faltando ou foi aberto em modo exclusivo por um outro usuário. /construir/asp/busca.asp, line 7 Alguém poderia me explicar, pois ta tudo OK guando tiro a senha... Obrigado! Precisso! Marcus

Olá, A string é essa: CODE'Efetuando a conexão com a base de dados criada Set objConn = Server.CreateObject("AdoDb.Connection") objConn.provider="Microsoft.Jet.OLEDB.4.0" objConn.connectionstring=Server.Mappath("dados/dados.mdb") objConn.open E queria colocar o comando de senha, pois o arquivo Access está protegido com senha! Precisso! Obrigado! Marcus

Ola, há um erro no código exibido o seguinte: Tipo de erro: ADODB.Field (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /aspbbs/inc_login.asp, line 19 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Página: GET /aspbbs/default.asp O código é: Obrigado! <% sql = "SELECT senhasite FROM configuracoes" Set rsTit = Server.CreateObject("ADODB.Recordset") rsTit.Open sql, conn , 3, 3 senha1 = rsTit("senhasite") senhasite = Session("senhasite") if senhasite = senha1 then nick = Session("nick") end if if nick <> "" then dim idmembro,nick,senha,nome,sobrenome,email,sexo,idioma,avatar,dob,homepage,uin,cidade,estado,pais,assinatura,ip,ultimoacesso,statuslevel,nforum dim rsUser sql = "SELECT idmembro, nick, nome, pontosforum, pontosforumtrocas, sobrenome, idioma, email, sexo, avatar, dob, homepage, uin, cidade, estado, pais, assinatura, ip, ultimoacesso, status, nforum FROM membros WHERE nick = '" & nick & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 Linha 19: idmembro = rsUser("idmembro") nick = rsUser("nick") nome = rsUser("nome") sobrenome = rsUser("sobrenome") email = rsUser("email") sexo = rsUser("sexo") avatar = rsUser("avatar") dob = rsUser("dob") homepage = rsUser("homepage") uin = rsUser("uin") cidade = rsUser("cidade") estado = rsUser("estado") pais = rsUser("pais") assinatura = rsUser("assinatura") ip = rsUser("ip") ultimoacesso = rsUser("ultimoacesso") statuslevel = rsUser("status") nforum = rsUser("nforum") idioma = rsUser("idioma") pontosforum = rsUser("pontosforum") pontosforumtrocas = rsUser("pontosforumtrocas") rsUser.Close sql = "SELECT leveis.*, nick, idmembro, status, bloquear, pontos FROM membros INNER JOIN leveis ON membros.status = leveis.statuslevel WHERE nick = '" & nick & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3 , 3 statusleveladmin = rsUser("leveladmin") statuslevelmembro = rsUser("status") statuslevelmoderador = rsUser("levelmoderador") level = rsUser("levelnome") idmembro = rsUser("idmembro") bloqueado = rsUser("bloquear") pontos = rsUser("pontos") if bloqueado = TRUE then response.redirect "bloqueado.asp" end if if statusleveladmin = TRUE then administrator = True end if if statuslevelmoderador = TRUE then moderador = True end if end if %><!--#include file="inc_leveis.asp" --><!--#include file="active_users.asp" -->

Ola, Esquecir de colocar a conxeão com banco de dados, pode? :/ Mas sobre o que voce me falou não entendir bem....não preciso declarar variavel com Dim sempre não, depende do que programei....mas surgi outro erro depois de colocar a conexao com o banco: Microsoft VBScript runtime error '800a000d' Type mismatch /sistema/conteudo/Rally2006/Relatorio/meta_gerente.asp, line 30 linha 30: If PercCon and PercProti => 100 then Imagem = "<img height="" src="" width="" border="" 20"" ../images/OK.gif"" 20"" 0"">< src="" border="" 5/5 ../images/5-5.gif"" 0"">" else Imagem = "<img height="" src="" width="" border="" 20"" ../images/NOTOK.gif"" 20"" 0"">< src="" border="" 4/5 ../images/4-5.gif"" 0"">" end if %> coloquei assim e deu erro também o mesmo: If PercCon => 100 and PercProti => 100 then Obrigado

Ola, Ocorre o seguinte erro no meu ASP: Microsoft VBScript runtime error '800a01a8' Object required: '' /sistema/conteudo/Rally2006/Relatorio/meta_gerente.asp, line 13 e o codigo que esta é: <% linha12: GERE = "SELECT * from gerentesmarcelo" linha13: Set Rs_Gerente = conn.Execute(GERE) PercPorti=Rs_Gerente("perc_prot") PercCon=Rs_Gerente("perc_con") %> há! esse from gerentesmarcelo é uma Views Preciso! Obrigado! Marcelo

Será que serve para SQL Server? Não entendo muito desse banco de dados! Obrigado! Marcus

Olá DatSet, Seu programa converte o Access em SQL Server sem perder as estrutas? Meu e-mail é: marcus_gemeos@hotmail.com Obrigadão! Marcus

Olá pessoal, É o seguinte: eu tenho um sistema que está com banco de dados Microsoft Access XP e queria converte-lo para SQL Server do jeito que se encontra a estrutura do Access, com todos os campos e tabelas criadas! Alguém poderia me explicar como faço? Precisso! Obrigado! Marcus

Acho que foi nesse modo sim...vou ver seu tópico tb...como você instala ele então? Obirgado! Marcus

Ola, Instalei com SQL server 2000 na minha maquina Windows XP e quando vou executar o Enterprise Manager la no console da o seguinte erro: São dois aviso ta anexado a imagem. Erro2 Preciso! Obrigado!

Valeu! Obrigado!

Olá pessoal, Qual o comando no sistema de upload que capture somente o nome do arquivo sem a extenção? E qual o comando no sistema de upload que capture somente a extenção do arquivo sem o nome? Precisso! Obrigado! Marcus

;)

É sim mas está tudo OK! Abraços! Marcus

Olá amigo, Você poderá se basear no tamanho do arquivo, se o tamanho 150x100 for de 40KB (é só um exemplo) você limita o tamanho do arquivo, ou seja, só é permitido arquivos de 40KB mais não será permitido! Abaixo segue um link interessante de um sistema de upload sem componentes completo, dê uma lidinha no texto explicativo antes de lê os códigos! Abraços! http://scriptbrasil.com.br/forum/index.php?showtopic=75314

Ola pessoal, Eu uso o Access e ele tem o autoincrement que é uma numereção que é gerada atomaticamente e gostaria de saber se no SQL Server tem também e como é chamado? Obrigado! Marcus