有偿求将窗体数值写入access数据库中代码

dafengche

附件中，我画好了窗体，窗体值生成数组函数也写好了，就是有一个控件option button的问题不知道该如何解决，求大神帮助

1. Sub 窗体控件写入数据库()
   
2.     Dim chuangti As UserForm
   
3.     Dim strtable As String
   
4.     Dim k%, m%, i%, arr(), arr1()
   
5.     Dim ctr As Control
   
6.    
   
7.     Set chuangti = Me
   
8.     '窗体写入数组
   
9.     For Each ctr In chuangti.Controls
   
10.         '将窗体控件的名称和值分别写入数组，以便于后续SQL写入数据库
    
11.         If TypeName(ctr) = "TextBox" Or TypeName(ctr) = "ComboBox" Then
    
12.             k = k + 1
    
13.             m = m + 1
    
14.             ReDim Preserve arr(1 To k)
    
15.             ReDim Preserve arr1(1 To m)
    
16.             arr(k) = ctr.Name
    
17.             arr1(m) = ctr
    
18.         End If
    
19.     Next
    
20.    
    
21.     Dim SQL As String
    
22.     Dim cnn As Object
    
23.     Set cnn = CreateObject("adodb.connection")
    
24.     With cnn
    
25.         .Provider = "microsoft.ace.oledb.12.0"
    
26.         .ConnectionString = ThisWorkbook.Path & "\丰润财税.accdb"
    
27.         .Open
    
28.     End With
    
29.     strtable = "订单明细表"
    
30.     'For i = 1 To UBound(arr)
    
31.         'insert into 表名（列1，列2）values（值1，值2，值3）
    
32.         SQL = "INSERT into " & strtable & " (" & arr & ") values " & "('" & arr1 & "')"
    
33.         cnn.Execute (SQL)
    
34.     'Next
    
35.     '释放空间变量
    
36.     cnn.Close '关闭连接
    
37.     Set cnn = Nothing '释放空间
    
38.    
    
39.     MsgBox "写入成功"
    
40. End Sub

复制代码

dafengche

求帮助啊，可以充话费的

dafengche

大神们，帮帮忙

zzj198237

你现在出来什么问题？

wj2368

dafengche 发表于 2020-3-10 21:22
求帮助啊，可以充话费的

你的附件中缺少多张表。。。。。。。。。。。

dafengche

wj2368 发表于 2020-3-11 10:18
你的附件中缺少多张表。。。。。。。。。。。

我其实就放了一张表，是为了把订单窗体的值输入数据库，其他的表我就可以参照写了

xyxcc177

不知道你搞个窗体是什么用途，既然用excel能管理数据，就不用ACCESS

jsgj2023

我的主题帖预约送货管理系统中有将窗体数据写入sql数据库的实现代码,你可参照修改!

wj2368

dafengche 发表于 2020-3-12 14:57
我其实就放了一张表，是为了把订单窗体的值输入数据库，其他的表我就可以参照写了

但你打开窗口时初始化时要加载多表

northwolves

1. If TypeName(ctr) like "*Box" Or TypeName(ctr) = "OptionButton" Then

复制代码