• 締切済み

Visual Basic から Access table を読む方法を教えてください。

pingpong_spの回答

回答No.1

RECORDsetオブジェクトは　作成してるんでしょうか？ 出来てるのであればRECORDSETオブジェクトのSOURCEプロパティとactiveconnectionプロパティを 設定してください あとは　オープンするだけで　内容の読み書きができるようになります 例） USERDBがＭＤＢ USERTBLがテーブル username・passwordが項目 dim cn as adodb.connection dim rs as adodb.recordset set cn = new adodb.connection cn.connectionstring="provider=<使用するプロバイダ>;data source=<ＭＤＢのフルパス/userdb.mdb> cn.open set rs = new recordset rs.sorce="usertbl" rs.activeconnection=cn rs.open 後は rs!usernameで　usernameのデータが rs!passwordで　passwordのデータが 取り出せます 取り急ぎ書きましたので　上記sampleが実際に動作するかどうか確認してません スペルも確認してませんので（＾＾）笑

cantona
質問者

補足

早々のご返事有り難うございます。 今、一生懸命いわれた事をやってますので 分かり次第結果報告します。

この回答がついた質問に戻る
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • EXCEL VBA twitter ログイン

    EXCEL VBAを利用しtwitterにログインしたいと思っております ログイン保持機能はoffにします https://twitter.com/login のソースを見てみると <label class="username js-username"> <span>ユーザー名、またはメールアドレス</span> <input class="js-username-field email-input" type="text" name="session[username_or_email]" autocomplete="on"> </label> <label class="password js-password"> <span>パスワード</span> <input class="js-password-field" type="password" value="" name="session[password]"> </label> とあるのですがid='xxxxxx'がなく　nameで行けるかと思い objIE.Document.forms(0).item("session[username_or_email]").Value = ID でやってみたのですが実行するとエラーになってしまいます nameを指定して特定のフォームに入力する方法や これでと入力できるという方法を教えて頂けないでしょうか よろしくお願いいたします

  • アクセスにオラクルのテーブルをリンク

    アクセスでオラクルのテーブルを　ＯＤＢＣでリンクしたいのですが そのとき　オラクルのユーザー名を　例えば　USERNAME　で　リンクしたいテーブルを　TABLE1　として、　リンクすると　アクセス　上では 　USERNAME_TABLE1 と言う様に　ユーザ名　＋　テーブル名　になってしまいます。 使用したいのは　テーブル名だけなので　できれば　ユーザ名がつかないでリンクしたいのですが、そう言う事はできないのでしょうか？ 　テーブルの量がたくさんあるので　あとから名前を変更するのが大変なんです・・・ 　

  • ログインフォームを作りたいのですが・・・

    VBでログインフォームを作りたいのですが・・・・ Accessのデータ（テーブル：User　Name、Password）を読みとってログインできるようにしたいのですがどうにすればいいのかわからないので、もし作り方がわかる人がいましたら教えてください。よろしくお願いします。

  • 送信ボタン押下時に値が未入力だとエラーにしたい

    お世話になります。 ユーザー名とパスワードを入力して送信するシンプルなログイン画面を作成しているのですが、ユーザー名かパスワードが未入力の状態で送信(ログイン)ボタンを押した場合はエラーとし、情報を送信しないように出来ますでしょうか。 ログインボタンを押下した際にポップアップ・ウインドウが表示されて「ユーザ名が未入力です」などと画面表示できるのが理想なのですが。。。 現在は下記のようなソースを書いております。 <input type="text" name="username"> <input type="password" name="password"> <input type="submit" value="ログイン"> どなたがご存知の方、お教えいただければ幸いです。

    • ベストアンサー
    • HTML
  • Accessログイン権限

    Access2003を使用しています。 ログイン画面を作成しておりログイン自体はできたのですが、 管理者とそうでないユーザーに分けて、ログイン時に管理者であればfrm_mainを、 そうでなければfrm_main2を開くようにしたいのですがうまくいきません。 現在の仕様では、ログイン画面(frm_ログイン)とメイン画面(frm_main、frm_main2)があり テーブル名：tbl_ユーザー フィールド名：ユーザー名、パスワード、アカウント アカウントで"1"が管理者、"2"が一般ユーザー このようになっています。 ーー以下VBAコードーー Private Sub rogin_Click() Dim a If IsNull(Me.[UserName]) Then MsgBox "ユーザー名が未入力です" Me.[UserName].SetFocus ElseIf IsNull(Me.[password]) Then MsgBox "パスワードが未入力です" Me.[password].SetFocus Else a = DLookup("パスワード", "tbl_ユーザー", "ユーザー名='" & Me.[UserName] & "'") If IsNull(a) Then MsgBox "該当する ユーザー名 は存在しません" Me.[UserName].SetFocus ElseIf StrComp(a, Me.[password], vbBinaryCompare) = 0 Then On Error GoTo Err_rogin_Click Dim stDocName As String Dim stLinkCriteria As String If アカウント = "1" Then stDocName = "frm_main" Else stDocName = "frm_main2" End If DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, Me.Name Else MsgBox "パスワードが違います" Me.[password].SetFocus End If End If Exit_rogin_Click: Exit Sub Err_rogin_Click: MsgBox Err.Description Resume Exit_rogin_Click End Sub ーー以上ーー 現在はこのようになっているのですが、これだとなぜかアカウントが"1"でも"2"でも frm_mainが開いてしまいます。 長くなって申し訳ないのですが、アドバイスをお願いします。

  • net useのユーザー名を変数で通したい

    Accessの超初心者です。 Accessでフォームとテーブルを2つのファイルに分け、テーブルのmdeファイルはユーザー認証付の共有フォルダ(NAS)上に置き、フォームのmdbファイルは使用者数名に配布し、リンクテーブルで共有フォルダ上のmdeファイルに接続したいと思っています。 共有フォルダのユーザー認証はVBAでnet useコマンドを使用すれば接続できると分かり、ログインフォームに追加することができました。 ですが、ログインフォーム上にユーザー名を入力するテキストボックスを配置し、その入力内容をnet useコマンドに渡したく下記のVBAを書いてみましたが、共有フォルダにログインできない状態です。 Dim UserName As String UserName = Me.ユーザー名 Set myWSH = CreateObject("WScript.Shell") myWSH.Run "net use ファイルパス パスワード /User:UserName" 変数UserNameをダブルクォーター等々で囲わなければならないと思い色々試してみた のですが、共有フォルダのユーザー認証が通らずご教授の程、よろしくお願い致します。

  • ユーザ追加のスクリプト作成について教えてください

    Linuxでスクリプトを作りたいのですが初めてでしてアドバイスいただきたいのですが。「ユーザを加え、パスワードの設定。その後確認画面として/etc/passwordと/etc/shadowにて新規に作成したユーザとパスワード”のみ”表示される」とゆうのが条件です。更にwhileを使ったユーザを作成したのちのy/nの応答でnを入力するまでは繰り返しユーザの追加が行えるようにしたいのですが。 途中まで教科書片手に作りましたが行き詰まってしまいました。 Variableに混乱しています。 CONTINUE=y while [ "$CONTINUE" != "n" ] do echo "adding a user" useradd -d /etc/shadow "$USERNAME" echo -e "type a user name" /c read USERNAME passwd "$PASSWORD" echo -e "type a password" /c read PASSWORD

  • スタイルシートのみで表の作成

    よくある、「サービスにログインするときのパスワード、ＩＤ入力画面」というものを作ってます。 パスワード、テキストフィールド ＩＤ、テキストフィールド ログインボタン のような。 たとえば簡単にテーブルで組みますと、 <table width="400" border="0" cellspacing="0" cellpadding="2"> <tr> <td width="100">パスワード</td> <td><label> <input type="text" name="textfield" /> </label></td> </tr> <tr> <td>ＩＤ</td> <td><input type="text" name="textfield2" /></td> </tr> <tr> <td colspan="2" align="center"><label> <input type="submit" name="Submit" value="ログイン" /> </label></td> </tr> </table> 似たり寄ったりこんな感じだとします。 これと同等のものを、スタイルシートだけで作成できますか？ たとえば、ソースは、 <dl id="LOGIN-FORM"> <dt class="loginFormLabel" id="USER-NAME-LABEL"> <label for="USER-NAME">ユーザ名</label> <input type="text" name="username" size="24" value="" id="USER-NAME" class="inputText" /> </dt> <dt class="loginFormLabel" id="USER-PASSWORD-LABEL"> <label for="USER-PASSWORD">パスワード</label> <input type="password" name="password" size="24" value="" onmousedown="" onkeydown="if (event.keyCode == 13) {enter.click();return false;}" id="USER-PASSWORD" class="inputText" /> </dt> <dt class="loginFormLabel" id="USER-INFO-SUBMIT-LABEL"> <label for="USER-INFO-SUBMIT">アクション</label> </dt> <dd class="loginFormText" id="USER-INFO-SUBMIT-TEXT"> <input type="submit" value="ログイン" id="USER-INFO-SUBMIT" class="submit" /> </dd> </dl> です。 テキストフィールドの頭をそろえたり、ログインボタンの位置を 変えたりしたいです。 テーブルでやればいいのに・・・と思いますが、 スタイルシートで頼むといわれて、困ってます。 教えてください。

  • Access　VBA

    Access2003を使用しています。 単純な質問かもしれませんがよろしくお願いします。 ログイン画面を作成しておりログイン自体はできたのですが、ログインしたときに ログイン画面を自動的に閉じたいのですが、うまくいきません。 現在の仕様では、ログイン画面(frm_ログイン)とメイン画面(frm_main)があり ログインに成功するとメイン画面が開くようになっています。 ーー以下VBAコードーー Private Sub rogin_Click() Dim a If IsNull(Me.[UserName]) Then MsgBox "IDが未入力です" Me.[UserName].SetFocus ElseIf IsNull(Me.[password]) Then MsgBox "パスワードが未入力です" Me.[password].SetFocus Else a = DLookup("パスワード", "tbl_ユーザー", "ユーザー名='" & Me.[UserName] & "'") If IsNull(a) Then MsgBox "該当する ユーザー名 は存在しません" Me.[UserName].SetFocus ElseIf StrComp(a, Me.[password], vbBinaryCompare) = 0 Then On Error GoTo Err_rogin_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_main" DoCmd.OpenForm stDocName, , , stLinkCriteria Else MsgBox "パスワードが違います" Me.[password].SetFocus End If End If Exit_rogin_Click: Exit Sub Err_rogin_Click: MsgBox Err.Description Resume Exit_rogin_Click End Sub ーー以上ーー 長くなって申し訳ないのですが、どのようにすればログイン後にログイン画面（frm_ログイン)を閉じるようにできるのでしょうか？ よろしくお願いします。

  • わからないので再び！Access2000です

    ログイン画面で、ID、パスワードを入力後btnログインクリックするとメインフォームを開き、メインフォームにあるtxtログイン者名というテキストボックスにログイン者名をだしたいのですがどうすればいいのですか？ テーブル名：ユーザーマスタ ユーザーマスタのフィールド名：ログインID、ユーザー名、パスワード フォーム名：ログイン、メインメニュー ログイン画面：txtユーザーID、txtパスワード、btnログイン メインメニュー：txtログイン者名 ものすごい初心者です！よろしくおねがいします！！

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する