求助窗体listbox控件问题

jian82372387

请教如何将access数据库里的1栋电动车台账表通过加载事件自动加载userform2中的listbox1，选中某条数据后在下方相关textbox中显示相关内容，并可通过下面按钮对数据库的某条数据修改或者删除整体数据，或则新增一条数据。上方有还一个通过车牌号码textbox查找对应数据后选中该条数据，请问有老师能帮忙解决一下吗？

tanglf188

只做到点击列表读取，其余自己完善

jian82372387

有老师能帮忙解决另外四个需求：删除、修改和新增、查找按钮的功能吗？

tanglf188

jian82372387 发表于 2024-4-10 10:58
有老师能帮忙解决另外四个需求：删除、修改和新增、查找按钮的功能吗？

我显示器小，你的窗体大，拖来拖去实属不便，有空再看看吧

jian82372387

tanglf188 发表于 2024-4-10 11:33
我显示器小，你的窗体大，拖来拖去实属不便，有空再看看吧

我将窗体调小，我尝试写了删除和修改的代码如下，一直报错，请问具体哪里出问题了？？


Private Sub CommandButton2_Click() '删除
'1、定义、创建连接变量
Dim con As New ADODB.Connection

'2、建立数据库的连接
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.Path & "\电动车台账.accdb"

''3、删除记录：delete from 表名 [where 条件]，如果忽略条件，那么删除所有记录
Dim sql As String, str As Integer
r = Me.ListBox1.ListIndex
str = Me.ListBox1.List(r, 0)
sql = "Delete from 1栋电动车台账 where ID='" & str & "'"
con.Execute (sql)
'4、释放变量空间
con.Close       '关闭连接
Set con = Nothing   '释放变量
MsgBox "删除成功"
End Sub


Private Sub CommandButton1_Click() '修改
'1、定义、创建连接变量
Dim con As New ADODB.Connection

'2、建立数据库的连接
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.Path & "\电动车台账.accdb"

''3、删除记录：delete from 表名 [where 条件]，如果忽略条件，那么删除所有记录
Dim sql As String, str As Integer
r = Me.ListBox1.ListIndex
str = Me.ListBox1.List(r, 0)
sql = "update 学生 set 房号='& TextBox1.Text & ',电动车品牌='& TextBox2.Text & ' ,车牌号码='& TextBox3.Text & ',联系电话='& TextBox4.Text & ',填写日期='& TextBox5.Text & 'where ID='" & str & "'"
con.Execute (sql)
'4、释放变量空间
con.Close       '关闭连接
Set con = Nothing   '释放变量
MsgBox "数据更新成功"
End Sub

tanglf188

jian82372387 发表于 2024-4-10 12:31
我将窗体调小，我尝试写了删除和修改的代码如下，一直报错，请问具体哪里出问题了？？

删除不要用单引号，ID是数值型的不是字符型
sql = "Delete from 1栋电动车台账 where ID=" & str & ""
con.Execute sql

jian82372387

tanglf188 发表于 2024-4-10 14:12
删除不要用单引号，ID是数值型的不是字符型
sql = "Delete from 1栋电动车台账 where ID=" & str & ""
...

老师请问一下删除或者更新数据后，如何刷新列表框的数据啊？还有查询功能可以帮忙写一下吗？？

tanglf188

jian82372387 发表于 2024-4-11 10:01
老师请问一下删除或者更新数据后，如何刷新列表框的数据啊？还有查询功能可以帮忙写一下吗？？

可以根据操作修改ListBox，也可以按原来的代码重新读取数据库的数据，读取数据库在窗体初始化时间里

jian82372387

tanglf188 发表于 2024-4-11 10:12
可以根据操作修改ListBox，也可以按原来的代码重新读取数据库的数据，读取数据库在窗体初始化时间里

能帮忙写一下吗？实在搞不定

tanglf188

jian82372387 发表于 2024-4-11 10:45
能帮忙写一下吗？实在搞不定

请参考。。。。。。。。