| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- outlook数据添加到 foxtable 或者foxtable 的数据库里面 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76983) |
|
| -- 作者：ljh29206 -- 发布时间：2015/11/9 13:52:00 -- outlook数据添加到 foxtable 或者foxtable 的数据库里面 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If TypeName(Item) <> "meetingitem" Then \'返回 meetingitem的上级对象 appointmentitem Set myappt = Item.GetAssociatedAppointment(True) MsgBox myappt.Subject & myappt.Body End If End Sub 请教如何把 myappt.Subject 及 myappt.Body 在vba 里面执行 添加到 foxtable 或者foxtable 的数据库里面。
|
|
| -- 作者：大红袍 -- 发布时间：2015/11/9 14:08:00 -- If Item.GetType.Name <> "meetingitem" Then \'返回 meetingitem的上级对象 appointmentitem
dim myappt = Item.GetAssociatedAppointment(True)
MsgBox(myappt.Subject & myappt.Body)
Dim nr As Row = Tables("表A").AddNew
nr("subject") = myappt.Subject
End If
|
|
| -- 作者：ljh29206 -- 发布时间：2015/11/9 14:19:00 -- 额 哥 不是在foxtable 里面操作， 实在 outlook 里面 vba操作。 Sub SQL2008() Dim cnn As New ADODB.Connection Dim SQL As String, mydata As String, mytable As String Dim i% mydata = "foxtable" mytable = "日程明细" cnn.C & _ "User ID=fstbfc;Password =Ljh810424;Data Source=TBFCSVR\\SQL2008;Initial Catalog =" & mydata cnn.Open 如果SQL 数据 库 中 有 ”A" "B" 两列 ，追加一条记录 ，要向A , B 分别填入 myappt.Subject 和 myappt.Body 请教后边这个代码怎么写？ 另外在问下 _identify 这个列 是自动增加的吗 如果 用 vba 向该数据库添加一条新的记录 是不是不用向 _identify 赋值？ [此贴子已经被作者于2015/11/9 14:20:53编辑过]
|
|
| -- 作者：大红袍 -- 发布时间：2015/11/9 14:27:00 -- cnn.Open cnn.Execute("insert into 表A (第一列, 第二列) values (\'" & 变量 & "\', \'" & 变量 & "\')") |
|
| -- 作者：ljh29206 -- 发布时间：2015/11/9 14:33:00 -- 另外在问下 _identify 这个列 是自动增加的吗 如果 用 vba 向该数据库添加一条新的记录 是不是不用向 _identify 赋值？ 还有 日期列 是不是 像 foxtable 一样 用
|
|
| -- 作者：大红袍 -- 发布时间：2015/11/9 14:37:00 -- 不用设置 _Identify 列的值；
你的是sqlserver数据库的话，就用sqlserver的标准，全部是单引号\' |
|
| -- 作者：ljh29206 -- 发布时间：2015/11/9 17:24:00 -- 老师再请教下 查找语句 ，如果找到A列 含有 "AAA" 这个数据， 有 就对这样的数据其他列 进行 信息替换 ，找不到 进行添加， 这个 的 SQL 语句 怎么写
|
|
| -- 作者：大红袍 -- 发布时间：2015/11/9 17:46:00 -- Dim rs=con.Execute("select count(*) f rom 表A where A列 = \'AAA\'") If RS.Fields(0).Value = 0 Then cnn.Execute("insert into 表A (第一列, 第二列) values (\'" & 变量 & "\', \'" & 变量 & "\')") End If |