Excel vba的时候一直抱运行时错误‘1004’,如何修改,ActiveSheet.Shapes(picture_name).Select这句之后出错的 [问题点数:50分]

Bbs1
本版专家分:0
结帖率 0%
Bbs1
本版专家分:0
帮忙解决VBA中“运行时错误1004”问题
各位大大虾,rnrn我在EXCEL中通过VBA来做一个 “有条件插入一单元格” 的程式,编码如下。 运行时,前面都没问题,但是过了大概200多行,会显示一个错误信息“<em>运行时错误</em><em>1004</em>”。 若是我在编码中加入我下面注释中的一段,则错误倒是不会有了,但是他开始一行一保存,自然速度乌龟爬了。求助各位大大有什么良方妙药解决。rn==========================================================rnDim MYLINE As LongrnrnPrivate Sub CommandButton1_Click()rnrnWorksheets("sheet1").ActivaternrnFor MYLINE = 133 To Worksheets("sheet1").UsedRange.Rows.Countrnrn If Worksheets("sheet1").Cells(MYLINE, 15).Value = "-" Thenrn Worksheets("sheet1").Cells(MYLINE, 16).Activatern ActiveCell.Insert (xlShiftToRight)rnrnrn 'On Error GoTo Arn 'A:rn 'ActiveWorkbook.Savern rn End IfrnrnNext MYLINErnrnEnd Subrn==========================================================rnrn<em>运行时错误</em> <em>1004</em>:rn为了防止数据丢失,MICROSOFT EXCEL 不能移去工作表中的非空白单元格。请删除或清除数据右侧和下方的单元格,然后选定单元格A1,保存工作簿以重置活动单元格。或者,将数据一到新的位置后再试。rn
求助VBA,翻译成VC。语句为: ActiveSheet.Shapes("Line 1").Select
求助VBA,翻译成VC。语句为: ActiveSheet.Shapes("Line 1").Selectrnrn我用VC实现对EXCEL操作。rnrn现在需要将一条带箭头的线选中,并对其属性进行<em>修改</em>。
EXCEL VBA 语句出错
在下面红色那行报错,百思不得其解,请大家赐教rnrnPrivate Sub CommandButton2_Click()rn If TextBox2.Text <> "" And TextBox3.Text <> "" Thenrn Dim cn As New ADODB.Connectionrn Const constr = "provider=MSDAORA.oracle;data source=AAA;user id =AAA;password=AAA;"rn cn.Open constrrn cn.Execute [color=#FF0000]"insert into <em>vba</em> (a,b) values ("&textbox2.Text&","&textbox3.Text&")"[/color]rn MsgBox "insert ok"rn cn.Closern cn = Nothingrn End IfrnEnd Sub
external.menuArguments.document.documentElement.innerHtml 这句一直出错:缺少对象
rnrn<em>这句</em><em>一直</em><em>出错</em>:缺少对象rnset ddd = external.menuArguments.document.documentElement.innerHtmlrnrn发现脚本真是麻烦... 郁闷...rnrn如果只是:rnset ddd = external.menuArguments.document.documentElementrnrn结果是:[object]rnrn我是想要源代码
VBA:运行时错误:“9” 下标越界
[img=https://img-bbs.csdn.net/upload/201305/20/1369048172_509332.jpg][/img]rnrn然后d4的item应该和d1一样的,为什么d4出现的确是startT和endT的? 下面黄色句子出现下标越界错误rn[img=https://img-bbs.csdn.net/upload/201305/20/1369048324_187009.jpg][/img]rnrnrnPrivate Sub CommandButton1_Click()rnDim i As Integer, j As Integer, a As Integer, b As IntegerrnDim arrA(1 To 60) As Double, arrB(1 To 60) As Double, arr, arr1, arr2rnDim arrC(1 To 60) As DoublernDim d1 As New Dictionary, d2 As New DictionaryrnDim d3 As New DictionaryrnDim d4 As New Dictionaryrn'Dim p As IntegerrnrnDim StartT As Date, endT As Daternrn Application.DisplayAlerts = Falsern Application.ScreenUpdating = Falsernarr = Sheets("Jan").Range("A5:AJ" & Sheets("Jan").Range("A65536").End(xlUp).Row)rnarr1 = Sheets("Jan").Range("AK2:AM" & Sheets("Jan").Range("AK2").End(xlDown).Row)rnarr2 = Sheets("Jan").Range("A5:AF" & Sheets("Jan").Range("A65536").End(xlUp).Row)rnrnSet d1 = New DictionaryrnSet d2 = New DictionaryrnSet d3 = New DictionaryrnSet d4 = New DictionaryrnrnFor i = 2 To UBound(arr)rn If Not d1.Exists(arr(i, 1)) Thenrn d1(arr(i, 1)) = irn End IfrnNextrnrnFor i = 2 To UBound(arr1)rn If Not d2.Exists(arr1(i, 1)) Thenrn d2(arr1(i, 1)) = irn End IfrnNextrnrnFor i = 2 To UBound(arr2)rn If Not d4.Exists(arr2(i, 1)) Thenrn d1(arr2(i, 1)) = irn End IfrnNextrnrnFor i = 1 To 6rn If Not d2.Exists(arr1(i, 3)) Thenrn d3(arr1(i, 3)) = 0rn End IfrnNextrnrn StartT = Cells(17, 37)rn endT = Cells(17, 38)rn For j = 2 To UBound(arr, 2)rn For i = d1(StartT) To d1(endT)rn If IsNumeric(arr(i, j)) Thenrn If Not d2.Exists(arr(i, 1)) And Not Weekday(arr(i, 1)) = 1 And Not Weekday(arr(i, 1)) = 7 Thenrn arrA(j) = arrA(j) + arr(i, j) + 8rn arrB(j) = arrB(j) + arr(i, j)rn Elsern arrA(j) = arrA(j) + arr(i, j)rn arrB(j) = arrB(j) + arr(i, j)rn End Ifrn rn Elsern If d3.Exists(arr(i, j)) Thenrn d3(arr(i, j)) = d3(arr(i, j)) + 1rn End Ifrn End Ifrn Nextrn Nextrn rn For j = 2 To UBound(arr2, 2)rn For i = d4(StartT) To d4(endT)rn [color=#FFCC00]If IsNumeric(arr2(i, j)) Then[/color] If Not d2.Exists(arr2(i, 1)) And Not Weekday(arr2(i, 1)) = 1 And Not Weekday(arr2(i, 1)) = 7 Thenrn arrC(j) = arrC(j) + arr2(i, j) + 8rn Elsern arrC(j) = arrC(j) + arr2(i, j)rn End Ifrn End Ifrn Nextrn Nextrnrn Cells(17, 40) = Application.Sum(arrC())rn Cells(15, 40) = Application.Max(arrB())rn Cells(15, 39) = Application.Sum(arrA())rn Cells(2, 40).Resize(d3.Count) = Application.Transpose(d3.Items)rn rn Set arr = Nothingrn Set arr2 = Nothingrn Set arr1 = Nothingrn rn Application.DisplayAlerts = Truern Application.ScreenUpdating = TruernEnd Sub
VBA 运行时错误‘6’,溢出
我从数据空中间查询了近7W的数据,向工作表里面插入数据,每行插入9个,循环插入,在插入到工作表里面的<em>时候</em>,当插入到32767行的<em>时候</em>提示溢出,溢出的原因是列变成了10列rn部分代码如下rnDo While Not rs.EOFrn For j = 0 To UBound(head)rn mySheet.Cells(curRow, j + 1) = rs(head(j))rn Next jrn curRow = curRow + 1rn n = n + 1rn rs.MoveNextrn If n > 65535 Thenrn i = i + 1rn If Not SheetExists(objname & i) Thenrn Call CreateSheet(objname, i)rn End Ifrn Set mySheet = Worksheets(objname & i)rn mySheet.Cells.Clearrn Call showhead(mySheet, head)rn curRow = 2rn n = 0rn End Ifrn Looprn其中UBound的最大值是8,但是当curRow为32767的<em>时候</em>,提示溢出,看j编程了9rn请教怎么解决问题。
如何修改这句语句?
public class mrnrn private string a1;rn private string a2;rn private string a3;rnrn public string A1rn rn get return a1;rn set a1 = value;rn rn rn public string A2rn rn get return a2;rn set a2 = value;rn rnrn public string A3rn rn get return a3;rn set a3 = value;rn rnrnrn/*===============================*/rnC#中<em>如何</em><em>修改</em>成下面的方式:rnfor (int i = 0; i < 2; i++)rnrn s = s + m.A(i); //这里怎么<em>修改</em>。。rnrn
Excel VBA/Excel VBA
Excel VBA/Excel VBA/Excel VBA/Excel VBA
求教:excel VBA 修改时间问题
正常打开<em>excel</em>文件后做了一些操作,然后关闭文件,不保存<em>修改</em>,但是这样操作会改变<em>excel</em>的<em>修改</em>时间,我想不改变<em>修改</em>时间. 请问这个要怎么处理?
运行时错误1004 类worksheet的paste方法无效
我想把剪贴板的东西全拷到一个<em>excel</em>文件里再做些处理,录制了宏,结果运行到第一句就出现了标题的错误。宏的代码如下: ActiveSheet.Pastern ActiveSheet.Pastern ActiveWindow.ScrollRow = 129rn ActiveWindow.ScrollRow = 128rn ActiveWindow.ScrollRow = 127rn ActiveWindow.ScrollRow = 125rn ActiveWindow.ScrollRow = 124rn ActiveWindow.ScrollRow = 122rn 。。。。。rn运行到第一行就<em>出错</em>了,高手指点一下吧呵呵
帮手把跟这句sql把把脉,select into excel表的时候出错 (在线等)
DoCmd.SetWarnings FalsernDoCmd.RunSQL "SELECT 型号,A2,废品,a2+废品 as 合计,a2占有率,夹具,面数,备注 INTO [Excel 8.0;database=" & output_path & " ]." & sheetname & " FROM 最终最终日报表;"rnDoCmd.SetWarnings Truern运行到这里的<em>时候</em>报<em>运行时错误</em>3067 查询输入必须包含至少一个表或查询,我可以肯定‘最终最终日报表’这个查询是存在的,output_path 是通过一个通用对话框获得的,sheetname从一个输入框获取。rn有人碰到过这样的问题吗?
如何解决vba中的运行时错误9
运行时 worksheet("resume").<em>select</em>时出现rnrnrn<em>运行时错误</em> 9rn数组索引不在使用范围内rnrn高手帮忙啊,找了一天的错误不知道错在哪里,拜托了
VBA 调试“运行时错误 1004 ,指定值超出范围”。这个该如何解决,谢谢!
[img=https://img-bbs.csdn.net/upload/201805/31/1527742212_43547.jpg][/img][img=https://img-bbs.csdn.net/upload/201805/31/1527742219_870030.jpg][/img]
Excel vba实例 Excel vba
Excel <em>vba</em> Excel <em>vba</em>EXCEL实现动画的四种实例.RAR
如何解决 Clipboard.GetDataObject()'这句出错
从AxMSChart复制图象到剪贴板然后在粘贴到PictureBox,出现错误,请帮忙,代码如下:rnAxMSChart1.EditCopy() '复制图象到剪贴板,手工在EXCEL中可以粘贴rn Dim data As IDataObject'声明rn data = Clipboard.GetDataObject()'<em>这句</em><em>出错</em>rn If (data.GetDataPresent(DataFormats.Dib)) Thenrn Me.PictureBox1.Image = data.GetData(DataFormats.Dib)rn End Ifrnrnrn错误信息如下:rnrn检测到 FatalExecutionEngineErrorrnMessage: 运行库遇到了错误。此错误的地址为 0x7a005c3d,在线程 0xc98 上。错误代码为 0xc0000005。此错误可能是 CLR 中的 bug,或者是用户代码的不安全部分或不可验证部分中的 bug。此 bug 的常见来源包括用户对 COM-interop 或 PInvoke 的封送处理错误,这些错误可能会损坏堆栈。
excel vba excel vbaexcel vba
不错的东西<em>excel</em> <em>vba</em><em>excel</em> <em>vba</em><em>excel</em> <em>vba</em><em>excel</em> <em>vba</em>不错的东西不错的东西不错的东西不错的东西
我子在VBA编程操作EXCEL时,遇到“运行时错误1004’,不能取得类Range的specialcell属性”的错误,如何解决呀?
我子在VBA编程操作EXCEL时,当单元格处于编辑状态时,使用specialcell的属性时就会报“<em>运行时错误</em>‘<em>1004</em>’,不能取得类Range的specialcell属性”的错误,<em>如何</em>解决呀?
如何修改这句SQL,急!!
<em>select</em> b.* from R_jobsclass a, R_jobs b where b.zt=0 and (DATEDIFF(day, b.tjsj, GETDATE()) and a.Jobscode=b.Selectedjobrnrn而结果就是符合以上条件的都一起按照order by b.tjsj desc显示出来!rn
vbs调用EXCEL时候出错
想写一个VBS调用EXCEL,先打开EXCEL再对里面的内容进行处理。主要是调用DATA-》TEXT TO COLUMNS,再把那个WIZARD走完,就这样子。VBS调用到一半的<em>时候</em>就是刚把那个WIZARD调出来就停在那里,后面的语句都没执行,报个‘被呼叫方拒绝接收呼叫’的错误。rnSet <em>excel</em>App = CreateObject("Excel.Application")rnSet workSheet = <em>excel</em>App.Workbooks.Open("笑嘻嘻.xls").ActiveSheetrn<em>excel</em>App.Visible = Truern<em>excel</em>App.sendkeys "+^end"rn<em>excel</em>App.sendkeys "%D"rn<em>excel</em>App.sendkeys "TAB"rn<em>excel</em>App.sendkeys "TAB"rn<em>excel</em>App.sendkeys "TAB"rn<em>excel</em>App.sendkeys "TAB"rn'<em>excel</em>App.sendkeys "TAB"rn<em>excel</em>App.sendkeys "ENTER"rn'WScript.sleep 1000rn<em>excel</em>App.sendkeys "TAB"---执行到这里就停住,上面都是可以的。rn<em>excel</em>App.sendkeys "TAB"rn<em>excel</em>App.sendkeys "ENTER"rn'WScript.sleep 1000rn<em>excel</em>App.sendkeys "ENTER"
为什么这句抱错,弹出对话框的问题
INT WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)rnrn WCHAR wName[100]=L"OK";rn MessageBox( 0, wName, "Info", MB_OK );rn return 0;rnrnrn<em>这句</em>会报错rnd:\ProjectVC\EmptyD3DTest1\EmptyD3DTest1.cpp(16) : error C2664: “MessageBoxA” : 不能将参数 2 从“WCHAR [100]”转换为“LPCSTR”rn 与指向的类型无关;转换要求 reinterpret_cast、C 样式转换或函数样式转换rn
如何这句VBA翻译成VC?
CComQIPtr spBtn1(Ctrl); rn CComQIPtr spApp; rn CComQIPtr spDoc; rn CComQIPtr spInS; rn CComVariant vtClassType; rn CComBSTR bsClassType("Seal.SealCtl.1"); rnrn vtClassType=bsClassType; rn spApp=spBtn1->GetApplication(); rn我把自己做的一个控件已经插入word中了,现在想把控件显示在word的文档上方。rnrn录制的宏中是这样写的:Selection.ShapeRange.WrapFormat.Type = 3rn Selection.ShapeRange.ZOrder 4rn请问把这两句VBA翻译成VC怎么写?
jsp文件验证登录的时候出错一直空白
String username = request.getParameter("username");rn String password = request.getParameter("password");rn rn %>rn rn rn rn rn rn rn 账户密码错误,请重新登录rnrn <%rn rnrn catch (Exception e) rn e.printStackTrace();rn rn rn rn %rn这个<em>一直</em>显示的是空白页面,,在数据库中可以查到信息。不知道为什么。求助~~~~~~~~~~~~~~~
这句SELECT哪里错了?
rnSELECT * FROM FAMILY RIGHT JOIN ADDDATA ON FAMILY.人员编号=ADDDATA.人员编号 WHERE FAMILY.人员编号 IS NULLrnrn目的是查询ADDDATA表中人员编号在FAMILY表中不存在的记录,可明明是有不一样的,可查询的结果什么都没有?rnrn两表结构相同.
为什么这句SELECT不行???
<em>select</em> * from [INVOICE$] where IsDate([日期]) and DateDiff("m", [日期], now) > 1;rnrn我用ADOQuery去查询EXECL的表格,其他一般的查询都行(例如<em>select</em> * from [INVOICE$])。rnrn就上面一句不行;我的意图是想查找[日期]字段里的内容是否为合法日期,如果是的话,就提取[日期]里的月数据和现在的月比较(距离当前月超过一个月的),并得到数据。
看看这句select语句
cstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.MDB;Persist Security Info=False"rnadoconn.Open cstringrnadors.Open "<em>select</em> * from zuozhe into table aa.dbf", cstring, 3, 3rnrn为什么说<em>select</em>语法错误 是否因为我没预先建立aa.dbf
这句Select语句如何写?
现有5张表,表结构都相同,Tab1,Tab2,Tab3,Tab4,Tab5,现要查询在一段时间内的记录rnSelect * From Tab1,Tab2,Tab3,Tab4,Tab5 Where Tab1.Date='2001-05-10' and rnTab2.Date='2001-05-10' and Tab3.Date='2001-05-10' and Tab4.Date='2001-05-10' and Tab5.Date='2001-05-10'rn这样查的话要是某张表中在这个日期没有记录,将不能查出其它表中的记录,用or也不行rn小弟不知<em>如何</em>写这条查询语句,请大家帮帮忙!!!!
这句select哪里错了!!
Adodc1.RecordSource = "<em>select</em> homeinfo.家庭住址,companyinfo.单位名称 from homeinfo,companyinfo where homeinfo.姓名 = all(<em>select</em> personinfo.姓名 form personinfo where 性别 like '" & Trim(keytxt) & "' ) and companyinfo.本人姓名 = all(<em>select</em> personinfo.姓名 form personinfo where 性别 like '" & Trim(keytxt) & "') "rn
这句sql语句出错如何修改才变正确?
<em>select</em> name,(case xtype when 56 then 'int('+length+')' when 61 then 'datetime' rnwhen 231 then 'nvarchar('+length+')' when 167 then 'varchar('+length+')' rnwhen 52 then 'smallint('+length+')' when 108 then 'numeric('+length+')' end) as xtype1 from syscolumns rnwhere id=(<em>select</em> max(id) from sysobjects where xtype='u' and name='ABC') order by namernrn报错:Conversion failed when converting the varchar value 'int(' to data type smallint.rnrn目的是在系统表里面查询指定表的字段类型,然后转换显示出来,如类型为56就转换成int(4),不知道应该怎样写。
EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门
EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门
excel运行时错误
设定一个固定时间由系统自动运行<em>excel</em> rnrn提示错误 <em>运行时错误</em>‘<em>1004</em>’rn方法‘Range’作用于对象‘_Global’时失败rnrn调试的<em>时候</em><em>出错</em>的语句 rn Range(RangeStr).Selectrnrnrn如果手动打开运行宏就一点问题都没有。rnrn试过设置<em>excel</em>的宏的安全性,已经设置到最低了。
好想,累的时候抱抱你~
拥抱,是最直白的眷恋和深情 语言的力量有<em>时候</em>很苍白 再多安慰的话 也比不上一个拥抱让人心安 累的<em>时候</em>,不需要有多浪漫 一个温暖的拥抱 足以胜过千言万语 当一个人愿意 从背后温柔地抱着你的<em>时候</em> 代表着TA把自己的心都给了你 那拥抱里,有着太多太多的爱 还有太多太多无法言说的脆弱 吵架后的拥抱,代表妥协与原谅 相逢后的拥抱,代表思念与激动 离别前的拥抱,代表不舍与期待 拥...
VBA控制excel在关闭时候弹出对话框??
请教高手,<em>如何</em>能让<em>excel</em>在关闭的<em>时候</em>弹出对话框 MsgBox "OK" rnrn有类似于 ThisWorkBook 里 Private Sub Workbook_Open() 相反的东西吗??rn谢谢了~~
如何修改select的样式
页面引入: &amp;lt;link rel=&quot;stylesheet&quot; href=&quot;common/chosen/chosen.css&quot;&amp;gt; &amp;lt;script type=&quot;text/javascript&quot; src=&quot;common/jquery-1.11.0.min.js&quot;&amp;gt;&amp;lt;/script&amp;gt; &amp;lt;script type=&quot;text/java
急,修改Excel文件出错!!!!!!!
代码如下rn rnrnServer.CreateObject 失败 rnrn/bmis/p/t.asp,行24 rnrn无效的 ProgID。 若要获取关于此消息的更多的信息,请访问 Microsoft 联机支持站点: http://www.microsoft.com/contentredirect.asp 。 rn
VBA 取得Excel单元格内容的时候遇到乱码问题
在Excel中看到的是正常的中文 程序管理rn但是使用Cells(3,4).text,value,FormulaR1C1取得的均为 程序管理???????rn赋值给byte数组,发现后面的几位都是 (11 32 )rn由于不知道字符串(正常)的长度,有可能是 "真的不错的程序管理"rn<em>如何</em>才能取得正常的字符串呢?rn
VBA打开出错excel文件时的处理
我用<em>excel</em>打开正确的文件时没问题,但是当我用这个方法打开个本来用<em>excel</em>就不能打开的文件时就会报错,rn虽然可以用on error resume next来屏蔽掉,但是函数结束后进程中的隐藏打开的<em>excel</em>并没有被关闭。求高人rn里面很多代码都没用,就是打开个用<em>excel</em>都打不开的<em>excel</em>文件时怎么处理。rnFunction CheckFileHead(ArrStrOpenFileHead() As String) As Booleanrn Dim StrFilePath As String, IHeadLineNum As Longrn Dim WbSource As Workbook, RngTitle As Rangern Dim RngCell As Range, StrTemp As Stringrn Dim IArrLen As Long, StrSourceSheetName As Stringrn Dim ObjEx As Object, IsNoThatSheet As Booleanrn rn CheckFileHead = Falsern StrFilePath = GetStrFilePath()rn IHeadLineNum = GetIHeadLineNum()rn StrSourceSheetName = GetSourceSheetName()rn Application.ScreenUpdating = Falsern '<em>excel</em>を始動rn Set ObjEx = CreateObject("Excel.Application")rn Set WbSource = ObjEx.Workbooks.Open(StrFilePath, True, True)rn ReDim ArrStrOpenFileHead(0 To 0)rn 'シートの存在チェックrn IsNoThatSheet = Falsern rn If CheckOutSideSheet(WbSource, StrSourceSheetName) Thenrn StrSourceSheetName = GetSourceSheetName()rn Set RngTitle = WbSource.Worksheets(StrSourceSheetName).Rows(IHeadLineNum).Cellsrn IArrLen = 1rn With RngTitlern 'セルは空以外の場合、配列を保存するrn For Each RngCell In RngTitlern StrTemp = RngCell.Textrn If StrTemp <> "" Thenrn ReDim Preserve ArrStrOpenFileHead(0 To IArrLen)rn ArrStrOpenFileHead(IArrLen) = StrTemprn IArrLen = IArrLen + 1rn End Ifrn Nextrn End Withrn Elsern IsNoThatSheet = Truern rn End Ifrn WbSource.Close (False)rn ObjEx.Quitrn Application.ScreenUpdating = Truern 'シート存在しないrn If IsNoThatSheet Thenrn MsgBox (GetMsg("MSG081"))rn Exit Functionrn End Ifrn 'ファイルヘッダ列数が4以下rn If UBound(ArrStrOpenFileHead) < 4 Thenrn MsgBox (GetMsg("MSG037"))rn Exit Functionrn End Ifrn rn CheckFileHead = TruernEnd Function
修改数据库记录一直报语法出错
我的数据库字段有bianhao,date,time等,bianhao是我的关键字,我要根据编号<em>修改</em>date;在数据库中bianhao是int型,在本程序中的bianhao变量为字符串,该值从另一个程序传过来的.下面是我的程序,请大虾进来看看rnrnimport java.awt.*;rnimport java.awt.event.*;rnimport javax.swing.*;rnimport java.sql.*;rnimport javax.swing.table.*; rnimport java.util.*; rnpublic class Modrec1 extends JFrame implements ActionListenerrnrn private Connection co;rn private JPanel pane1 = null;rn private JPanel pane2 = null;rn private JPanel pane3 = null;rn private JButton insert = new JButton("<em>修改</em>");rn private JTextField t1=new JTextField();rn private JTextField t2=new JTextField();rn private JTextField t3=new JTextField();rn private JTextField t4=new JTextField();rn private JTextField t5=new JTextField();rn private JTextField t6=new JTextField();rn private JTextField t7=new JTextField();rn private JTextField t8=new JTextField();rn private JTextField t9=new JTextField();rn private JTextField t10=new JTextField();rn private JTextField t11=new JTextField();rn private JTextField t12=new JTextField();rn private JTextField t13=new JTextField();rn private String bianhao;rnrn rn private Container c;rn public Modrec1(Connection con2,String cellValue2)rn rn JFrame frame = new JFrame("按日期");rn pane1 = new JPanel(null); rn pane2 = new JPanel(null); rn pane3 = new JPanel(null); rn co=con2;rn bianhao=cellValue2;rn bianhao1=Integer.parseInt(bianhao);rn rn c=getContentPane();rn pane1.add(new JLabel("请填写需要<em>修改</em>的内容"));rn JLabel l1=new JLabel("*请输入日期(20080101)",SwingConstants.LEFT);rn rn l1.setBounds(12,12,175,30);rn pane2.add(l1);rn t1.setBounds(190,12,175,30);rn pane2.add(t1);rn pane2.add(insert);rn insert.setBounds(400,300,100,50) ; rn c.add(pane1,BorderLayout.NORTH);rn c.add(pane2,BorderLayout.CENTER);rn c.add(pane3,BorderLayout.SOUTH); rn insert.addActionListener(this);rn rn setSize(1280,960);rn setVisible(true); rn rn public void actionPerformed(ActionEvent e)rn rn String date1;rn rn rn tryrn rn rn rn if (!(t1.getText().equals("")))rn rn Statement stmt=co.createStatement(); rn [color=#FF0000] date1=t1.getText();rn PreparedStatement pstmt=co.prepareStatement("update table1 set date = ? where bianhao = ?");rn rn pstmt.setString(1,date1);rn rn pstmt.setString(2,bianhao);rn rn pstmt.executeUpdate();[/color] pstmt.close();rn rn rn rn catch(SQLException e3)rn rn JOptionPane.showMessageDialog(null,"数据库插入失败"); rn e3.printStackTrace();rnrn rn rn rn rnrnrn标红的地方<em>出错</em>,如下:rnrnjava.sql.SQLException: [Microsoft][ODBC Microsoft Access Driver] UPDATE 语句的语rn法错误。rn at sun.jdbc.odbc.JdbcOdbc.createSQLException(Unknown Source)rn at sun.jdbc.odbc.JdbcOdbc.standardError(Unknown Source)rn at sun.jdbc.odbc.JdbcOdbc.SQLExecute(Unknown Source)rn at sun.jdbc.odbc.JdbcOdbcPreparedStatement.execute(Unknown Source)rn at sun.jdbc.odbc.JdbcOdbcPreparedStatement.executeUpdate(Unknown Source)rnrn at Modrec1.actionPerformed(Modrec1.java:86)rn
VBA 1004错误 未将对象引用到实例
[code=VB]rnPublic Sub Exc()rnDim ws As WorksheetrnDim rs As ADODB.RecordsetrnDim cn As New ADODB.ConnectionrnDim sql As StringrnDim strCn As StringrnSet ws = Sheets("Sheet1")rnstrCn = getStrCn()rncn.Open strCnrnsql = "insert into QTab([TStr]) values('" + CStr(ws.Cells(a, 2)) + "')"rncn.Excute (sql)rncn.ClosernEnd Sub rn[/code]rnrn错误行:sql = "insert into QTab([TStr]) values('" + CStr(ws.Cells(a, 2)) + "')"
access vba 输出 excel 时候如何格式化导出的数据
比如:access表里面的数据是 名称,数值,日期rnrn载用代码实现输出的<em>时候</em> <em>如何</em>格式化 rnrn数值 999,999,999rn日期 yyyy年mm月dd日rnrn这样的格式<em>如何</em>实现那
请问如何vba代码和excel文件分离?使vba代码重复使用的时候可以便于修改
现在有个改造的项目,小弟对<em>vba</em>不熟悉,请大家帮帮忙。rn已经有了一些<em>vba</em>代码,下载想在储存<em>excel</em>的<em>时候</em>将<em>excel</em>文件与<em>vba</em>代码分开储存。因为有好多个<em>excel</em>文件都用到这些代码,目的就是想在<em>修改</em><em>vba</em>代码的<em>时候</em>,不用一个一个文件去<em>修改</em>,只要<em>修改</em>一次,所有的<em>excel</em>文件都会被<em>修改</em>。rn大家有什么好的思路,或方法吗?
5, excel vba 修改单元格里的数据
通过上节学习,我们己经学会了往一个单元格里写入数据,接下来,我们整合前两节的内容. 把一个单元格的数据进行<em>修改</em> 我们看到,在单元格 A1中,有一个数据100, 接下来我们要给它后面加上:美元 .  1,打开<em>vba</em>编辑界面,复制粘贴以下代码: Public Sub 点点didi5()    A = Range("A1").Value    Range("A1").V
10, excel vba 修改单元格的颜色
 看数据总是很累的,一堆密密麻麻的.哪个数据才是我想要的呢? 比如一列里有各种各样的数据,我想知道哪些单元格的数据大于11的?又比如一列里有各种各样的数据,我想知道哪些单元格的数据大于111的?这里比较好的一种方法就是给单元格加一些色彩.看起来更直观.又或者有些人比较好色.比如觉得看绿色让他很舒服.也可以设置单元格的颜色了.在<em>vba</em>中一种颜色都对应着一个数字或者说序列吧. 比如红色. 它对应的序列...
VBA修改EXCEL单元格值的问题?
比如有一C列数值a1,a2,a3....,需将大于2.00%的所有表格的值a<em>修改</em>为小于2.00%,(B列数值为b1,b2,b3.....;A列为Total1,total1,total2....):rnrna,b为百分数,Total为整数,D列是真正要<em>修改</em>的数值!rnif 2.00%10% then [1-(a-10%)-b@]*total@=D@数值rnrn由于涉及列单元格太多,我不知<em>如何</em>给某一列单元格设置变量,赋值,然后带入公式计算,把一小数赋给单元格等等,所以自己写的晕晕乎乎,没办法实行我要的功能,在这恳请各位高手指点一二?谢谢(给源码者我给追加分)
excel中VBA的模块名怎么修改
例:rn*模块rn*模块1rn改为:rn*modulern*module1rnrn谢谢关注
在Excel的VBA编程中,如何自动保存Excel!
我写了一个窗体,让Excel在启动的<em>时候</em>开始运行,结束运行的<em>时候</em>就自动关闭Excel,而不弹出保存对话框!rn另外一个是老问题了,就是<em>如何</em>在启动的<em>时候</em>不弹出Excel的安全提示!
EXCEL VBA
可以对系统进行安全检测,对系统进行必要的安装驱动
Excel & VBA
博文链接:https://linxizeng.iteye.com/blog/103238
Excel VBA
ExcelVBA 操 作 MySQL
VBA FOR EXCEL
在VB.NET中,我用下面的代码向TXT文件中写数据: rn Try rn If Dir.Exists(Application.StartupPath & "\DataFile") = False Then rn Dir.CreateDirectory(Application.StartupPath & "\DataFile") rn End If rn If FileOutput Is Nothing Then rn FileOutput = New FileStream(Application.StartupPath & "\DataFile\" & ItemStr & ".txt", FileMode.Create, FileAccess.Write) rn End If rn If BinaryOutput Is Nothing Then rn BinaryOutput = New BinaryWriter(FileOutput) rn End If rn Dim i As Integer rnrn Try rn For i = 0 To ylist.Count - 1 rn FileOutput.Seek(i * 20, SeekOrigin.Begin) rnrn BinaryOutput.Write(Convert.ToSingle(xlist(i))) rn BinaryOutput.Write(Convert.ToSingle(ylist(i))) rn Next rn Catch ex1 As FormatException rn MsgBox(ex1.Message) rn End Try rn Catch ex2 As IOException rn MsgBox(ex2.Message) rn Catch ex As Exception rn 'MsgBox(ex.Message) rn Finally rn FileOutput.Close() rn BinaryOutput.Close() rn If (FileOutput Is Nothing) = False Then rn FileOutput = Nothing rn End If rn If (BinaryOutput Is Nothing) = False Then rn BinaryOutput = Nothing rn End If rn End Try rnrnrn用VB.NET读出上面方法写入的数据的函数: rnrnTry rn If (FileInput Is Nothing) = False Then rn FileInput = Nothing rn End If rn If (BinaryInput Is Nothing) = False Then rn BinaryInput = Nothing rn End If rn If FileInput Is Nothing Then rn FileInput = New FileStream(Application.StartupPath & "\DataFile\" & FileName & ".txt", FileMode.Open, FileAccess.Read) rn End If rn If BinaryInput Is Nothing Then rn BinaryInput = New BinaryReader(FileInput) rn End If rn Catch ex As IOException rn MessageBox.Show(ex.Message & vbCrLf & vbCrLf & "Open File " & FileName & " Failed!", "Open File Failed", MessageBoxButtons.OK, MessageBoxIcon.Error) rn End Try rnrn Dim i As Integer rn For i = 0 To Number_Of_Records - 1 rn FileInput.Seek(i * 20, SeekOrigin.Begin) rn xredrawarray(i) = BinaryInput.ReadSingle() rn yredrawarray(i) = BinaryInput.ReadSingle() rn Next rnrn FileInput.Close() rn BinaryInput.Close() rnrnrn这些方法都OK. rnrn但现在是想在EXCEL中导入或读出用我那种方法写入的TXT数据文件. 然后在EXCEL中利用那些数据制图. rn我想应该是可以读出的. 如果用VBA, 我又不会,不知道该怎么写. rnrn那位大师请帮个忙解决此问题. 100分相送. 第二天还可跟我一送分贴,我再加100分 rn先解决先得rnrn谢谢!
vba Excel???
UserForm中<em>如何</em>设置Text框的焦点,SetFocus不行!!!
Excel VBA
用代码可不可以<em>修改</em>透视表里的字体样式(透视表已经套用表格样式),如字休颜色,使用另外一种字体,字休大小等 等!
excel vba
我用<em>excel</em>.querytalbe来读取sql数据rn然后调用<em>excel</em>.querytalbe.refresh将数据刷新到<em>excel</em>页面上,rn我想知道这个刷新动作何时算完成,也就是数据全部导出来rn(在刷新的<em>时候</em>他继续运行后面的代码,所以我后面的代码不好对导出来的数据进行操作)rn有没有什么方法能计算出刷新时间,或判断当前页面刷新完毕rn
VBA中如何关闭EXCEL?
在VBA中,我想单击一个按钮后,退出EXCEL,<em>如何</em>实现?rnrn另外,运行时要求我插入光盘加载宏,<em>如何</em>自动加载?
excel如何调用VBA代码
看到<em>excel</em>中呈现了很多表的结构,看到VBA可以编写代码自动生成表结构于是就心动了,幻想如果创表能够自动生成脚步就很棒了。每次看着<em>excel</em>中的表字段,精度,注释。用VBA编写好标准化的代码,可以提高工作效率,发挥<em>excel</em>的开发功能。 打开<em>excel</em> <em>vba</em>编程工具,在ThisWorkbook中添加如下代码: (该代码是用于调用之前写好的VBA代码所用,类似Java用到方法的定
Excel VBA如何标识一列?
Excel 的工作表是sheetrn单元格是cellrn那么列,该怎么标识?
VBA如何实现远程访问Excel?
各位好:rn我单位的内部网之间可以互相访问,如下的程序能否实现远程访问;还是要用其它方法?请帮忙,谢谢!rnpublic sub remoteFile()rndim a as string, b as worksheetrn a ="\\100.100.100.100\e:\file\data.xls" rn Workbooks.Open Filename:= a '打开工作簿rn Set b = Workbooks("data.xls").Worksheets("lab") '打开工作簿下的工作表rnend sub
EXCEL VBA
我需要写一个Function,实现这样的功能,rnFunction Func1( rng As Object ) As Variantrn输入是在单元格上选定的多个整数,例如12个,通过计算会得到四个Double,rn选定B1:B4,键入公式=Func1(A1:A12),在B1到B4得到四个Double的值,该<em>如何</em>实现,谢谢。rn
Excel Vba
我现在已用Vba代码将一副图片装入<em>excel</em>,单无法控制其大小,请问<em>如何</em>解决?
VBA Excel
模块一 Excel对象的基础编程 rn Excel 中的VBA开发环境rn Excel的VBA对象模型rn 通过Application对象控制Excel的全局数据rn 对工作簿Workbook进行编程rn 对工作表Sheet编程rn 使用VBA控制任意的数据区域rn 菜单和图表控制rn <em>如何</em>重复使用和发布VBA代码rn模块二Excel高级业务编程rn Excel内置高级功能讲解rn 使用窗体和控件设计交换界面rn 实现复杂的筛选、排序和查找功能rn 动态图表设计rn 对多个Sheet进行综合数据分析rn 在多个Excel文件之间交互数据rn Excel从Access 数据表中读取数据rn Excel从SQL Server数据表中读取数据rn
VBA异常--运行时错误1004(将一个工作簿拆分多个工作表)
概述: 打算将工作簿拆分多个工作表,抛出异常 原因是这个工作簿中有隐藏的工作表,对于Copy操作,它是不能复制隐藏的工作表的,但是Worksheets是所有工作表的集合(自然有隐藏工作表) 最后的解决办法就是取消隐藏所有工作表,或者进行判断如果是隐藏工作表就过滤掉 if sht.Visible  = True then     执行复制动作 End if  Sub saveT
这句MYSQL为什么出错??
<em>select</em> * from pw_argument where tid in (<em>select</em> bbsid from pw_fav where userid='511264' ) order by istop desc, lastpost descrn请问 这段 在MYSQL里为什么说是语法错误?rnYou have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '<em>select</em> bbsid from pw_fav where userid='511264' ) order by istop rn
这句出错是什么原因??
rnrn我在本机上都可以的,,复制到其它机器上就出问题了!!!
这句出错??
actionlist1.actions[54].tag:=275;rn<em>出错</em>什么:list index out of bounds(54)rn<em>这句</em>会<em>出错</em>吗??rn是不是actionlist1只能最大值为53啊???
为何这句总是出错
">rnrn这个字符串怎样<em>修改</em>?
这句怎么会出错?
请教各位高手:rnPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickrnrnrn Public Sub GetFileByCallFtp() <em>这句</em>怎么会<em>出错</em>,提示语句不能出现在方法体内,rn 请教各位了rnrn
EXCEL VBA 数组下边界总是固定的数值如何自动修改
问题:数组的 UBound(arr) -- '这个数值得到一次值后不会按实际改变,<em>如何</em>处理。怎么上传附件?rn方便请联系QQ1104859173rnrnPrivate Sub CommandButton21_Click()rnDim arr, arrtemprnDim i%, j%, s% '数组用变量rn'************************************** '表三丙汇总数据rnSheets("表三丙").Activatern arr = Sheets("表三丙").Range("A1:L" & [c3000].End(xlUp).Row)rn MsgBox UBound(arr) '这个数值不会按实际改变,显示1543,实际是1422rn ReDim arrtemp(1 To UBound(arr), 1 To 12)rn s = 0rn For i = 8 To UBound(arr) '数据区域从第8行开始'rn If IsNumeric(arr(i, 5)) = True And arr(i, 5) > 0 Then '数量列为数值型且值>0的行选中rn s = s + 1rn For j = 2 To 12 'A列为原表序号不选择rn arrtemp(s, j) = arr(i, j)rn arrtemp(s, 1) = s '这列为新编序号rn Nextrn End Ifrn's 取得有效数据行数rn NextrnSheets("表三丙").Range("a1675").Resize(s, 12) = arrtemp '从数组粘贴值rn'*************************************rnSheets("表三乙").Activatern arr = Sheets("表三乙").Range("A1:L" & [c3000].End(xlUp).Row)rn MsgBox UBound(arr) '这个数值不会按实际改变,显示1683,实际是1543rn rn ReDim arrtemp(1 To UBound(arr), 1 To 12)rn s = 0rn For i = 8 To UBound(arr) '数据区域从第8行开始'rn If IsNumeric(arr(i, 5)) = True And arr(i, 5) > 0 Then '数量列为数值型且值>0的行选中rn s = s + 1rn For j = 2 To 12 'A列为原表序号不选择rn arrtemp(s, j) = arr(i, j)rn arrtemp(s, 1) = s '这列为新编序号rn Nextrn End Ifrn's 取得有效数据行数rn NextrnSheets("表三乙").Range("a1516").Resize(s, 12) = arrtemp '从数组粘贴值rnrnEnd Sub
这句为什么会出错
int i = 6;rn (i < 0) ? (i++) : (i--);rn System.out.println(i);rn编译的<em>时候</em>说<em>这句</em>有错误“(i < 5) ? (i++) : (i--);”rn难道必须要写成“a = (i < 0) ? (i++) : (i--);”吗?
这句SQL哪里出错
<em>select</em> * from Product where class1Id in (replace(<em>select</em> biaoid from classid where classId=1),'a',',') order by id descrnrnrnrn帮忙看下,谢谢。
为什么这句出错
[code=C/C++]#import "C:\Program Files\Common Files\System\ado\msado15.dll" \ rn no_namespace \rn rename("EOF","adoEOF")[/code]rnrnrn1>d:\visual studio\mfcproject\ado\demo214\demo214\stdafx.h(29) : error C2017: 非法的转义序列rn
为什么这句SQL出错
exec('update xsyjtotalyku_1_admin set ysbl=ltrim(rtrim(cast(cast(100*ysje/xsje as decimal(18,2)) as char(10))))'+''%'')
这句代码为什么出错
我看书上的代码!可是在调试时老是<em>出错</em>,说rn编译器错误信息: BC30456: “Navigate”不是“System.Web.UI.Page”的成员。rnrn代码是:rn行 18: Exit Subrn行 19: End Ifrn行 20: Page.Navigate("show.aspx?name=" & Name.Text)rn行 21: 'Page."show.aspx?name=" & Name.Text)rn行 22: End Ifrn第20行<em>出错</em>!!navigate是用来做什么的?rn另外如果想调用另外一个页面,在ASP.net中应该怎么实现呢!rn谢谢!
选择select时候如何转向
我现在有下面这样的<em>select</em>rnrn类型rn家政----rn 类型1rn 类型2rn 类型3rnrnrn我希望能够选择了一个option后能够导向到一个位置,这个位置是rnwww.web.com/document/2.phprn不知道<em>如何</em>写哈rnrn
select一直运行
我在数据库中运行Select * from A时,<em>一直</em>在运行,却出不来数据,是这个表出问题了吗?如果我点暂停,却可以出来数据,是啥回来.
excel VBA 转换成 Access VBA
有什么工具或者方法能直接转换么? 就是一个<em>excel</em>按钮下的代码转换成access中能用的,谢谢
select 一直返回0
<em>select</em>设置超时时间后<em>一直</em>返回零,是因为每次<em>select</em>后监听的fd_set都被重置,解决方法就是每次重新设置
【Excel VBA】在VBA中调用函数
在VBA代码中直接调用计算数据 EXCEL的表函数也可以直接在VBA中直接调用执行,具体调用格式如下: 调用方法1:变量对象= Application.WorksheetFunction.表函数(表函数参数) 实例:Range("d8") = Application.WorksheetFunction.CountIf(Range("A1:A10"), "B")...
excel操作时ActiveSheet.Shapes(1).Select提示图形被锁定怎么办?
但是ActiveSheet.Shapes.SelectAll则没<em>出错</em>.rnrn现在想选择sheet上的图形,再粘贴到必要的地方.
如何获取修改之后的x
$("#btnAddRow").click(function() rn var x = "" + $("#GridView1").find("tr:last").html() + "";rn $(x).find(":text").each(function() rn $(this).attr("readonly", false).val("");rn );rn $("#GridView1").find("tr:last").after(x);rn );rnrn 如上面所示 x 是获取的一段html的代码,现在这里的x是一段字符串了 里面会存在 <em>select</em> input 等一系列的控件 rn 如果是input【text】的<em>时候</em> 我需要清空text里面的值 ,<em>如何</em>获取<em>修改</em><em>之后</em>的x
这句select该怎么写?
set rs=Server.CreateObject("ADODB.RecordSet") rnrs.open "<em>select</em> * from chuqin1 where riqi=request.form("tnian")+request.form("tyue")+request.form("tri")",conn,1,1 rnrn有问题 rnrn我已经实现了数据库的读和写 rn不过还在完善 rn所以我的CONN创建的对象不会有问题的 rntnian是表单里面的一个列表,内容是类似:2008年 rntyue也是表单里面的一个列表,内容是类似:7月 rntri也是表单里面的一个列表,内容是类似:27日 rnrn选择后提交表单后 rnrequest.form("tnian")+request.form("tyue")+request.form("tri")就是日期2008年7月27日 rnrn现在我想统计数据库中某一天的riqi的记录数,我的问题就是那句<em>select</em>写的有问题 rn高手指点一下我该怎么写那句啊?
修改”为什么有错?">这句“">修改”为什么有错?
我的代码大体如下:rnrnrnrnrnrnrnrn"><em>修改</em>rnrnrn为什么会提示:org.apache.jasper.JasperException: No data foundrn at org.apache.jasper.servlet.JspServletWrapper.service(JspServletWrapper.java:248)rn at org.apache.jasper.servlet.JspServlet.serviceJspFile(JspServlet.java:295)rn。。。。。。。。。。。。。。。rn的错误,rnrn“"><em>修改</em>”rn和rnrn有区别吗?这种方法好像有人试过,为什么我用就不行?rn请教!!!!
请问这句SELECT怎么写?
我现在想从表table中取出根据count字段倒序排序的前3位不同的Name字段的记录。rnrn比如rn[ID] [count] [Name]rn1 6 Timrn2 4 Timrn3 7 Johnrn4 2 Linrn5 5 Johnrn6 1 Simonrnrn取出的结果应为rn[count] [Name]rn7 Johnrn6 Timrn2 Linrnrn请问这样的SQL应该怎么写,我试了好多办法查询出的结果都有Name重复的,用了DISTINCT和TOP也不行,拜求各位!!谢谢!
这句SELECT可以改进吗?
<em>select</em> s2,jjdwz.j3 as s8j2,tmp1.d4 as s9d4,tmp2.d4 as s10d4,tmp3.d4 as s11d4,tmp4.d4 as s12d4rnfrom pjmc rnleft join jjdwz on jjdwz.j1 = pjmc.s8 rnleft join dwmx tmp1 on tmp1.d2 = jjdwz.j1 and tmp1.d1 = pjmc.s9 rnleft join dwmx tmp2 on tmp2.d2 = jjdwz.j1 and tmp2.d1 = pjmc.s10 rnleft join dwmx tmp3 on tmp3.d2 = jjdwz.j1 and tmp3.d1 = pjmc.s11 rnleft join dwmx tmp4 on tmp4.d2 = jjdwz.j1 and tmp4.d1 = pjmc.s12 rnrnrn说明:pjmc 表中有4个单位名称字段,但保存的是单位表dwmx中单位名称的ID值。rnrn<em>select</em>代码 可以改进吗,因为我是连续4个left同一个表。rn
运行时错误‘13’:类型不匹配">acces VBA "运行时错误‘13’:类型不匹配
rn光标停留在 “Set RecSet = Dbs.OpenRecordset(SqlStr)”rnrn具体语句如下:rnSqlStr = "<em>select</em> distinct inst_no from 表1"rnSet RecSet = Dbs.OpenRecordset(SqlStr)rnrn类型定义如下:rnDim Dbs As DatabasernDim RecSet As Recordsetrnrn请问这是怎么原因啊? rnrn
很简单的问题,只因不懂VBA,运行时错误,424
Private Sub ComboBox1_Change()rn rn doTest (Me.ComboBox1)rn rn End SubrnrnPublic Sub doTest(theCombo As ComboBox)rn theCombo.ClearrnEnd SubrnrndoTest(Me.ComboBox1)不能运行,显示<em>运行时错误</em>,424。请问在VBA里怎么传控件的对象
select 出错
SELECT VCH_MasterId AS MasterIDrn ,VCH_No AS [Code]rn ,VCH_Attachment AS AttachmentNumrn rn FROM TBL_Masterrn [b]having MAX(MasterID)< 5[/b]rnrn 错误:rn试图执行的查询中不包含作为合计函数一部分的特定表达式 'MasterID'rnrn如果把黑体部分换成rnwhere MAX(MasterID) < 5 rn错误:rnWHERE 子句 (MAX(MasterID)<5) 中不能有合计函数。rnrn请指正,谢谢rn
这句select语句有错吗?
sql="<em>select</em> * from EmptySalary where No="&session("No")rnaccess数据库 No字段type是数字 session("No")是有值的,为什么去不到记录。rn请大家帮忙
这句select语句怎么写??
数据库中的时间格式如下:“2015-4-14 16:01:33”rn要查询所有“2015-4-14 16:01”的记录rnrndim i_year, i_month, i_day, i_hour, i_minute, i_fznum As Integerrn '定义年/月/日/时/分/分站号rnchoosesql = "<em>select</em> * from fenzhan"rnchoosesql = choosesql & i_fznum '分站号rnchoosesql = choosesql & " where SystemTime like '"rnchoosesql = choosesql & i_year & "-"rnchoosesql = choosesql & i_month & "-"rnchoosesql = choosesql & i_day & " "rnchoosesql = choosesql & i_hour & ":"rnchoosesql = choosesql & i_minute & "*'"rnrn<em>这句</em>话应该怎么写?
select * into t from table抱错
Could not allocate space for object 'dbo.a' in database 'test' because the 'PRIMARY' filegroup is full. Create disk space by deleting unneeded files, dropping objects in the filegroup, adding additional files to the filegroup, or setting autogrowth on for existing files in the filegroup.这是什么意思?rn
atmega8 ad转换程序下载
atmega8 ad转换程序 ,对初学者很有帮助 相关下载链接:[url=//download.csdn.net/download/lihaoyo/2099282?utm_source=bbsseo]//download.csdn.net/download/lihaoyo/2099282?utm_source=bbsseo[/url]
C语言课程设计-通讯录下载
大一C语言课程设计,通讯录C语言源码,包含一个头文件。我以前用的。 相关下载链接:[url=//download.csdn.net/download/adstudy/3833232?utm_source=bbsseo]//download.csdn.net/download/adstudy/3833232?utm_source=bbsseo[/url]
模态分析理论.pdf下载
美国马萨诸塞州洛威尔大学机械工程系模态分析和控制实验室Peter Avitbile编写的Ansys文章,,谭祥军翻译的,学习Ansys的同学很有用. 相关下载链接:[url=//download.csdn.net/download/u010611118/5342891?utm_source=bbsseo]//download.csdn.net/download/u010611118/5342891?utm_source=bbsseo[/url]
相关热词 c# gdi 占用内存 c#中遍历字典 c#控制台模拟dos c# 斜率 最小二乘法 c#进程延迟 c# mysql完整项目 c# grid 总行数 c# web浏览器插件 c# xml 生成xsd c# 操作sql视图
我们是很有底线的