求助！文本框的内容如何通过UPDATE语句写入ACCESS

Bettyexcel

求助。

点击EXCEL里的“Add New"按钮出现一个“List" 对话框,
将该对话框里的4个空白处填满后,按"Add"按钮，则对应的数据分别添加到ACCESS数据表 Table1 里对应的前四列里

问题：
当点击“Fix”按钮时，如何能将“ Fix Date“的日期数据，即，文本框的内容 导入到Table1的最后一列，“Fix Date”列。

谢谢大家了！

Bettyexcel

顶起来，求助啊！

魂断蓝桥

建议楼主，先看一下insert into 数据的是怎么样用的。

     Set cn = CreateObject("ADODB.Connection")
     On Error GoTo 100
     cn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Data.accdb"
     sql = "insert into Table1 values('" _
         & TextBox1 & "',#" _
         & TextBox2 & "#," _
         & TextBox3 & ",'" _
         & TextBox4 & "',null)"
         MsgBox sql
     cn.Execute (sql)
     cn.Close
     Set cn = Nothing
     Unload Me
     Exit Sub
100:
     cn.Close
     Set cn = Nothing
     MsgBox Error$(Err.Number)
End Sub

Private Sub CommandButton1_Click()
Dim cn As Object, sql As String
     Set cn = CreateObject("ADODB.Connection")
     On Error GoTo 100
     cn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Data.accdb"
     sql = "insert into Table1 values('" _
         & TextBox1 & "'," _
         & "null,null,null,#" _
         & TextBox2 & "#)"
     cn.Execute (sql)
     cn.Close
     Set cn = Nothing
     Unload Me
     Exit Sub
100:
     cn.Close
     Set cn = Nothing
     MsgBox Error$(Err.Number)
End Sub

Bettyexcel

魂断蓝桥 发表于 2016-5-23 11:48
建议楼主，先看一下insert into 数据的是怎么样用的。

     Set cn = CreateObject("ADODB.Connection") ...

先谢谢老师！
但是执行后是以下这样的，例如0381900000这个点了FIX后变成了另起一行了，我的意思是它的FIX DATE 能在原本数据表已经有的那行上面对应的



Table1[td]

The Order	Date	Text1	Text2	Fix Date
0318900000	5/10/2016	一次	二次
0381900000				5/23/2016

hehex

Bettyexcel 发表于 2016-5-23 13:31
先谢谢老师！
但是执行后是以下这样的，例如0381900000这个点了FIX后变成了另起一行了，我的意思是它 ...

Insert into 就是在后面插入的，如果要对应某一行进行更新，应该用update  set where 语句

Bettyexcel

hehex 发表于 2016-5-24 09:42
Insert into 就是在后面插入的，如果要对应某一行进行更新，应该用update  set where 语句

谢谢老师，能否告知UPDATE语句怎么写？

hehex

Bettyexcel 发表于 2016-5-24 12:57
谢谢老师，能否告知UPDATE语句怎么写？

请参考附件，重新设计了你的fix 窗体，根据窗体内容动态构成Update 语句更新到数据库。
如果某框体为空，则默认为不更新该字段。
话说，你的数据库字段设计好坑，有空格不说，还有字段名与SQL 的保留内置函数冲突的，调试半天。

Bettyexcel

hehex 发表于 2016-5-26 11:11
请参考附件，重新设计了你的fix 窗体，根据窗体内容动态构成Update 语句更新到数据库。
如果某框体为空 ...

谢谢老师，但这并不能达到我的要求，我需要两个对话框，一个是用来ADD的，另一个是用来更新的，现在您设计的只是更新的对话框。原本ADD的功能没有了。

hehex

Bettyexcel 发表于 2016-5-30 10:51
谢谢老师，但这并不能达到我的要求，我需要两个对话框，一个是用来ADD的，另一个是用来更新的，现在您设 ...

你不是分两个按钮嘛？原来的那个新增按钮的代码没动啊

hehex

Bettyexcel 发表于 2016-5-30 10:51
谢谢老师，但这并不能达到我的要求，我需要两个对话框，一个是用来ADD的，另一个是用来更新的，现在您设 ...

那个新增的按钮是你原来的代码，我一个字都没改。而且走的是另一个窗体框架，和我写的那个fix 窗体完全不是一段程序。因此原功能有问题和我的代码无关。

现在更新了fix 模块，自动判断添加还是更新操作，逻辑是先扫描整个表，如果[The Order] 字段不存在输入的值，则自动进行插入（添加）操作。如果该记录已存在则进入更新模式。

参考附件