visual basic2005 を使ってSQLのデータを検索するプログラムを作っています。
テキストボックスに入力された文字を検索したいのですが、
構文がうまくいかずに困っています。
dim txt as string = textBox1.text
"SELECT * FROM tesut WHERE line LIKE '" & txt & "'"
このようにline行にtxtの値が含まれているものを検索したいです。
完全一致ではなく前方一致にしたいのですが、その文がうまくかけなくて困っています。
どうかアドバイスをお願いします
２３歳男性です。
visual studio 2005で開発してます。
ふと思ったんですけど、メソッドに数値を渡して、その数値によってデータ型の違うデータを取得できたら便利かなーと思いました。
************************************************************
私が考えたコード
************************************************************
■メソッド
DataGet(1)
■メソッド側処理
public function DataGet(byval num as integer) as ×××
select case num
case 1:「日付型」データ
case 2:「数値型」データ
case 3:「文字型」データ
end select
return データ
end function
************************************************************
上記のコードはあくまで想像です。
でも実際、このようなことはできるのでしょうか？
ご存知の方がいらっしゃいましたらご教授願います。
２３歳男性です。
visual studio 2005で開発してます。
ふと思ったんですけど、メソッドに数値を渡して、その数値によってデータ型の違うデータを取得できたら便利かなーと思いました。
************************************************************
私が考えたコード
************************************************************
■メソッド
DataGet(1)
■メソッド側処理
public function DataGet(byval num as integer) as ×××
select case num
case 1:「日付型」データ
case 2:「数値型」データ
case 3:「文字型」データ
end select
return データ
end function
************************************************************
上記のコードはあくまで想像です。
でも実際、このようなことはできるのでしょうか？
ご存知の方がいらっしゃいましたらご教授願います。
DATの読書きをしなくちゃいけない事になって
元のコードを元に書き出す事はできたのですが
読込みができなくて困っています。構造体の中に値を入れてるんですが
msgboxで値を表示しても、空白しか返ってきません。
ネットでも検索してみたんですが、どこがおかしいの分からなくてお手上げです。
どなたか宜しければおかしい所を教えて下さい。
Type TEST_DAT
TEST_A as string * 1
TEST_B as string * 2
TEST_C as string * 3
End Type
Sub a ()
Dim Dat as TEST_DAT
Dim Fn as integer
Fn = FreeFile
Open ThisWorkbook.path & "\Test.dat" For Random as #Fn Len = 6
Get #Fn , , Dat
Msgbox Dat.TEST_A
Msgbox Dat.TEST_B
Msgbox Dat.TEST_C
Close #Fn
End Sub
Datファイルの方には、上の構造体を使ってPut #Fn,,Dat
の様に書いて１行出力した物をそのまま使っています。
なので、データが無いって事はありません。
元のコードとネットで調べはしたのですが、上で問題無い様な気がして
おかしい場所がさっぱりわかりません。エラー等は一切返ってきてません。
Msgbox Len(Dat.TEST_A)の様にすると1,2,3と帰って来るので
値が入ってないのが悪いとはわかるんですが…。
毎度お世話になっております。
ACCESS2003、SQLSERVER2000を使用しています。
以下のテーブルがあります。
テーブル1
フィールド1 フィールド2
A 10
A 20
A -10
B 1
B 2
B 3
フィールド1をグループ化し、
フィールド2に0より小さい数がある場合はNG、
ない場合はOKと表示したいのです。
希望する結果
フィールド1 フィールド2
A NG
B OK
私が考えた方法は、
1.クエリ1（フィールド2が0以下のフィールド1を抽出する）を作成
2.テーブル1とクエリ1をLEFT JOINし、IS NULL ならOK、そうでないならNGを表示
としました。希望した結果は得られましたが、
もっとスマートな方法（一つのクエリでできるような方法）、
または別解をご教授ください。
よろしくお願いします。
for ～ next 構文の途中でカウンターを進めることはできますか。
For I=1 to 10
処理
if ～ then next
処理
next
このようにすると、エラーになります。
仕方なく次のようにしていますが、もっと良い方法はありますか。
For I=1 to 10
処理
if ～ then goto 次の行へ
処理
次の行へ:
next
