var statement = connection.prepareStatement('INSERT INTO entries (guestName, content) values (?, ?)');
statement.setString(1, 'Third Guest');
statement.setString(2, 'I just got here too!');
var count = statement.executeUpdate();
Logger.log(count);
function updateOneRecord() {
var connection = Jdbc.getCloudSqlConnection(url, userName, password);
var statement = connection.prepareStatement('UPDATE entries SET guestName=?, content=? WHERE entryID=?');
statement.setString(1, 'third guest');
statement.setString(2, 'I just got here too!!!!!');
statement.setInt(3, 3);
var row = statement.executeUpdate();
Logger.log(row);
statement.close();
connection.close();
}
function deleteOneRecord() {
var connection = Jdbc.getCloudSqlConnection(url, userName, password);
var statement = connection.prepareStatement('DELETE FROM entries WHERE entryID=?');
statement.setInt(1, 2);
var row = statement.executeUpdate();
Logger.log(row);
statement.close();
connection.close();
}
Private Sub TextItem_AfterUpdate()
With ActiveSheet
.Range("E:E").Clear
Dim myRange As Range
Dim rngSearch As Range
Dim strAddress As String
Set myRange = .Range("A2:A13")
Set rngSearch = myRange.Find(What:=TextItem.Value, LookAt:=xlPart)
Dim i As Long
i = 1
If Not rngSearch Is Nothing Then
.Cells(i, 5).Value = .Cells(rngSearch.Row, rngSearch.Column + 1).Value
strAddress = rngSearch.Address
Do
Set rngSearch = myRange.FindNext(rngSearch)
If rngSearch Is Nothing Then
Exit Do
Else
If strAddress <> rngSearch.Address Then
i = i + 1
.Cells(i, 5).Value = .Cells(rngSearch.Row, rngSearch.Column + 1).Value
End If
End If
Loop While rngSearch.Address <> strAddress
Else
.Cells(i, 5).Value = "該当なし"
End If
'リストボックスに検索結果の範囲をセット
ListRegion.RowSource = .Range(.Cells(1, 5), .Cells(i, 5)).Address
End With
End Sub
Private Sub TextItem_AfterUpdate()
With ActiveSheet
Dim myRange As Range
Dim rngSearch As Range
Set myRange = .Range("A2:A13")
Set rngSearch = myRange.Find(What:=TextItem.Value, LookAt:=xlPart)
If Not rngSearch Is Nothing Then
ListRegion.AddItem .Cells(rngSearch.Row, rngSearch.Column + 1).Value
strAddress = rngSearch.Address
Do
Set rngSearch = myRange.FindNext(rngSearch)
If rngSearch Is Nothing Then
Exit Do
Else
If strAddress <> rngSearch.Address Then
ListRegion.AddItem .Cells(rngSearch.Row, rngSearch.Column + 1).Value
End If
End If
Loop While rngSearch.Address <> strAddress
End If
End With
End Sub
Private Sub TextItem_AfterUpdate()
With ListRegion
Dim i As Long
i = .ListCount
.AddItem TextItem.Value, i
.List(i, 1) = TextItem.Value & "2列目"
.List(i, 2) = TextItem.Value & "3列目"
End With
End sub
function myFunction() {
var url ='*****テンプレート用プレゼンテーションのURL*****';
var presentation = SlidesApp.openByUrl(url);
var slides = presentation.getSlides();
Logger.log('スライドの枚数: %s',slides.length);
var slide = slides[0];
}
function myFunction() {
var url ='*****テンプレート用プレゼンテーションのURL*****';
var presentation = SlidesApp.openByUrl(url);
var slides = presentation.getSlides();
Logger.log('スライドの枚数: %s',slides.length);
var slide = slides[0];
}
function myFunction() {
var url ='*****テンプレート用プレゼンテーションのURL*****';
var presentation = SlidesApp.openByUrl(url);
var slide = presentation.getSlides()[0];
var shapes = slide.getShapes();
Logger.log('シェイプの個数: %s',shapes.length);
var shape = shapes[0];
}
function myFunction() {
var url ='*****テンプレート用プレゼンテーションのURL*****';
var presentation = SlidesApp.openByUrl(url);
var slide = presentation.getSlides()[0];
var shapes = slide.getShapes();
Logger.log('シェイプの個数: %s',shapes.length);
var shape = shapes[0];
}
function myFunction() {
var url ='*****テンプレート用プレゼンテーションのURL*****';
var presentation = SlidesApp.openByUrl(url);
var slide = presentation.getSlides()[0];
var shapes = slide.getShapes();
for (var i = 0; i < shapes.length; i++){
var shape = slide.getShapes()[i];
Logger.log('シェイプ内の文字列: %s',shape.getText().asString());
}
}
