http://oshiete1.goo.ne.jp/kotaeru.php3?q=1345496に関連して・・・
テーブル名：項目名
部屋：科目、部屋
教科書：科目、値段
上記のようなテーブルがあり、以下のようなSelect文によりデータを
データセットに取得したいのですが、
コンパイルは通り、実行するとFillメソッドでエラーになります。
try～catchをしてエラーの内容を見てみると「FROM句の構文エラー」と出ています。
Fillメソッドの２つめのパラメータにどちらのテーブル名を入れても、
同じエラーになります。
UNION句でつないだSelect文をAdapterに設定した場合、
２つ目のパラメータは一体なんなのでしょうか。
Fillメソッドのパラメータがおかしいのでなければ、
SELECT文のどこがおかしいでしょうか。
教えてください。よろしくお願いいたします。
----------------------------------------------------------------
Dim oleCn As OleDb.OleDbConnection = New OleDb.OleDbConnection
Dim dataSet = New DataSet
oleCn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;"～
Dim oDataAdapter As New OleDb.OleDbDataAdapter("SELECT 科目 FROM 部屋" & _
"UNION SELECT 科目 FROM 教科書 WHERE (値段 > 1000)", oleCn)
oDataAdapter.Fill(dataSet)
VB6で開発中です。
フォームの一部に、あるURLを指定してそのページ（例えばYahoo!ページ）を表示させたブラウザを組み込むことはできますか？
もしくは、あるURLを指定してそのページを表示させたブラウザを起動させるのでかまいません。
おかわりになられる方いらっしゃいましたら、ご教授下さいませ。
WebBrowserを使うらしい？？（正しいかどうかはわかりませんが・・・）
Sub WebBrowser1_StatusTextChange(ByVal Text As String)
End Sub
のですが・・・？？
よろしくお願いします。
VB6.0sp6,Windows2000professionalsp4です。
VBでのディレクトリの有無の判別方法を検索していて、サンプルをひとつ見つけたのですが・・・↓がコードです。
------------------------------------------------
Private Declare Function PathIsDirectory Lib "SHLWAPI.DLL" Alias "PathIsDirectoryA" _
(ByVal pszPath As String) As Long
'
' ディレクトリであるかどうか
'
Private Function IsDirectory(ByVal strFileName As String) As Boolean
' strFilename : チェックしたいディレクトリ名
' 戻り値 : ディレクトリであればTrueを返す。
Dim lngResult As Long
lngResult = PathIsDirectory(strFileName)
IsDirectory = Not (lngResult = 0) 'ここが理解できません
End Function
Private Sub Command1_Click()
Dim strFileName As String
strFileName = "C:\WINNT\Profiles\Administrator\My Documents\HEROPA\TestCls\SHLWAPI"
Msgbox IsDirectory(strFileName)
End Sub
--------------------------------------------
IsDirectory関数は、PathIsDirectoryの戻り値がLong型のため、それをBooleanに直すためのものだと思うのですが、
IsDirectory = Not (lngResult = 0)はどういう原理なのでしょうか？
これだとlngResultにどんな値が入ろうがIsDirectoryに返されるのはTrueになってしまうと思うのですが(lngResultに0が代入され、それがNotされるから）、しかし実際に実行してみるとちゃんとTrueとFalseを判定しています。いったいどうしてなのでしょうか？
それと、PathIsDirectoryの宣言で、関数の戻り値がLongになっていますが、他に見つけたサンプルではBooleanとなっていました。どちらが正しいのでしょうか？
VB.NET 初心者です。
コンボボックスに隠し情報としてTagにidを設定しておき
後でボタンが押下された時にそのTagからidを取得し、次の
処理を行う様にしたいと考えております。
簡単な構成は以下のようになってます。
'構造体A
Public Structure A
Dim id As String
Dim name As String
End Structure
Dim Tag(1) As A
Dim Item(1) As String
Tag(0) = 1
Tag(2) = 2
Item(0) = "データ１"
Item(1) = "データ２"
' コンボボックスに値の設定
cboData.Items.AddRange(KeyItems)
cboData.Tag = TagItems
ボタンが押下された時に選択されている項目のidの取得方法を
教えて頂きたいと思います。よろしくお願い致します。
よろしくお願いします。
VB6.0sp6,Windows2000professionalsp4です。
VBでのディレクトリの有無の判別方法を検索していて、サンプルをひとつ見つけたのですが・・・↓がコードです。
------------------------------------------------
Private Declare Function PathIsDirectory Lib "SHLWAPI.DLL" Alias "PathIsDirectoryA" _
(ByVal pszPath As String) As Long
'
' ディレクトリであるかどうか
'
Private Function IsDirectory(ByVal strFileName As String) As Boolean
' strFilename : チェックしたいディレクトリ名
' 戻り値 : ディレクトリであればTrueを返す。
Dim lngResult As Long
lngResult = PathIsDirectory(strFileName)
IsDirectory = Not (lngResult = 0) 'ここが理解できません
End Function
Private Sub Command1_Click()
Dim strFileName As String
strFileName = "C:\WINNT\Profiles\Administrator\My Documents\HEROPA\TestCls\SHLWAPI"
Msgbox IsDirectory(strFileName)
End Sub
--------------------------------------------
IsDirectory関数は、PathIsDirectoryの戻り値がLong型のため、それをBooleanに直すためのものだと思うのですが、
IsDirectory = Not (lngResult = 0)はどういう原理なのでしょうか？
これだとlngResultにどんな値が入ろうがIsDirectoryに返されるのはTrueになってしまうと思うのですが(lngResultに0が代入され、それがNotされるから）、しかし実際に実行してみるとちゃんとTrueとFalseを判定しています。いったいどうしてなのでしょうか？
それと、PathIsDirectoryの宣言で、関数の戻り値がLongになっていますが、他に見つけたサンプルではBooleanとなっていました。どちらが正しいのでしょうか？
Public Class TestEventArgs : Inherits EventArgs
Public aaa As Date
Public bbb As String
End Class
aaaとbbbをいろいろなところで使用するので、aaaとbbbを初期化したいのですが、
VB.Netではどうしたらよいのでしょうか？
単純にbbb = ""で良いのでしょうか？
