首页 \ 问答 \ JPA Hibernate帮助！(JPA Hibernate Help!)

JPA Hibernate帮助！(JPA Hibernate Help!)

 我刚学过JPA。 我创建了一个简单的程序，它返回查询“SELECT ...”。 不幸的是，我总是得到一个例外  
java.lang.ClassCastException: [Ljava.lang.Object; cannot be cast to application.Model
   at application.Main.main(Main.java:33)
 
 我无法理解为什么，但我尝试使用String.valueOf（...）到该行并返回相同的异常。  
 所有代码都在这里 。 

I have just studied about JPA. And I had created a simple program which return the query "SELECT ...". Unfortunately, I always get an exception like 
java.lang.ClassCastException: [Ljava.lang.Object; cannot be cast to application.Model
   at application.Main.main(Main.java:33)
 
I can't understand why, yet I tried using String.valueOf(...) to the line and returns the same exception. 
All of the codes are present here.

原文：https://stackoverflow.com/questions/5577827

更新时间：2023-08-24 11:08

最满意答案

 这是您需要的基础知识。  
Sub WriteToTextBox()
Dim tb As Shape
Dim sld As Slide
Dim pres As Presentation
Dim var1 As String


var1 = InputBox("Var1")
Set pres = ActivePresentation
Set sld = pres.Slides(23) 'Modify as needed

Set tb = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 50) 'Modify dimensions as needed
    tb.name = "unique name"  '< assign a unique name to the textbox so you can refer to it later
    tb.TextFrame.TextRange.Text = var1



End Sub

Sub ReadFromTextBox()
Dim s$
Dim sld As Slide
Dim pres As Presentation
Set pres = ActivePresentation
Set sld = pres.Slides(23) 'Modify as needed


s = sld.Shapes("unique name").TextFrame.TextRange.Text 'Read the value from the textbox
MsgBox s 

End Sub

Here's the basics of what you need. 
Sub WriteToTextBox()
Dim tb As Shape
Dim sld As Slide
Dim pres As Presentation
Dim var1 As String


var1 = InputBox("Var1")
Set pres = ActivePresentation
Set sld = pres.Slides(23) 'Modify as needed

Set tb = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 50) 'Modify dimensions as needed
    tb.name = "unique name"  '< assign a unique name to the textbox so you can refer to it later
    tb.TextFrame.TextRange.Text = var1



End Sub

Sub ReadFromTextBox()
Dim s$
Dim sld As Slide
Dim pres As Presentation
Set pres = ActivePresentation
Set sld = pres.Slides(23) 'Modify as needed


s = sld.Shapes("unique name").TextFrame.TextRange.Text 'Read the value from the textbox
MsgBox s 

End Sub

JPA Hibernate帮助！(JPA Hibernate Help!)

最满意答案

相关问答

在powerpoint中创建一个填充变量(Create a fill-in variable in powerpoint)[2023-03-16]

下列中不属于面向对象的编程语言的是?[2022-05-30]

VBA中的Powerpoint幻灯片计数变量(Powerpoint Slide Count Variable in VBA)[2023-10-16]

powerpoint变量(powerpoint variables)[2023-02-08]

使用VBA通过Access在PowerPoint模板中填充数据？(Fill data in PowerPoint Template through Access using VBA?)[2022-03-12]

MS PowerPoint中的变量增加(Variable Increase in MS PowerPoint)[2021-10-06]

Delphi中的PowerPoint：用文本填充表格(PowerPoint in Delphi: fill table with text)[2023-12-02]

C＃VSTO：在PowerPoint中获取最新的填充颜色(C# VSTO: Getting Latest Fill Color in PowerPoint)[2022-05-14]

退出时的Powerpoint问题(Powerpoint issue when quitting)[2022-06-25]

使用R图填充整个PowerPoint幻灯片？(Fill an Entire PowerPoint Slide with an R Plot?)[2021-03-28]

相关文章

最新问答