2006-06-01から1ヶ月間の記事一覧
shift + spaceで行選択。ctrl + spaceで列選択。
DatabaseConfig config = databaseConnection.getConfig(); config.setProperty(DatabaseConfig.PROPERTY_DATATYPE_FACTORY, new Db2DataTypeFactory());
Connection conn = EaglesTestConnection.getConnection(); IDatabaseConnection databaseConnection = new DatabaseConnection(conn, schema);
スタート→IBM DB2→セットアップ・ツール→構成アシスタント 右クリックでデータベースの追加
worksheet.Columns(1).Hidden = True
VBEのメニューから 表示→プロパティ ウィンドウ→プロパティ→オブジェクト名 で名前を変更
Public Sub makeTextFile(fileName As String, buff As String) Dim fileNo As Integer fileNo = FreeFile Open fileName For Output As #fileNo Print #fileNo, buff Close #fileNo End Sub
ツール→参照制約→Microsoft XML, v?.0を選択して追加(http://www.microsoft.com/downloads/details.aspx?FamilyID=993c0bcf-3bcf-4009-be21-27e85e1857b1&DisplayLang=ja) Dim xDoc As MSXML2.DOMDocument ' DOM Parserオブジェクトを生成する Set xDoc = …
Private Function showFileDialog(ByVal title As String) As String Dim selectedFileName As String selectedFileName = "" With Application.FileDialog(msoFileDialogOpen) .title = title .AllowMultiSelect = False .InitialFileName = ThisWorkbook.p…
Excelの書式→シート→表示しない 再表示するには 書式→シート→再表示
fiieNameはフルパスで。 Function loadTextFile(fileName As String) As String Dim fileNo As Integer Dim lineText As String Dim result As String fileNo = FreeFile Open fileName For Input As #fileNo Do While Not EOF(fileNo) Line Input #fileNo, …
Dim book As Workbook Set book = Workbooks.Open(fileNameWithPath, ReadOnly:=True)
' エラーになっても処理を継続する On Error Resume Next ' 元に戻す On Error GoTo 0
Dim bookName As String bookName = Dir("指定するディレクトリ" & "\*.xls") While bookName <> "" ' ブックを開いて処理を実行する Wend
Application.DisplayAlerts = False
Application.ScreenUpdating = False
勉強のためにONJava.com(http://onjava.com/)を翻訳していたんですが、上司が原著者とオライリー社から許可を取ってくださって、この度会社のWebサイトで公開していくことになりました。その第1弾。iBatis DAO。SQL Mapsじゃないやつです。 http://www.krono…