咖啡日语论坛

标题: 关于access数据库的两点疑问 [打印本页]

作者: rikokushin 时间: 2007-2-14 08:37
标题: 关于access数据库的两点疑问
关于access数据库的两点疑问
(1)如何在access中显示上下标
PS:EXCEL中有大量化学式的上下标数据,怎么导入access中不使数据格式丢失,表告诉我保存为图片

(2)如果在一个表中设置两个主键,并且设置数据的两个主键的键值都一样时数据无法导入自动过滤

望高手指点

如果解决任一问题,将有可观豆豆赠送

[ 本帖最后由 rikokushin 于 2007-2-14 00:39 编辑 ]

作者: kazuky 时间: 2007-2-14 08:58
1.Alt + F11 →VBA
2.插入→标准模块（因为我用的是日文版，中文是我自己翻译的，可能和中文版的不一样）
3.把下面的code copy到新的模块里
4.把鼠标放在TestChrW上，按F5运行

Function TestChrW()

Dim i As Long
Dim str As String
Dim rs As New ADODB.Recordset
CreateTestTable

rs.Open "tbl_TestChrW", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable
For i = 0 To 1000
      rs.AddNew
      rs("number") = i
      rs("chrw") = ChrW(i)
      rs.Update


      str = str & " " & i & ":" & ChrW(i)
      DoEvents
      If i Mod 20 = 0 Then
         Debug.Print str
         str = ""
      End If
Next
rs.Close
DoCmd.OpenTable "tbl_TestChrW"

End Function
Function CreateTestTable()

On Error Resume Next
Dim strSQL As String
strSQL = "drop table tbl_TestChrW"
CurrentProject.Connection.Execute strSQL
If Err <> 0 Then
      Debug.Print Err.Description
End If
strSQL = "create table tbl_TestChrW (ID AUTOINCREMENT(1,1),[number] long, [ChrW] text(2))"
CurrentProject.Connection.Execute strSQL
If Err <> 0 Then
      Debug.Print Err.Description
End If

End Function

---------------------------------------------------------------------------------------------------------------------------------------

code可能有简单的写法..
必须先打开macro

作者: rikokushin 时间: 2007-2-14 16:20
这个偶检索到试过的
在access911上的文章,可是无法实现呢

作者: 心ちまっ 时间: 2014-3-20 21:18
Access数据库属于关系模型数据库，Access数据库打开时应选择扩展名为Mdb的文件。

欢迎光临咖啡日语论坛 (http://coffeejp.com/bbs/)