...全文
请发表友善的回复…
发表回复
hjinhua 2006-06-09
- 打赏
- 举报
这些都不是我想要的,我的数据连接环境是JET4 ADODC
我想了个方法:在添加的时候先判断将在哪两个字段之间添加,
并得到前一个字段的字段值,那在写入数据库中的时候做覆盖,
相应的添加的字段值加1,重新改变数据库中的结构。
但是还没有实现,不知道有没有朋友能跟我一起想想。
在这先谢谢了。
我想了个方法:在添加的时候先判断将在哪两个字段之间添加,
并得到前一个字段的字段值,那在写入数据库中的时候做覆盖,
相应的添加的字段值加1,重新改变数据库中的结构。
但是还没有实现,不知道有没有朋友能跟我一起想想。
在这先谢谢了。
白发程序猿 2006-06-09
- 打赏
- 举报
学习
hr88rong 2006-05-29
- 打赏
- 举报
这是添加字段的代码
网上看的!
Dim DataBasePath As String
DataBasePath = App.Path
If Right$(DataBasePath, 1) <> "\" Then
DataBasePath = DataBasePath & "\"
End If
DataBasePath = DataBasePath & "IC_DataBase.dat"
Dim ConnectionString As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DataBasePath & ";" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password=www.5ivb.net/club"
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As New ADOX.Column
' 打开目录
cat.ActiveConnection = ConnectionString
With tbl
.Name = "MyContacts"
Set .ParentCatalog = cat
' 创建字段并将它们追加到新的 Table 对象中。
.Columns.Append "ContactId", adInteger
' 产生 ContactId 列和自动递加列
.Columns("ContactId").Properties("AutoIncrement") = True
.Columns.Append "CustomerID", adVarWChar
.Columns.Append "FirstName", adVarWChar
.Columns.Append "LastName", adVarWChar
.Columns.Append "Phone", adVarWChar, 20
.Columns.Append "Notes", adLongVarWChar
End With
cat.Tables.Append tbl
Set cat = Nothing
网上看的!
Dim DataBasePath As String
DataBasePath = App.Path
If Right$(DataBasePath, 1) <> "\" Then
DataBasePath = DataBasePath & "\"
End If
DataBasePath = DataBasePath & "IC_DataBase.dat"
Dim ConnectionString As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DataBasePath & ";" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password=www.5ivb.net/club"
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As New ADOX.Column
' 打开目录
cat.ActiveConnection = ConnectionString
With tbl
.Name = "MyContacts"
Set .ParentCatalog = cat
' 创建字段并将它们追加到新的 Table 对象中。
.Columns.Append "ContactId", adInteger
' 产生 ContactId 列和自动递加列
.Columns("ContactId").Properties("AutoIncrement") = True
.Columns.Append "CustomerID", adVarWChar
.Columns.Append "FirstName", adVarWChar
.Columns.Append "LastName", adVarWChar
.Columns.Append "Phone", adVarWChar, 20
.Columns.Append "Notes", adLongVarWChar
End With
cat.Tables.Append tbl
Set cat = Nothing
pcwe2002 2006-05-24
- 打赏
- 举报
adocon.execute("alter table A add column1 int")增加的字段是最后一个字段,如果想要指定增加的字段位置,可以先建一个与原表同结构的临时表,保存数据,再建立指定的新表,插入数据
terrywolf 2006-05-24
- 打赏
- 举报
顶起来