Jump to content

Luis Ussuy

Membros
  • Content count

    8
  • Joined

  • Last visited

Community Reputation

1 Neutro

About Luis Ussuy

  • Rank
    Novato

Profile Information

  • Location
    Itapevi - SP

Recent Profile Visitors

1,502 profile views
  1. SQLite importar dados de .csv ou .xls

    Obrigado, vou tentar e depois informo se consegui!
  2. SQLite Tutorial 1

    Utilizando o que aprendi aqui junto ao meu conhecimento de SQL: as querys eu coloquei o ;comentario na frente pois usei só uma vez e depois fui testando o select #RequireAdmin #include <SQLite.au3> #include <SQLite.dll.au3> Local $hQuery, $aRow, $sMsg, $aResult, $iRows, $iColumns, $iRval Local $sSQliteDll $sSQliteDll = _SQLite_Startup() ; Função que carrega a SQLite.dll na memória If @error Then MsgBox(16, "SQLite Error", "SQLite3.dll Não pode ser carregada!") Exit -1 EndIf MsgBox(0, "SQLite3.dll OK", $sSQliteDll) MsgBox(4096,"","_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF) Local $hDskDb = _SQLite_Open('teste.db') ; Abre ou cria uma base no disco If @error Then MsgBox(16, "SQLite Error", "Não foi possível Abrir o banco de dados!") Exit -1 EndIf ;If Not _SQLite_Exec(-1, "CREATE TABLE tbl_uf (uf_id INTEGER PRIMARY KEY AUTOINCREMENT, uf_uf TEXT, id_uf INTEGER, FOREIGN;") = $SQLITE_OK Then _ ;If Not _SQLite_Exec(-1, "CREATE TABLE tbl_cliente (id_cli INTEGER PRIMARY KEY AUTOINCREMENT, cli_nome TEXT, id_uf INTEGER, FOREIGN KEY(id_uf) REFERENCES tbl_uf(uf_id));") = $SQLITE_OK Then _ ;criando a tabela com chave primaria e estrangeira ;MsgBox(16, "SQLite Error", _SQLite_ErrMsg()) ;_SQLite_Exec(-1, "INSERT INTO tbl_cliente (cli_nome, id_uf) VALUES ('Eduardo', 1);") ;inserindo dados ;_SQLite_Query(-1, "DELETE FROM tbl_cliente Where cli_nome='Eduardo';", $hQuery) ;deletando dados While _SQLite_FetchData($hQuery, $aRow) = $SQLITE_OK $sMsg &= $aRow[0] WEnd ; Query usando junção de tabelas com inner join $iRval = _SQLite_GetTable2d(-1, "SELECT tbl_cliente.cli_nome, tbl_uf.uf_uf FROM tbl_cliente INNER JOIN tbl_uf ON tbl_uf.id_uf=tbl_cliente.id_cli;", $aResult, $iRows, $iColumns) If $iRval = $SQLITE_OK Then _ArrayDisplay($aResult, "Query Result") Else MsgBox(16, "SQLite Error: " & $iRval, _SQLite_ErrMsg()) EndIf ;MsgBox(0, "SQLite", "Get Data using a Query : " & $sMsg) _SQLite_Shutdown()
  3. Sistema de Login (com novo exemplo)

    olá tenho um código de manipulação de dados que aprendi aqui no forum e no help do autoit mas quando juntei com um exemplo de formulário me perdi, não entendo nada de desenvolvimento apenas de banco de dados e estou apanhando inclusive pra aprender esses belos exemplos como os daqui, poderiam me dar uma dicas: #RequireAdmin #include <SQLite.au3> #include <SQLite.dll.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GuiStatusBar.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> ;Começa a Form $Form1 = GUICreate("Acess", 259, 203, 192, 164) $Group1 = GUICtrlCreateGroup("", 16, 0, 225, 137) $USERNAME = GUICtrlCreateInput("", 32, 40, 169, 21) $PASSWORD = GUICtrlCreateInput("", 32, 88, 169, 21) $Label1 = GUICtrlCreateLabel("User.:", 32, 20, 58, 17) $Label2 = GUICtrlCreateLabel("Emp.:", 32, 68, 56, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $StatusBar1 = _GUICtrlStatusBar_Create($Form1) _GUICtrlStatusBar_SetSimple($StatusBar1) _GUICtrlStatusBar_SetText($StatusBar1, "www.AutoitBrasil.com | Jonatas | Exemplos") $ButtonOk = GUICtrlCreateButton("Entrar", 80, 144, 75, 25) $ButtonCancel = GUICtrlCreateButton("Sair", 168, 144, 75, 25) GUISetState(@SW_SHOW) Local $hQuery, $aRow, $sMsg, $aResult, $iRows, $iColumns, $iRval Local $sSQliteDll $sSQliteDll = _SQLite_Startup() ; Função que carrega a SQLite.dll na memória If @error Then MsgBox(16, "SQLite Error", "SQLite3.dll Não pode ser carregada!") Exit -1 EndIf MsgBox(0, "SQLite3.dll OK", $sSQliteDll) MsgBox(4096,"","_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF) Local $hDskDb = _SQLite_Open('acesso.db') ; Abre ou cria uma base permanente no disco If @error Then MsgBox(16, "SQLite Error", "Não foi possível Abrir ou criar um banco de dados permanente!") Exit -1 EndIf ;If Not _SQLite_Exec(-1, "CREATE TABLE tbl_userpass (user TEXT, pass INTEGER);") = $SQLITE_OK Then _ ; MsgBox(16, "SQLite Error", _SQLite_ErrMsg()) ;_SQLite_Exec(-1, "INSERT INTO tbl_userpass (user, pass) VALUES ('usuario', 123456);") While _SQLite_FetchData($hQuery, $aRow) = $SQLITE_OK $sMsg &= $aRow[0] WEnd ; Query ;$iRval = _SQLite_GetTable2d(-1, "SELECT user, pass FROM tbl_userpass WHERE user='" & $USERNAME & "' AND pass='" & $PASSWORD & "';", $aResult, $iRows, $iColumns) If _SQLite_Query($hDskDb,"SELECT user, pass FROM tbl_userpass WHERE user='"& $USERNAME & "' AND pass='"&$PASSWORD&"';")= $SQLITE_OK Then MsgBox(-1,"Logado com Sucesso","Login OK") Else ;senao for, mostra msg abaixo MsgBox(-1,"Error"," Username ou Senha está incorreto, Tente denovo") ; mensagem de erro EndIf _ArrayDisplay($aResult, "Query Result") ; MsgBox(16, "SQLite Error: " & $iRval, _SQLite_ErrMsg()) ;MsgBox(0, "SQLite", "Get Data using a Query : " & $sMsg) _SQLite_Shutdown()
  4. trazer dados (Resolvido)

    Esses códigos são muito bons mas como eu consigo usar em uma database sqlite? tenho seguinte código baseado no help das funções sqlite e ajudas aqui do forum: #RequireAdmin #include <SQLite.au3> #include <SQLite.dll.au3> Local $hQuery, $aRow, $sMsg, $aResult, $iRows, $iColumns, $iRval Local $sSQliteDll $sSQliteDll = _SQLite_Startup() ; Função que carrega a SQLite.dll na memória If @error Then MsgBox(16, "SQLite Error", "SQLite3.dll Não pode ser carregada!") Exit -1 EndIf MsgBox(0, "SQLite3.dll OK", $sSQliteDll) MsgBox(4096,"","_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF) Local $hDskDb = _SQLite_Open('acesso.db') ; Abre ou cria uma base permanente no disco If @error Then MsgBox(16, "SQLite Error", "Não foi possível Abrir ou criar um banco de dados permanente!") Exit -1 EndIf ;If Not _SQLite_Exec(-1, "CREATE TABLE tbl_userpass (user TEXT, pass INTEGER);") = $SQLITE_OK Then _ MsgBox(16, "SQLite Error", _SQLite_ErrMsg()) ;_SQLite_Exec(-1, "INSERT INTO tbl_userpass (user, pass) VALUES ('usuario', 123456);") While _SQLite_FetchData($hQuery, $aRow) = $SQLITE_OK $sMsg &= $aRow[0] WEnd ; Query $iRval = _SQLite_GetTable2d(-1, "SELECT user, pass FROM tbl_userpass;", $aResult, $iRows, $iColumns) If $iRval = $SQLITE_OK Then _ArrayDisplay($aResult, "Query Result") Else MsgBox(16, "SQLite Error: " & $iRval, _SQLite_ErrMsg()) EndIf ;MsgBox(0, "SQLite", "Get Data using a Query : " & $sMsg) _SQLite_Shutdown()
  5. Boa tarde! Sou iniciante em Autoit e desenvolvimento e minha intenção é criar aplicações de manipulação de banco de dados com SQLite. Tenho o seguinte código: #RequireAdmin #include #include #include Local $hQuery, $aRow, $sMsg, $aResult, $iRows, $iColumns, $iRval Local $sSQliteDll $sSQliteDll = _SQLite_Startup() ; Função que carrega a SQLite.dll na memória If @error Then MsgBox(16, "SQLite Error", "SQLite3.dll Não pode ser carregada!") Exit -1 EndIf MsgBox(0, "SQLite3.dll OK", $sSQliteDll) MsgBox(4096,"","_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF) Local $hDskDb = _SQLite_Open('teste.db') ; Acre ou cria uma base permanente no disco If @error Then MsgBox(16, "SQLite Error", "Não foi possível Abrir ou criar um banco de dados permanente!") Exit -1 EndIf ;If Not _SQLite_Exec(-1, "CREATE TABLE tbl_cliente (id_cli INTEGER PRIMARY KEY AUTOINCREMENT, cli_nome TEXT, id_uf INTEGER, FOREIGN KEY(id_uf) REFERENCES tbl_uf(uf_id));") = $SQLITE_OK Then _ If Not _SQLite_Exec(-1, "CREATE TABLE maximo USING CSVFILE(?teste_sr.csv?);") = $SQLITE_OK Then _ MsgBox(16, "SQLite Error", _SQLite_ErrMsg()) ;_SQLite_Exec(-1, "INSERT INTO tbl_cliente (cli_nome, id_uf) VALUES ('Eduardo', 1);") ;_SQLite_Query(-1, "DELETE FROM tbl_user Where user_pw='123';", $hQuery) ; the query While _SQLite_FetchData($hQuery, $aRow) = $SQLITE_OK $sMsg &= $aRow[0] WEnd ; Query $iRval = _SQLite_GetTable2d(-1, "SELECT tbl_cliente.cli_nome, tbl_uf.uf_uf FROM tbl_cliente INNER JOIN tbl_uf ON tbl_uf.id_uf=tbl_cliente.id_cli;", $aResult, $iRows, $iColumns) If $iRval = $SQLITE_OK Then _ArrayDisplay($aResult, "Query Result") Else MsgBox(16, "SQLite Error: " & $iRval, _SQLite_ErrMsg()) EndIf ;MsgBox(0, "SQLite", "Get Data using a Query : " & $sMsg) Gostaria de saber se é possível importar dados de um arquivo .csv ou .xls para uma tabela ou criar uma tabela importnado o arquivo? tentei assim mas não funcionou: _SQLite_Exec(-1, "CREATE TABLE maximo USING CSVFILE(?teste_sr.csv?);")
  6. SQLite

    Muito Obrigado! Apareceu a mensagem confirmando que a dll foi carregada e a versão da biblioteca. Realmente muito obrigado! Agora vou tentar desenvolver algo com o banco de dados!
  7. SQLite

    Boa noite! Sou totalmente novo em desenvolvimento mas conheço banco de dados(SQL Server) quero trabalhar com o SQLite e tentar desenvolver umas pequenas aplicações locais com autoit acessando a base. Olhei o help para ver as funções SQLite e não consigo iniciar: #include <SQLite.au3> #include <SQLite.dll.au3> Local $sSQliteDll $sSQliteDll = _SQLite_Startup() If @error Then MsgBox(16, "SQLite Error", "SQLite3.dll Can't be Loaded!") Exit -1 EndIf MsgBox(0, "SQLite3.dll Loaded", $sSQliteDll) ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF) _SQLite_Shutdown() Sempre da o erro que não carrega/encontra a .dll Não sei se é o caminho que devo apontar ou se está na pasta errada? coloquei na system32 os arquivos sqlite.dll e sqlite3.exe alguma dica, pré configuração, pasta ou caminho? obrigado!
×