忍者ブログ
[149]  [148]  [147]  [146]  [145]  [144]  [143]  [142]  [141]  [140]  [139
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

'SQL接続

Dim DB As DAO.Database, RS As DAO.Recordset
Dim fittext As String, fitresult As String
Dim xSQL As String


'DB設定
Set DB = CurrentDb
'Set rs = db.OpenRecordset("メーカー着", dbOpenDynaset)
Set RS = DB.OpenRecordset("SELECT * FROM TB1 WHERE バーコード = """ & Me!テキスト0.Text & """")
PR
この記事にコメントする
お名前
タイトル
文字色
メールアドレス
URL
コメント
パスワード   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
この記事へのトラックバック
この記事にトラックバックする:
カレンダー
09 2025/10 11
S M T W T F S
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31
ブログ内検索
最新コメント
[02/28 metsozone]
[04/28 Moya]
[02/17 マチルダ]
[12/25 ノリス]
[09/30 けてぃ]
バーコード
↓おいらに還元↓
アクセス解析
あふぃりえいと
忍者ブログ [PR]