Tag: logging集

VBAlogging集/ Oracle和Excel Connect: 我已经在我的vba语句中安装了试图logging集。不幸的是，他只访问我的数据库中的第一行。谁能帮我？我不擅长VBA这是我的第一个项目。我希望有人可以帮我用我的代码。谢谢 Sub Testbox() Dim conn, Rs Dim strSQL As String Dim auswahl As Integer auswahl = MsgBox("Die Daten werden geladen", vbOKCancel, "Bitte auswählen") If auswahl = 1 Then connstring = "UID=user;PWD=passwort;DRIVER={Microsoft ODBC For Oracle};SERVER=server.WORLD;" Set conn = New ADODB.Connection With conn .ConnectionString = connstring .CursorLocation = adUseClient .Mode = adModeRead […]

访问VBA。检测logging集条目是否会导致溢出: 我有以下代码，我遍历查询生成的logging集，有时，查询中的几行将返回（0/0）。当循环遍历logging集写出excel时，如果查询中的行确实返回（0/0），则在尝试访问它时会收到溢出错误。我想抓住这个溢出错误，并将string“0％”分配给我的variables，而不是溢出值。有谁知道一个方法来捕捉，并解决这些溢出错误？ Set qdf = CurrentDb.CreateQueryDef("Latest Estimate", sSQL) Set dbs = CurrentDb Set rstAnswer = dbs.OpenRecordset("Latest Estimate") If Not (rstAnswer.EOF And rstAnswer.BOF) Then rstAnswer.MoveFirst Do Until rstAnswer.EOF tempString = CStr(rstAnswer!BU) xlSheet.Range("BA" & CStr(tempRow)).Value = tempString tempString = CStr(rstAnswer!Program) xlSheet.Range("BB" & CStr(tempRow)).Value = tempString tempString = CStr(rstAnswer![EIS Date]) xlSheet.Range("BC" & CStr(tempRow)).Value = tempString tempString […]

我可以只复制一个logging集中的行/字段到excel列吗？: 有没有办法将logging集的单个列中的值复制到Excel中的列而不必使用循环？我尝试了以下操作来复制单个列： Sheet4.Range("Complete").CopyFromRecordset rsEDW.Fields(3) 但是这没有用。

ADODB.Recordset上的“types不匹配”错误: 我有一个程序，应该从SQL数据库中读取数据并报告给Excel。它在32位机器上按预期工作，但是由于我转移到64位工作环境，程序无法运行。这里是我的代码示例（返回的第一个错误）： Private Sub SearchBox_Change() ResultBox.Clear Call CompileQuery 'If the query is empty If SearchBox.Value = "" Then NumShowingLabel = "Showing 0 of 0 Results" ResultBox.Clear GoTo noSearch End If 'Open a new query with varQuery With varRecordset .ActiveConnection = varConnection .Open varQuery End With 'Set NumShowingLabel If varRecordset.RecordCount > varMaxResults Then NumShowingLabel = […]

VBA中的ADODBlogging集说，如果没有，excel字段是空的: 我有一个Excel工作表，我需要在我的Access数据库中导入。该表看起来像这样： date接收标识项目N°QUANTITE RECUE 06/01/2010 DVD-Sex＆the City PCR-PA21550167 5 06/01/2010 DVD-Avatar Natie 2 PCR-PA21550209 10 然后我使用adodb将这个文件传输到数据库中： Dim rs2 As New ADODB.Recordset Dim cnn2 As New ADODB.Connection Dim cmd2 As New ADODB.Command Dim intField As Integer Dim strFile As String strFile = fncOpenFile If strFile = "" Then Exit Sub With cnn2 .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString […]

如何从adodblogging集Excel VBA中的一列中select不同的值？: 我有一个ADODB.Recordset rs ，我从数据库中获取。我现在必须重复使用这个logging集两次。这是我的logging集的示例： Mike Client John Manager Karen Client Joe Sub Brian Manager 现在我需要得到所有的标题，所以我想得到： Client Manager Sub 我知道有rs.Filter ，但我不确定是否可以select不同的。另外我知道我可以克隆这个Recordset： Dim rs_clone As ADODB.Recordset Set rs_clone = New ADODB.Recordset rs_clone = rs.getrows() 是否可以克隆不同的logging？还是有更好的办法？谢谢

如何使用Recordset使用variables！: 我的问题是以下几点：我需要为logging集分配一个值。问题是我需要使用一个variables。所以，而不是写这个 MyRecordSet![field_name] 我需要写这个 MyRecordSet![variable_name] 即使对我来说，这一切看起来都很简单，直到我发现括号内没有引号将variables名称中的文本string分开。所以，我无法区分它们。拜托，伙计们，帮帮我！我试过了你能想象到的一切。提前致谢。

导入excel文件返回null为现有的数据: 我试图导入Excel文件Excel97-2003（仅第一张）到Access数据库。为此我使用下面的代码： Dim cnnExcel As New ADODB.Connection Dim rsExcel As New ADODB.Recordset With cnnExcel .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & strFileSelected & ";" & "Extended Properties=Excel 8.0" .CursorLocation = adUseClient .Open End With rsExcel.Open "SELECT * FROM [Sheet1]", cnnExcel Excel文件中的所有列都是string，当您使用Excel2003打开时，其types为“常规”（无特殊格式），另外3列是date。我的问题是，我得到空的单元格中存在的值为空。例如，如果第一个值是string比如果有列中的整数它将返回为空，反之亦然有没有解决scheme呢？谢谢

在活动任务SSIS中自定义日志logging: 我在SSIS包中遇到了两个问题。我所拥有的SSIS包有一个活动任务，按照我的要求格式化一个Excel工作表，并将其另存为一个不同的文件modified.xlsx。这个文件然后用于我的数据stream任务来处理和上传数据到数据库表。这个软件包在我的本地系统中完美地工作，但是当我在我的SQL服务器上创build一个计划的作业来运行这个软件包时，它失败，出现一般错误消息“Microsoft（R）SQL Server执行软件包实用程序版本11.0.5058.0 （C）Microsoft Corporation。保留所有权利。开始date：12:06:55错误：2016-04-01 12：06：57.06代码：0x00000001来源：脚本任务描述：exception被调用的目标抛出。结束错误DTExec：程序包执行返回DTSER_FAILURE（1）。开始：12:06:55 PM完成：12:06:57 PM已用：1.563秒。程序包执行失败，步骤失败。为了得到更详细的错误消息，我尝试设置活动任务的日志logging。我将日志loggingconfiguration为将事件的日志条目写入CSV文件，如下面的屏幕截图所示。我启用了包的日志logging和检查个人的任务。在活动任务中，我添加了Dts.Log（“”，0，bytes）; 跟踪任何exception，如果还有任何logging每个步骤。 public partial class ScriptMain:Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase { byte[] bytes = new byte[0]; public void Main() { LogMessages(""); LogMessages("Update Bug package execution started at :: " + DateTime.Now.ToLongTimeString()); LogMessages("Loading package configuration values to local variables."); FileName = Convert.ToString(Dts.Variables["User::ExcelFileName"].Value); SourceFileLocation = Convert.ToString(Dts.Variables["User::SourceFileLoc"].Value); SourceFileName = […]

错误3021与Getrows VBA ADODB连接: 您好我试图编写一个文件从SQL获取数据到VBA中的数组。首先，我试图使用这个代码，并与我的电脑，但在其他用户的计算机中testing文件后，我发现错误types2146825287当macros到它打开连接的地方。我不是IT部门的一员，所以我将无法更新用户的服务包，所以我试着重新使用其他用户在另一个文件工作的另一个代码几年前的另一个文件。这是我的第一个问题： Function ConsultaQueryADODB(ConexionString, Query) As Variant Dim CnADODB As ADODB.Connection Set CnADODB = New ADODB.Connection CnADODB.ConnectionString = ConexionString CnADODB.Open Dim RsADODB As ADODB.Recordset Set RsADODB = New ADODB.Recordset /// Open RecordSet Set RsADODB = CnADODB.Execute(Query) ///Keep the Recordset using an Array Dim ArrayQuery As Variant ArrayQuery = RsADODB.GetRows RsADODB.Close Set RsADODB = […]