我在使用VBA执行SQL查询并将结果复制到Excel工作表时遇到问题.
当sub excecutes时,它只复制256的倍数的行(因此行256,512,768等是唯一填充到Excel中的行).从数据库复制任何其他字段我没有问题.此外,当我在MySQL中运行相同的查询时,它工作正常.对于SQL和VBA都相当新,我看不出为什么这个特定字段应该引起麻烦的任何原因.我唯一能想到的是它的内容是一个总是以下划线开头的字符串(我只提到它,因为它是它和其他一些字段之间的唯一区别).
有没有人想知道为什么会这样?
干杯,
利亚姆
编辑:这是有问题的代码片段.说实话,我不确定看到代码是否有所作为,因为它适用于其他情况,但再次,这就是为什么我是新手:)
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=ipaddress;UID=userID;PWD=password;DATABASE=jiradb;OPTION=16427;"
con.Open
sql = "SELECT TEMPO_DATA FROM gssd_worklog WHERE WORK_DATE BETWEEN '2012-01-01' AND '2012-03-31'"
'Open Recordset'
rst.Open sql, con
'Copy Data to Excel'
Set ws = ActiveSheet
ws.Range("A2").CopyFromRecordset rst
Run Code Online (Sandbox Code Playgroud) 我刚开始学习VB和Visual Studio,我遇到了一个问题.我花了大部分时间试图找到答案,我有一种可怕的感觉,它会变得非常简单,我已经看过了.
我正在使用Visual Studio 2010中的WPF,并且当点击一个按钮时我试图在主窗口上动态创建一个按钮(我知道,我读过的所有内容都告诉我这是非常基本的!)这是一个经过编辑的片段我写的代码:
Imports System.Data.OleDb
Imports System.Windows.Forms
Imports Excel = Microsoft.Office.Interop.Excel
Class MainWindow
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles edit.Click
...
Dim newButton As New Button
newButton.Text = "New Button"
newButton.Top = 200
newButton.Left = 20
Me.Controls.Add(newButton)
...
End Sub
Run Code Online (Sandbox Code Playgroud)
在我看来,这看起来非常简单和正确,但我收到一个错误:
"'Controls'不是'myApp.MainWindow'的成员."
有没有人遇到过这个或知道问题是什么?抱歉,如果这确实是一个简单的修复:)