关于access数据库的两点疑问

rikokushin

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

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


望高手指点

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

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

kazuky

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

这个偶检索到试过的
在access911上的文章,可是无法实现呢

心ちまっ

Access数据库属于关系模型数据库，Access数据库打开时应选择扩展名为Mdb的文件。