EXCEL传输给ACCESS中的数据为什么不对称

jaychen007

zhaogang1960 发表于 2012-10-17 22:50
如果想控制数据类型为文本，可把2000多列全部填入字符串，如都是"a"

我觉的我的最后一个问题可以用复选框来执行，但是不知道用vb怎么写。

zhaogang1960

jaychen007 发表于 2012-10-18 15:31
大哥您好，真的十分感谢你，你帮我看看这个问题好吗，这个问题对您来说一定是很简单的。说明都在我的附件 ...

1. Sub 查询()
   
2.     Dim cnn As Object
   
3.     Dim SQL$, s$
   
4.     Dim arr, brr, i&
   
5.     Set cnn = CreateObject("ADODB.Connection")
   
6.     SQL = "select * from Tabell"
   
7.     arr = Range("C2:E3")
   
8.     brr = Array("", "'", "'", "'")
   
9.     For i = 1 To UBound(arr, 2)
   
10.         If Len(arr(2, i)) Then s = s & " and " & arr(1, i) & "=" & brr(i) & arr(2, i) & brr(i)
    
11.     Next
    
12.     If Len(s) Then SQL = SQL & " where " & Mid(s, 6)
    
13.     cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\inn og ut.mdb"
    
14.     ActiveSheet.UsedRange.Offset(7).ClearContents
    
15.     [a8].CopyFromRecordset cnn.Execute(SQL)
    
16.     cnn.Close
    
17.     Set cnn = Nothing
    
18. End Sub
    

复制代码

zhaogang1960

请看附件
inn og ut, slett.rar (36.17 KB, 下载次数: 16)

2012-10-18 17:16 上传

点击文件名下载附件

jaychen007

zhaogang1960 发表于 2012-10-18 17:16
请看附件

谢谢大哥，但是我能用复选框来实现吗，就是可以选择查询

jaychen007

zhaogang1960 发表于 2012-10-18 17:16
请看附件

我重新上传附件，你能再看看吗。

zhaogang1960

jaychen007 发表于 2012-10-18 17:23
谢谢大哥，但是我能用复选框来实现吗，就是可以选择查询

你上传的是单选框，且是2007文件另存为2003工作簿，还是上传2007格式吧

jaychen007

zhaogang1960 发表于 2012-10-18 17:27
你上传的是单选框，且是2007文件另存为2003工作簿，还是上传2007格式吧

不好意思，我从新上传。

zhaogang1960

jaychen007 发表于 2012-10-18 17:33
不好意思，我从新上传。

1. Private Sub CommandButton1_Click() '查询
   
2.     Dim cnn As Object
   
3.     Dim SQL$, s$
   
4.     Dim arr, brr, i&
   
5.     Set cnn = CreateObject("ADODB.Connection")
   
6.     SQL = "select * from Tabell"
   
7.     arr = Range("C2:E2")
   
8.     brr = Array("", "'", "'", "'")
   
9.     For i = 1 To 3
   
10.         If Me.OLEObjects("CheckBox" & i).Object.Value And Len(arr(1, i)) > 0 Then s = s & " and " & Me.OLEObjects("CheckBox" & i).Object.Caption & "=" & brr(i) & arr(1, i) & brr(i)
    
11.     Next
    
12.     ActiveSheet.UsedRange.Offset(7).ClearContents
    
13.     If Len(s) = 0 Then Exit Sub
    
14.     SQL = SQL & " where " & Mid(s, 6)
    
15.     cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\inn og ut.mdb"
    
16.     [a8].CopyFromRecordset cnn.Execute(SQL)
    
17.     cnn.Close
    
18.     Set cnn = Nothing
    
19. End Sub

复制代码

zhaogang1960

请看附件
inn_og_ut,_slett.rar (50.61 KB, 下载次数: 10)

2012-10-18 18:27 上传

点击文件名下载附件

jaychen007

zhaogang1960 发表于 2012-10-18 18:27
请看附件

不过真的很感谢大哥您，如果没有你的帮助，估计我现在数据库真的不知道该怎么半，非常感谢您。