例025：访问数据库（续）

最新推荐文章于 2024-07-09 11:22:52 发布

曾小猫

最新推荐文章于 2024-07-09 11:22:52 发布

阅读量28

点赞数

分类专栏： Visual Free Basic例解教程文章标签：数据库

本文链接：https://blog.csdn.net/u010763140/article/details/134524869

版权

Visual Free Basic例解教程专栏收录该内容

60 篇文章 1 订阅

订阅专栏

在上例(024)的基础上，在窗体上添加两个按钮，如图24。
添加代码：

Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

   Dim rs() As String

   Print SQLiteBox1.Open(App.Path & "student.db", "")

  Print SQLiteBox1.Exec(StrToUtf8("insert into stu values(5,'tom','男',99)"))'使用StrToUtf8的目的是为了正确显示中文字符

      SQLiteBox1.Close

End Sub

Sub Form1_Command3_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

   Dim rs() As String

   Print SQLiteBox1.Open(App.Path & "student.db", "")

  Print SQLiteBox1.Exec(StrToUtf8("Delete from stu where id=5"))

  SQLiteBox1.Close

End Sub

3.点插入按钮，再点查询按钮，会发现多了一行编号为5的数据行，占删除按钮后再查询，会发现该行被删掉了。