Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Dim i As Integer Cn = New ADODB.Connection Cn.CursorLocatio…

参考にさせてもらったWebページ http://www2s.biglobe.ne.jp/~SATSYS/outlookvba.htm http://www2s.biglobe.ne.jp/~SATSYS/outlookvba.htm

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myOlApp As Object Dim myItem As Object Dim myRecipient As Object Dim mm As String Dim olMailItem As Object m…

Public Class Form1 Inherits System.Windows.Forms.Form#Region " Windows フォーム デザイナで生成されたコード " Public Sub New() MyBase.New() ' この呼び出しは Windows フォーム デザイナで必要です。 InitializeComponent() ' InitializeComponent()…

なぜか、プロジェクトのフォルダの配下にmdbのコピーができてしまうようだ???

(VB.NET 2005 Express Beta2/Excelへの参照設定は必要) Imports ExcelPublic Class Form1 Inherits System.Windows.Forms.Form#Region " Windows フォーム デザイナで生成されたコード " Public Sub New() MyBase.New() ' この呼び出しは Windows フォーム …

http://d.hatena.ne.jp/cofe_arabi/edit?date=20050819

マイクロソフトのOS は、パソコンに一度、インストールしたら他のパソコンにインストールするとライセンス違反 なるという。一方でOfficeなどのアプリケーションは、一人の人が2台目の携帯用PCなどにインストールすることが可能。また開発用のアプリケーショ…

VB5で作成したプログラムは、VB6にアップしてから、VB.NETプログラムに変換する。VB6でプログラムを作成して、それをVB.NET用に変換するということを繰り返せば、だんだんVB.NET の使い方を覚えていけるかもしれないと、希望的観測を抱いている。VB6でもクラ…

Sub read_file()Dim aaa(100)strFileName = "c:\readme.txt"Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objfile = objFileSystem.OpentextFile(strFileName) Do Until objfile.atendofstream 'objfile.Write (str_message) strRec…

'たとえば2005年06年19日の場合には050619を表示する。 MsgBox Format$(Now, "yymmdd")

コンテナの概念を利用

http://makotowatana.ld.infoseek.co.jp/access/index.html

Sub writedown1()Dim Db As Database, D As Recordset, QD As QueryDef Dim str_message As String Set Db = DBEngine.Workspaces(0).Databases(0)Set QD = Db.CreateQueryDef("Q_serial", "Select * from sample order by sample2") Set D = Db.OpenRecords…

Sub writedown()Dim Db As Database, Tbl As Recordset Dim str_message As String Set Db = DBEngine.Workspaces(0).Databases(0)Set Tbl = Db.OpenRecordset("sample", DB_OPEN_TABLE)Do Until Tbl.EOF str_message = str_message & Tbl!sample1 & "," & T…

strFileName="D:\sample.txt" set objFileSystem=CreateObject("Scripting.FileSystemObject") set objFile=objFileSystem.CreateTextFile(strFileName) objFile.Write("test1") objFile.Write(vbCrLf) objFile.Write("test2") objFile.close

Dim kekka Dim d(199)'moji="asdfg"'kekka = Hex(Asc(moji)) 'kekka'msgbox kekkaip_ad="192.168.31.91"str_tmp=ip_ad str_tmp=str_tmp & "."i=1do while i d(i)=Cint(left(str_tmp,instr(str_tmp,".")-1)) str_tmp=Mid(str_tmp,instr(str_tmp,".")+1) i=i+1…

set xlapp=createobject("Excel.Application")xlapp.visible=truexlapp.displayalerts=Falseset xlbook=xlApp.Workbooks.open("C:\xls\030526.xls")xlApp.run("Macro1")msgbox xlbook.worksheets("sheet1").Range("A" & 2).value xlbook.worksheets("sheet1"…

Set WshShell = WScript.CreateObject("WScript.Shell") BtnCode = WshShell.Popup("10秒間の表示をします", 10, "これはテスト")msgbox BtnCodeset WshShell = nothing

' Function tsumeru(str_temp, int_num) Dim str_work0 Dim str_work1 ' dim str_work0 = str_temp ' str_work1 = StrConv(str_work0, vbFromUnicode) str_work1 = StrConv(str_work0, 1) Do While LenB(str_work1) > int_num str_work0 = Left(str_work0, L…

WebサイトでIPアドレスを調べることができるか? ホスト名は?

難解な専門用語を振り回して、他の人にいやな思いをさせる行為を「セクハラ」をもじって「テクハラ」という人がいる。専門用語（テクニカルターム）難しい言葉を使うと、何かしら自分が高度な業務に関与しているという満足感を得られるから使用するのかもし…