Foxtable(狐表)用户栏目专家坐堂 → 如何修改MDB文件的结构


  共有5608人关注过本帖树形打印复制链接

主题:如何修改MDB文件的结构

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/3 12:50:00 [显示全部帖子]

 每个电脑都带一个数据库?都是自己的数据?如果是,建议不要改列名了。

 

 动态修改表列名,参考这里 http://www.foxtable.com/help/topics/2122.htm

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/3 23:31:00 [显示全部帖子]

 看了一下,用下面的代码

 

Dim cmd As new SQLCommand

cmd.ConnectionName = "xxx"
cmd.CommandText = "alter table {表A} add 第100列 varchar(10);"
cmd.ExecuteNonQuery
cmd.CommandText = "update {表A} set 第100列=第一列;"
cmd.ExecuteNonQuery
cmd.CommandText = "alter Table {表A} drop Column 第一列;"
cmd.ExecuteNonQuery

[此贴子已经被作者于2014-6-3 23:31:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/10 9:31:00 [显示全部帖子]

 代码大致这样。

 

Connections.Add("test", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & "data\信息数据库.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "alter table {教职工信息表} add 检测 varchar(10);"
cmd.ExecuteNonQuery
cmd.CommandText = "update {教职工信息表} set 检测=jc;"
cmd.ExecuteNonQuery
cmd.CommandText = "alter Table {教职工信息表} drop Column jc;"
cmd.ExecuteNonQuery
cmd.CommandText = "alter table {教职工信息表} add 级别 varchar(10);"
cmd.ExecuteNonQuery
cmd.CommandText = "update {教职工信息表} set 级别=jb;"
cmd.ExecuteNonQuery
cmd.CommandText = "alter Table {教职工信息表} drop Column jb;"
cmd.ExecuteNonQuery
Connections.Delete("test")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/10 17:33:00 [显示全部帖子]

 cmd.ConnectionName = "test"

[此贴子已经被作者于2014-6-10 17:35:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/10 17:36:00 [显示全部帖子]

以下是引用有点甜在2014-6-10 17:33:00的发言:

 cmd.ConnectionName = "test"

[此贴子已经被作者于2014-6-10 17:35:05编辑过]

 

Connections.Add("test", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & "data\信息数据库.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456")
Dim cmd As new SQLCommand
cmd.ConnectionName = "test"
cmd.CommandText = "alter table {教职工信息表} add 检测 varchar(10);"
cmd.ExecuteNonQuery
cmd.CommandText = "update {教职工信息表} set 检测=jc;"
cmd.ExecuteNonQuery
cmd.CommandText = "alter Table {教职工信息表} drop Column jc;"
cmd.ExecuteNonQuery
cmd.CommandText = "alter table {教职工信息表} add 级别 varchar(10);"
cmd.ExecuteNonQuery
cmd.CommandText = "update {教职工信息表} set 级别=jb;"
cmd.ExecuteNonQuery
cmd.CommandText = "alter Table {教职工信息表} drop Column jb;"
cmd.ExecuteNonQuery
Connections.Delete("test")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/10 17:53:00 [显示全部帖子]

方法一:

 

Connections.Add("test", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & "data\信息数据库.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "select * from {教职工信息表} where 1=2"
Dim dt As DataTable = cmd.ExecuteReader
If dt.DataCols.Contains("jc") Then
    cmd.CommandText = "alter table {教职工信息表} add 检测 varchar(10);"
    cmd.ExecuteNonQuery
    cmd.CommandText = "update {教职工信息表} set 检测=jc;"
    cmd.ExecuteNonQuery
    cmd.CommandText = "alter Table {教职工信息表} drop Column jc;"
    cmd.ExecuteNonQuery
    cmd.CommandText = "alter table {教职工信息表} add 级别 varchar(10);"
    cmd.ExecuteNonQuery
    cmd.CommandText = "update {教职工信息表} set 级别=jb;"
    cmd.ExecuteNonQuery
    cmd.CommandText = "alter Table {教职工信息表} drop Column jb;"
    cmd.ExecuteNonQuery
End If
Connections.Delete("test")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/10 17:54:00 [显示全部帖子]

方法二:执行过一次以后,就把信息记录在项目里,第二次的时候,取出信息,判断是否执行过一次了

 

http://www.foxtable.com/help/topics/1544.htm

 


 回到顶部