小编use*_*980的帖子

我在SQL中有三个表,我需要将它们合并为一个.我需要一个表中所有表中的所有字段.所有表格包含三个不同年份的相同字段.我写了一个代码:

CREATE TABLE COL_TBL_TRAINING_ALL_YEARS AS(
SELECT 
COL_TBL_2010_TRN_RESULTS_new.*,
COL_TBL_TRN_RESULTS_GEMS_2011.*, 
COL_TBL_TRN_RESULTS_GEMS_2012.*
FROM COL_TBL_2010_TRN_RESULTS_new,
COL_TBL_TRN_RESULTS_GEMS_2011, 
COL_TBL_TRN_RESULTS_GEMS_2012
WHERE COL_TBL_2010_TRN_RESULTS_new.SYS_EMP_ID_NR = COL_TBL_TRN_RESULTS_GEMS_2011.SYS_EMP_ID_NR = COL_TBL_TRN_RESULTS_GEMS_2012.SYS_EMP_ID_NR)

并且我在"AS"一词附近出现了错误的语法,并且'='附近的语法不正确

我已经阅读了我的SQL书籍,似乎无法找到解决方法来做到这一点,任何帮助将不胜感激.

我有一个过去三年的数据列表,但所有日期都有不同的时间.我正在尝试编写一个将一直删除的宏.我尝试改变单元格的格式,但它不起作用.

EX.列表看起来像:

10/12/2011 08:41 PM Eastern Time
10/12/2011 08:41 PM Eastern Time
10/12/2011 08:41 PM Eastern Time
10/12/2011 08:41 PM Eastern Time
10/12/2011 08:41 PM Eastern Time
10/12/2011 08:41 PM Eastern Time
10/12/2011 08:41 PM Eastern Time
10/12/2011 08:41 PM Eastern Time

我需要08:41 PM Eastern Time从每个中删除 或等效.但所有时间都不同.有什么想法吗？

我的数据存储表单有一个新模块 (AutoExec)，用于在打开表单时测试与 SQL 服务器数据库的连接。只是它在打开时不会触发。我想知道我的代码中是否有什么东西导致了这个，这是我的第一个模块，所以我还不熟悉正确的形式。

Public Sub AutoExec()
Dim cnn As ADODB.Connection
Dim localrst As New ADODB.Recordset
Dim remoterst As New ADODB.Recordset

Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB; Data Source=DB\P003,49503; Initial Catalog=HRLearnDev;" _
    & "User Id=USERNAME; Password=PASSWORD;"

If cnn.State = adStateOpen Then

    MsgBox ("You have an established connection.")
  Else
    MsgBox ("Cannot connect to remote server. Data will be stored locally  to CDData Table until application is opened again.")

End If

cnn.Close
Dim rst As New ADODB.Recordset


End Sub

我一直在使用这段代码将ID添加到ID一段时间,并且它始终可以正常工作.直到今天它开始说代码执行已被中断.

Sub AddZeroes()
'Declarations
Dim i As Long, j As Long, endrow As Long
'Converts the A column format to Text format
Application.ScreenUpdating = False
Columns("A:A").Select
Selection.NumberFormat = "@"
'finds the bottom most row
endrow = ActiveSheet.Range("A1").End(xlDown).Row
'selects the top cell in column A
ActiveSheet.Range("A1").Select

'loop to move from cell to cell
For i = 1 To endrow - 1
            'Moves the cell down 1. Assumes there's a header row so really starts at row 2
            ActiveCell.Offset(1, 0).Select
            'The Do-While …

我创建了一个表，它的目的是存放我多年来创建的查询数据库，我创建了一个相应的表单来插入所有信息，但我无法使代码正常工作。

Private Sub cmd_go_Click()
Dim insertstring As String

    insertstring = "INSERT INTO KWTable (KW, Source, Code) VALUES (" & text_key.Value & "," & combo_source.Value & "," & text_code.Text & ");"

    DoCmd.RunSQL insertstring

End Sub

目标表上的三列是 KW、Source 和 Code，插入到它们中的值是 text_key（这是我输入的关键字，以便我稍后在需要引用某些内容时可以搜索它们）、combo_source.Value（其中是一个组合框，其中包含保存这些代码和查询的数据库列表，我将在插入表时选择正确的）和 text_code（这是查询的实际代码本身）

该代码应该将关键字（文本）、源代码（组合框列表）和代码（文本）插入到 KWTable 中。但是当我单击添加记录按钮时，我收到一个“运行时错误 424：需要对象”错误框，并且它突出显示了整个插入字符串行。我无法解决错误所在。有什么想法吗？

我有一个存储过程，用于一个如此庞大的视图，它总是超时，它用于查找某些日期范围的数据。这对我来说是一个全新的概念，我为主要日期范围设置了存储过程，如果我需要特定日期，我只是不知道如何正确执行它。这是代码和问题

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[COL_Run_DOM_Parameters]
@StartDate varchar (50),
@EndDate varchar (50)
AS
SET NOCOUNT ON
SELECT *
FROM dbo.COL_V_GEMS_DOM_FCT
WHERE REC_EFF_STT_DT BETWEEN '2010-01-01' AND '2012-12-31'

当我执行时，我会这样做：

Execute COL_Run_DOM_Parameters @StartDate = '2011-12-22', @EndDate '2012-05-17'

但是当我执行它时，它仍然给了我 2010 年到 2012 年之间的所有数据，而不是我要求的日期范围。我的代码哪里有错误？

我在SQL中有一个代码,我试图让每个函数的前5个最差.我希望它能够抓住每组最差的5个而不是总体上最糟糕的5个.代码如下:

SELECT TOP (100) PERCENT Job_Function, CMX_DSC_TE, MGR_ANW_CD_Num - DES_LVL_NR_Num AS JSC_Gap
FROM  dbo.AC_GLN_Project_JSC
ORDER BY Job_Function, JSC_Gap

该表看起来像:(这是一个较小的版本)

AG  Air Operations Tools and Equipment Knowledge    -2
AG  Capacity Planning Knowledge                     -1
AG  Conducts Research                                 -3
AG  Equipment Repair Management                     -4
AG    
AG  Equipment Repair Management                     -3
AG  Facilities, Equipment, and Grounds Maintenance  -3
AG  Facilities, Equipment, and Grounds Maintenance  -2
AG  Instructional Design Knowledge                      -2
AG  Plans Flight Operations                     -1
AG  Statistical Analysis    -2
AG  Troubleshoots Aircraft Failures            0 …