E4A sqlite データベースクエリをテーブルとして表示 [ソースコード]

クズども · 掲載地 2017/06/04 8:49:09

下の図は公式例のe4a演算sqliteデータベースで、基本的な追加、削除、修正、チェックが行われています。

しかし、クエリされたデータの行ごとの表示が見た目が悪く感じます。テーブルで表示できますか?

以下は、下図に示す表に示されたsqliteデータベースからクエリしたデータです。

テーブルに表示されるコードが多すぎるため、ソースコードは全員の最下部に配置されています

公式例示コード:

ログインが見えます。

表はデータソースコードを示しています:

観光客の皆さん、この投稿の隠された内容を見たい方は、どうぞ答える

53645111 · 掲載地 2018/01/04 21:16:38

変数データベースのテーブル名はTextです
イベントメインウィンドウ。 Created()
      データベーステーブル名 = "mytable"
イベント終了

イベントボタン4。クリック()
      ファイルが存在する場合(メモリーカードパス() > "/mydata.db") = false
            データベースを作成する(カードパス()を取る>「/mydata.db」)
            ポップアッププロンプト(「データベース作成成功!」) )
      もしも
      データベースを開きます(カードパス()を取って「/mydata.db」>) '!! データベース操作を行う前にデータベースを開いておく必要があります
      ポップアッププロンプト(「データベース開通成功!」) )
イベント終了

イベントボタン1。クリック()
      データテーブルが存在する場合(データベーステーブル名) = false
            'CREATE TABLE ' & データベーステーブル名 & "(id text, value text)") '2列のデータテーブルを作成してください。1列目はid、2列目はvalueです
            データテーブル(データベーステーブル名、「idテキスト、値テキスト」)を作成する
            自己増量型のidフィールドを作成したい場合は、「Create Data Table」(データベーステーブル名、「id 整数PRIMARY KEY、値テキスト」)を書くことができます。
            ポップアッププロンプト(「データシート作成成功!」) )
      それ以外は
            ポップアッププロンプト(「データシートはすでに存在します!」) )
      もしも
イベント終了

イベントボタン2。クリック()
' データベース実行(「INSERT INTO 」 & データベーステーブル名 & 「VALUES ('1','zhangshang@163.com')」)' レコードを挿入
' データベース実行(「INSERT INTO 」 & データベーステーブル名 & 「VALUES ('2','1234567@qq.com')」)
' データベース実行(「INSERT INTO」 & データベーステーブル名 & 「VALUES ('3','Lisi@126.com')」)
' データベース実行(「INSERT INTO 」 & データベーステーブル名 & 「VALUES ('4','Wangwu@163.com')」)
      レコード挿入(データベーステーブル名、「'1','zhangshang@163.com'」)
      レコード挿入(データベーステーブル名、「'2','1234567@qq.com'」)
      レコードを挿入(データベーステーブル名、「'3','Lisi@126.com'」)
      レコードを挿入(データベーステーブル名、「'4','Wangwu@163.com'」)
      「もしidが自己増量フィールドであれば、次のように書くべきです(データベーステーブル名『null,'Wangwu@163.com』)
      編集ボックスの内容を挿入するには、次のように書けます:レコードを挿入(データベーステーブル名「'」 & 編集ボックス1.content & 「','」 & 編集ボックス2.content & "'")
ポップアッププロンプト(「挿入成功!」) )
イベント終了

イベントボタン3。クリック()
      'Edit box 1.Content = database query(「SELECT * FROM" & データベーステーブル名 & "WHERE id='1'","-","\n") 'Query id='1' レコードの場合、各レコードの子は-で区切られ、レコードは改行で区切られています
      'Edit box 1.Content = 条件付きクエリ(データベーステーブル名、「id='1'」, "-", "\n")
      もし空欄の始まりと終わりを削除した場合(編集ボックス2.content) = ""の場合、
            ポップアッププロンプト(「クエリ条件を入力してください」)
            退場
      もしも
      編集ボックス1.Content = 条件付きクエリ(データベーステーブル名、"id='" >「''、"-"、"\n">の最初のスペースと最後のスペースを削除します(編集ボックス2.content)
      ポップアッププロンプト(「クエリ成功!」) )
イベント終了

イベントボタン6。クリック()
      'Database execution('UPDATE' & データベーステーブル名 > 'SET value='これは修正された値です' WHERE id='1'") 'Modify id='1'
      レコードを修正する(データベーステーブル名、「value='これが修正された値'""id='1'")
      ポップアッププロンプト(「修正成功!」) )
イベント終了

イベントボタン5。クリック()
      「DELETE FROM」(「DELETE FROM」 & データベーステーブル名 & 「WHERE id='1'」) 'record id='1'
レコードを削除(データベーステーブル名、「id='1'」)
      ポップアッププロンプト(「Deleted successful!」) )
イベント終了

イベントボタン7。クリック()
      「データベース実行」(データベーステーブル名>「DROP TABLE」)はデータベーステーブル全体を削除します
      データテーブル(データベーステーブル名)の削除
      ポップアッププロンプト(「データベーステーブルの削除成功!」) )
イベント終了

イベントボタン8. クリック()
      ポップアッププロンプト(「レコード総数:」> レコード数(データベーステーブル名)>「アイテム」)
イベント終了

イベントボタン9。クリック()
      '編集ボックス1.Content = データベースクエリ("SELECT * FROM" > データベーステーブル名 > "WHERE value like '%163.com'," "-","\n") '163.com で終わる値のレコードすべてをクエリ
      編集ボックス1. Content = 条件付きクエリ(データベーステーブル名、「value LIKE '%163.com'", "-", "\n")
      ポップアッププロンプト(「クエリ成功!」) )
イベント終了

イベントボタン10。クリック()
      '編集ボックス1.Content = データベースクエリ(「SELECT * FROM」>データベーステーブル名 & 「LIMIT 0,3","-","\n") '0(1)から始まる3つのレコードをクエリ。
      編集ボックス1。Content = Scope Query(データベーステーブル名、0、3、"-"、\n")
      ポップアッププロンプト(「クエリ成功!」) )
イベント終了

イベントボタン11。クリック()
      データベースを閉じてください() '!! プログラム終了時にデータベースを閉じてください
      終了手続き()
イベント終了

QQ5567374 · 掲載地 2018/10/30 17:25:40

変数データベースのテーブル名はTextです
イベントメインウィンドウ。 Created()
データベーステーブル名 = "mytable"
イベント終了

イベントボタン4。クリック()
ファイルが存在する場合(メモリーカードパス() > "/mydata.db") = false
データベースを作成する(カードパス()を取る>「/mydata.db」)
ポップアッププロンプト(「データベース作成成功!」) )
もしも
データベースを開きます(カードパス()を取って「/mydata.db」>) '!! データベース操作を行う前にデータベースを開いておく必要があります
ポップアッププロンプト(「データベース開通成功!」) )
イベント終了

イベントボタン1。クリック()
データテーブルが存在する場合(データベーステーブル名) = false
'CREATE TABLE ' & データベーステーブル名 & "(id text, value text)") '2列のデータテーブルを作成してください。1列目はid、2列目はvalueです
データテーブル(データベーステーブル名、「idテキスト、値テキスト」)を作成する
自己増量型のidフィールドを作成したい場合は、「Create Data Table」(データベーステーブル名、「id 整数PRIMARY KEY、値テキスト」)を書くことができます。
ポップアッププロンプト(「データシート作成成功!」) )
それ以外は
ポップアッププロンプト(「データシートはすでに存在します!」) )
もしも
イベント終了

イベントボタン2。クリック()
' データベース実行(「INSERT INTO 」 & データベーステーブル名 & 「VALUES ('1','zhangshang@163.com')」)' レコードを挿入
' データベース実行(「INSERT INTO 」 & データベーステーブル名 & 「VALUES ('2','1234567@qq.com')」)
' データベース実行(「INSERT INTO」 & データベーステーブル名 & 「VALUES ('3','Lisi@126.com')」)
' データベース実行(「INSERT INTO 」 & データベーステーブル名 & 「VALUES ('4','Wangwu@163.com')」)
レコード挿入(データベーステーブル名、「'1','zhangshang@163.com'」)
レコード挿入(データベーステーブル名、「'2','1234567@qq.com'」)
レコードを挿入(データベーステーブル名、「'3','Lisi@126.com'」)
レコードを挿入(データベーステーブル名、「'4','Wangwu@163.com'」)
「もしidが自己増量フィールドであれば、次のように書くべきです(データベーステーブル名『null,'Wangwu@163.com』)
編集ボックスの内容を挿入するには、次のように書けます:レコードを挿入(データベーステーブル名「'」 & 編集ボックス1.content & 「','」 & 編集ボックス2.content & "'")
ポップアッププロンプト(「挿入成功!」) )
イベント終了

イベントボタン3。クリック()
'Edit box 1.Content = database query(「SELECT * FROM" & データベーステーブル名 & "WHERE id='1'","-","\n") 'Query id='1' レコードの場合、各レコードの子は-で区切られ、レコードは改行で区切られています
'Edit box 1.Content = 条件付きクエリ(データベーステーブル名、「id='1'」, "-", "\n")
もし空欄の始まりと終わりを削除した場合(編集ボックス2.content) = ""の場合、
ポップアッププロンプト(「クエリ条件を入力してください」)
退場
もしも
編集ボックス1.Content = 条件付きクエリ(データベーステーブル名、"id='" >「''、"-"、"\n">の最初のスペースと最後のスペースを削除します(編集ボックス2.content)
ポップアッププロンプト(「クエリ成功!」) )
イベント終了

イベントボタン6。クリック()
'Database execution('UPDATE' & データベーステーブル名 > 'SET value='これは修正された値です' WHERE id='1'") 'Modify id='1'
レコードを修正する(データベーステーブル名、「value='これが修正された値'""id='1'")
ポップアッププロンプト(「修正成功!」) )
イベント終了

イベントボタン5。クリック()
「DELETE FROM」(「DELETE FROM」 & データベーステーブル名 & 「WHERE id='1'」) 'record id='1'
レコードを削除(データベーステーブル名、「id='1'」)
ポップアッププロンプト(「Deleted successful!」) )
イベント終了

イベントボタン7。クリック()
「データベース実行」(データベーステーブル名>「DROP TABLE」)はデータベーステーブル全体を削除します
データテーブル(データベーステーブル名)の削除
ポップアッププロンプト(「データベーステーブルの削除成功!」) )
イベント終了

イベントボタン8. クリック()
ポップアッププロンプト(「レコード総数:」> レコード数(データベーステーブル名)>「アイテム」)
イベント終了

イベントボタン9。クリック()
'編集ボックス1.Content = データベースクエリ("SELECT * FROM" > データベーステーブル名 > "WHERE value like '%163.com'," "-","\n") '163.com で終わる値のレコードすべてをクエリ
編集ボックス1. Content = 条件付きクエリ(データベーステーブル名、「value LIKE '%163.com'", "-", "\n")
ポップアッププロンプト(「クエリ成功!」) )
イベント終了

イベントボタン10。クリック()
'編集ボックス1.Content = データベースクエリ(「SELECT * FROM」>データベーステーブル名 & 「LIMIT 0,3","-","\n") '0(1)から始まる3つのレコードをクエリ。
編集ボックス1。Content = Scope Query(データベーステーブル名、0、3、"-"、\n")
ポップアッププロンプト(「クエリ成功!」) )
イベント終了

イベントボタン11。クリック()
データベースを閉じてください() '!! プログラム終了時にデータベースを閉じてください
終了手続き()
イベント終了

ni0620537 · 掲載地 2020/10/04 11:54:03

イベントボタン2。クリック()
' データベース実行(「INSERT INTO 」 & データベーステーブル名 & 「VALUES ('1','zhangshang@163.com')」)' レコードを挿入
' データベース実行(「INSERT INTO 」 & データベーステーブル名 & 「VALUES ('2','1234567@qq.com')」)
' データベース実行(「INSERT INTO」 & データベーステーブル名 & 「VALUES ('3','Lisi@126.com')」)
' データベース実行(「INSERT INTO 」 & データベーステーブル名 & 「VALUES ('4','Wangwu@163.com')」)
      レコード挿入(データベーステーブル名、「'1','zhangshang@163.com'」)
      レコード挿入(データベーステーブル名、「'2','1234567@qq.com'」)
      レコードを挿入(データベーステーブル名、「'3','Lisi@126.com'」)
      レコードを挿入(データベーステーブル名、「'4','Wangwu@163.com'」)
      「もしidが自己増量フィールドであれば、次のように書くべきです(データベーステーブル名『null,'Wangwu@163.com』)
      編集ボックスの内容を挿入するには、次のように書けます:レコードを挿入(データベーステーブル名「'」 & 編集ボックス1.content & 「','」 & 編集ボックス2.content & "'")
ポップアッププロンプト(「挿入成功!」) )

レオイホ · 掲載地 2017/06/07 17:35:36

11111111111111111

E4a · 掲載地 2017/06/16 14:40:30

共有してくれてありがとう、一番気に入っています。

E4a · 掲載地 2017/06/16 14:57:50

今日はダウンロードできないようです。

123899414 · 掲載地 2017/09/05 12:45:19

共有してくれてありがとう

Charles_lian · 掲載地 2017/09/11 21:20:38

素晴らしいサポートをありがとうございます

言うのは簡単です · 掲載地 2017/09/16 22:21:48

マーク・タグ

王輝6162 · 掲載地 2017/09/18 8:49:41

DKFRKFRTHREDER4

へ · 掲載地 2017/10/27 8:19:00

共有してくれてありがとうございます。ぜひダウンロードしてご覧ください

浩丘 · 掲載地 2017/11/08 14:00:43

プロンプト：著者はBANされたり削除されたりすると、コンテンツは自動的にブロックされます

[E4A] E4A sqlite データベースクエリをテーブルとして表示 [ソースコード]

スコア

関連記事

スコア

スコア

閲覧したセクション

浩丘	掲載地 2017/11/08 14:00:43 \| プロンプト：著者はBANされたり削除されたりすると、コンテンツは自動的にブロックされます
浩丘