希望大侠帮我弄一下个excel和access添加与查询的东西

zhy12346

先谢谢大侠的帮助了这个是查询和添加的问题
图一


图二

zhy12346

拜托帮帮忙好吗

dqhtju

图一代码如下，图二代码下班后再说。
另外你图二中的大白框控件是什么啊，我的电脑打开时报丢失。

1. Private Sub CommandButton1_Click()
   
2.    
   
3.     Dim myMDB As New ADOX.Catalog
   
4.     Dim cnn As New ADODB.Command
   
5.     Dim SQL As String
   
6.     Dim ffp As String
   
7.    
   
8.     ffp = ThisWorkbook.path + "\数据库.accdb"
   
9.    
   
10.     If Dir(ffp) = "" Then
    
11.         myMDB.Create "provider=microsoft.jet.oledb.4.0;data source=" & ffp
    
12.         cnn.ActiveConnection = myMDB.ActiveConnection
    
13.         SQL = "create table 数据(姓名 text(10),年龄 text(3),班级 text(10),语文 text(10),数学 text(10),英语 text(10))"
    
14.         cnn.CommandText = SQL
    
15.         cnn.Execute , , adCmdText
    
16.         SQL = "insert into 数据 values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "')"
    
17.         cnn.CommandText = SQL
    
18.         cnn.Execute , , adCmdText
    
19.         Set myMDB = Nothing
    
20.         Set cnn = Nothing
    
21.     Else
    
22.         cnn.ActiveConnection = "provider=microsoft.jet.oledb.4.0;data source=" & ffp
    
23.         SQL = "insert into 数据 values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "')"
    
24.         cnn.CommandText = SQL
    
25.         cnn.Execute , , adCmdText
    
26.         Set myMDB = Nothing
    
27.         Set cnn = Nothing
    
28.     End If   
    
29.    
    
30. End Sub
    

复制代码

zhy12346

dqhtju 发表于 2014-9-3 16:41
图一代码如下，图二代码下班后再说。
另外你图二中的大白框控件是什么啊，我的电脑打开时报丢失。

你好 太感谢啦 虽然还没有试 但是感觉应该不错 呵呵 图二那个空白地方是listview控件

dqhtju

图二代码

1. Private Sub CommandButton2_Click()
   
2.    
   
3.     On Error Resume Next
   
4.    
   
5.     Dim cnn As New ADODB.Connection
   
6.     Dim rs As New ADODB.Recordset
   
7.     Dim ffp, SQL As String
   
8. 
   
9.     ListBox1.Clear
   
10.     ffp = ThisWorkbook.path + "\数据库.accdb"
    
11.     If Dir(ffp) <> "" Then
    
12.         cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ffp
    
13.         SQL = "select * from 数据 where 班级='" + ComboBox1.Value + "'"
    
14.         rs.Open SQL, cnn, adOpenStatic
    
15.       
    
16.         ListBox1.addItem "姓名"
    
17.         ListBox1.List(0, 1) = "年龄"
    
18.         ListBox1.List(0, 2) = "班级"
    
19.         ListBox1.List(0, 3) = "语文"
    
20.         ListBox1.List(0, 4) = "数学"
    
21.         ListBox1.List(0, 5) = "外语"
    
22.         For i = 1 To rs.RecordCount
    
23.             ListBox1.addItem rs.Fields("姓名")
    
24.             ListBox1.List(i, 1) = rs.Fields("年龄")
    
25.             ListBox1.List(i, 2) = rs.Fields("班级")
    
26.             ListBox1.List(i, 3) = rs.Fields("语文")
    
27.             ListBox1.List(i, 4) = rs.Fields("数学")
    
28.             ListBox1.List(i, 5) = rs.Fields("英语")
    
29.             rs.MoveNext
    
30.         Next
    
31.         rs.Close
    
32.         
    
33.         SQL = "select sum(语文) as Chinese,sum(数学) as Math,sum(英语) as English from 数据 where 班级='" + ComboBox1.Value + "'"
    
34.         rs.Open SQL, cnn, adOpenStatic
    
35.         ListBox1.addItem "合计"
    
36.         ListBox1.List(i, 3) = rs.Fields("Chinese")
    
37.         ListBox1.List(i, 4) = rs.Fields("Math")
    
38.         ListBox1.List(i, 5) = rs.Fields("English")
    
39.         rs.Close
    
40.         cnn.Close
    
41.         Set rs = Nothing
    
42.         Set cnn = Nothing
    
43.     Else
    
44.         MsgBox "数据文档不存在！"
    
45.     End If
    
46.    
    
47. 
    
48. End Sub
    
49. 
    
50. 
    
51. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
52.     UserForm1.Show
    
53.     'Unload Me
    
54. End Sub
    
55. 
    
56. Private Sub UserForm_Initialize()
    
57.    
    
58.    
    
59.     addItem "班级"
    
60.    
    
61. End Sub
    
62. Sub addItem(str As String)
    
63.    
    
64.     On Error Resume Next
    
65.    
    
66.     Dim i As Integer
    
67.     Dim cnn As New ADODB.Connection
    
68.     Dim rs As New ADODB.Recordset
    
69.     Dim ffp As String
    
70.    
    
71.     ComboBox1.Clear
    
72.     ComboBox1.TextColumn = 1
    
73.     ffp = ThisWorkbook.path + "\数据库.accdb"
    
74.     cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ffp
    
75.     SQL = "select distinct " + str + " from 数据"
    
76.     rs.Open SQL, cnn, adOpenStatic
    
77.     rs.MoveLast
    
78.     rs.MoveFirst
    
79.     For i = 1 To rs.RecordCount
    
80.         ComboBox1.addItem rs.Fields(str)
    
81.         rs.MoveNext
    
82.     Next i
    
83.     rs.Close
    
84.     cnn.Close
    
85.     Set rs = Nothing
    
86.     Set cnn = Nothing
    
87.    
    
88. End Sub
    

复制代码

zhy12346

dqhtju 发表于 2014-9-3 23:08
图二代码

大侠，好像不行哦，我想要一个listview列表的呢。希望能帮我在解决一下！万分感谢！

dqhtju

我没注意，以为是listbox呢
我看看这两个有什么区别，然后再更新

dqhtju

zhy12346 发表于 2014-9-4 09:17
大侠，好像不行哦，我想要一个listview列表的呢。希望能帮我在解决一下！万分感谢！

试试看

1. Private Sub CommandButton2_Click()
   
2.     Call listItems_ListView
   
3. End Sub
   
4. 
   
5. Private Sub ListView1_DblClick()
   
6.     UserForm1.Show
   
7. End Sub
   
8. 
   
9. Private Sub UserForm_Initialize()
   
10.    
    
11.     Dim wd As Single
    
12.     Call addItem("班级")
    
13.     wd = ListView1.Width / 6
    
14.     ListView1.listItems.Clear
    
15.     ListView1.ColumnHeaders.Clear
    
16.     ListView1.ColumnHeaders.Add , , "年龄", wd
    
17.     ListView1.ColumnHeaders.Add , , "姓名", wd
    
18.     ListView1.ColumnHeaders.Add , , "班级", wd
    
19.     ListView1.ColumnHeaders.Add , , "语文", wd
    
20.     ListView1.ColumnHeaders.Add , , "数学", wd
    
21.     ListView1.ColumnHeaders.Add , , "英语", wd
    
22.     ListView1.View = lvwReport
    
23.     ListView1.FullRowSelect = True
    
24.     ListView1.Gridlines = True
    
25.    
    
26. End Sub
    
27. 
    
28. Sub addItem(str As String)
    
29.    
    
30.     On Error Resume Next
    
31.    
    
32.     Dim i As Integer
    
33.     Dim cnn As New ADODB.Connection
    
34.     Dim rs As New ADODB.Recordset
    
35.     Dim ffp As String
    
36.    
    
37.     ComboBox1.Clear
    
38.     ComboBox1.TextColumn = 1
    
39.     ffp = ThisWorkbook.path + "\数据库.accdb"
    
40.     cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ffp
    
41.     SQL = "select distinct " + str + " from 数据"
    
42.     rs.Open SQL, cnn, adOpenStatic
    
43.     rs.MoveLast
    
44.     rs.MoveFirst
    
45.     For i = 1 To rs.RecordCount
    
46.         ComboBox1.addItem rs.Fields(str)
    
47.         rs.MoveNext
    
48.     Next i
    
49.     rs.Close
    
50.     cnn.Close
    
51.     Set rs = Nothing
    
52.     Set cnn = Nothing
    
53.    
    
54. End Sub
    
55. 
    
56. Sub listItems_ListView()
    
57. 
    
58.     On Error Resume Next
    
59.    
    
60.     Dim cnn As New ADODB.Connection
    
61.     Dim rs As New ADODB.Recordset
    
62.     Dim ffp, SQL As String
    
63.    
    
64.     ListView1.listItems.Clear
    
65.     ffp = ThisWorkbook.path + "\数据库.accdb"
    
66.     If Dir(ffp) <> "" Then
    
67.         cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ffp
    
68.         SQL = "select * from 数据 where 班级='" + ComboBox1.Value + "'"
    
69.         rs.Open SQL, cnn, adOpenStatic
    
70.         
    
71.         For i = 1 To rs.RecordCount
    
72.             Set addItm = ListView1.listItems.Add()
    
73.             addItm.Text = rs.Fields("姓名")
    
74.             addItm.SubItems(1) = rs.Fields("年龄")
    
75.             addItm.SubItems(2) = rs.Fields("班级")
    
76.             addItm.SubItems(3) = rs.Fields("语文")
    
77.             addItm.SubItems(4) = rs.Fields("数学")
    
78.             addItm.SubItems(5) = rs.Fields("英语")
    
79.             rs.MoveNext
    
80.         Next
    
81.         rs.Close
    
82.         
    
83.         SQL = "select sum(语文) as Chinese,sum(数学) as Math,sum(英语) as Eng from 数据 where 班级='" + ComboBox1.Value + "'"
    
84.         rs.Open SQL, cnn, adOpenStatic
    
85.         Set addItm = ListView1.listItems.Add()
    
86.         addItm.Text = "合计"
    
87.         addItm.SubItems(3) = rs.Fields("Chinese")
    
88.         addItm.SubItems(4) = rs.Fields("Math")
    
89.         addItm.SubItems(5) = rs.Fields("Eng")
    
90.         rs.Close
    
91.         cnn.Close
    
92.         Set rs = Nothing
    
93.         Set cnn = Nothing
    
94.     Else
    
95.         MsgBox "数据文档不存在！"
    
96.     End If
    
97. 
    
98. End Sub

复制代码

zhy12346

dqhtju 发表于 2014-9-4 10:35
试试看

大侠不好意思啊，我还得打扰你一下，这个有点报错了。
ListView1.FullRowSelect = True这条数据好像有点问题

dqhtju

zhy12346 发表于 2014-9-4 13:23
大侠不好意思啊，我还得打扰你一下，这个有点报错了。
ListView1.FullRowSelect = True这条数据好像有点 ...

那你把它屏蔽就可以了。
引起这个问题的原因是我用的控件跟你的不一样，我用的是6.0。如图如果没有其他的问题，你可以把这个求助关闭了。