（高手进）在VB中如何实现调整字段在MDB数据库表中的位置?

sanduVB 2005-09-18 04:07:48

在VB的一FORM中有LIST控件(或用其它列表控件也行)列出了MDB数据库中某一个表的所有字段,
如何实现在列表中直接用鼠标托动字段名以改变该字段在数据库表中的位置？例如：ＡＡ本是表
中的第二个字段，通过向下托动，使其成为第五个字段等。用什么控件能更好的实现此功能？请
列出具体代码？谢谢！

...全文

342 8 打赏收藏转发到动态举报

写回复

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

sanduVB 2005-09-19

打赏
举报

回复

再没有说的,我就结贴了

sanduVB 2005-09-19

打赏
举报

回复

还有人帮指点一下吗?

sanduVB 2005-09-19

打赏
举报

回复

谢谢狼行天下.
（１）如果把LIST的STYLE设为standard时，
运行时在以下行会提示错误,"无效的过程调用或参数"
List1.AddItem temp, List1.ListIndex
（２）如果把LIST的STYLE设为checkbox时,如果在
一个字段名上未移动鼠标不停单击时，会出现本字段名
和上一个字段名不停翻滚，多击几下两个字段名便变成相同的字段名了．

以上的问题怎样解决？

northwolves 2005-09-18

打赏
举报

回复

我在列表中怎么托不走字段名？怎样实现？
---------------------------------------

Dim temp As String, pos As Long
Private Sub Form_Load()
For i = 1 To 26
List1.AddItem String(10, Chr(64 + i))
Next
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
temp = List1.Text
pos = List1.ListIndex
End Sub
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.RemoveItem pos
List1.AddItem temp, List1.ListIndex
End Sub

sanduVB 2005-09-18

打赏
举报

回复

我在列表中怎么托不走字段名？怎样实现？

sanduVB 2005-09-18

打赏
举报

回复

谢谢两位！
在ＬＩＳＴ中如何实现上下名称的托动？

myhgyp 2005-09-18

打赏
举报

回复

同意楼上的做法，这样实现比较容易

acev 2005-09-18

打赏
举报

回复

我觉得在ＬＩＳＴ中改变后，不必要改变数据库字段的顺序，你倒不如记下ＬＩＳＴ中各字段的顺序，下次启动时，取值时，以这个顺序进行排列不更好？据我了解，要想变更数据库中字段的顺序，得删除表重建才行（也许我想错了，不过那样确实麻烦）．

应用VB对编程，可读取ACCESS数据库中所有表名及指定表的字段名，这样在VB视化编程过程中，可方便使用各种控件来选择access数据库中的表，也可选择指定表中的字段进行操作。使用十分方便。

直接在界面文本框里输入数据库路径与数据库结构即可生成数据库，并且支持app.path。示例： //数据库路径也支持App.path //如app.path\abc.mdb //支持多空格，前导空格，也支持中文括号和中文逗号 //memo类型为备注类型，其余不标明的一律生成255长度文本型 d:\abc.mdb biao1(字段1，字段2，字段三，备注 memo)

A数据库的编辑与查询 1建立两个data控件，修改databasename属性和recordsourse属性，使其连接到student.mdb和student1.mdb的学生基本信息表，建立五个text控件及一个picturebox控件并修改它们的datasourse属性使其连接到data1，修改它们的datafield属性，使数据库的有效字段与控件建立联系； 2建立十个命令按钮，并进行单击事件编程使程序具有编辑和查询数据库的功能； 3建立一键追加和一键查询命令按钮。利用for循环和Data1.Recordset.Fields("学号") = Data2.Recordset.Fields("学号")语句，将student1数据库中的数据添加到student数据库中； 4利用picturebox的单击事件向数据库中添加照片； 5利用App.Path语句使data控件与数据库建立相对连接。

关于数据库的显示和更新。你一个示例,这个是用户登录系统 '准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录 '点工程->引用选中 Microsoft Activex Data Objects 2.1 Library '控件:添加一个文本框,一个命令按钮 Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请将数据库名及路径换成你的实际数据库名及路径 Dim UserName As String Dim Password As String s = Text1.Text If s = "1" Or s = "2" Then UserName = InputBox("请输入用户名") Password = InputBox("请输入用户密码") sql = "Select * From [UserInfo] where User='" & UserName & "'" 'UserInfo请换成你的实际数据表名

VB Access数据库简单操作实例，演示一些基本的操作，比如数据添加、删除、浏览、保存等功能，VB新手可学习下。Test.MDB为测试数据库，按照窗口中的各字段输入对应内容即可。请注意：若是数据库最后一条记录，如果删除将会把文件删除，是否继续删除，程序也会关闭将会弹出提示框。

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章