- ベストアンサー
VB初心者のためのDBグリットコントロールについての質問
bin-chanの回答
メニューの[プロジェクト]-[参照設定]をクリックして、 「参照可能なライブラリファイル」で使用するエンジンにチェックしてください。 （DataEnvironmentのようなOLEDBデータソースなどがあるはずです）
関連するQ&A
- VB6.0とaccessのDBを接続する
初めまして。 件名のようなことを実行する際、 以下のソースを参考にしようと思ったのですが、 ******************************************* Dim cn As New ADODB.Connection Dim rc As New ADODB.Recordset ' 接続を確立する cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\My Documents\db1.mdb;" ' テーブル名を指定してレコードセットを作成する rs.Open "Table1", cn, adOpenKeyset, adLockOptimistic ************************************* > cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ > "Data Source=C:\My Documents\db1.mdb;" この部分の接続文字はどのようにしたら取得できるのでしょうか？ SQLserverのときは、コンポーネントから Microsoft ADO Data Control 6.0(AP4)(OLEDB) を追加し、プロパティでOLE DBプロバイダを選択して接続文字を取得したのですが、accessに繋ぐのは初めてで、わかりません。 どなたか宜しくお願いいたします！！
- ベストアンサー
- Visual Basic
- コモンダイアログでフロッピーディスクに保存するとエラー
開発環境 Windows2000 SP2 VB6 SP5 ADO2.5(Access2000形式のMDB使用） 少し気になっていることがあるのですが、VBで作ったアプリケーションで DataGridに表示されているデータをフロッピーディスク（以下FD)にデータを保存します。 （MoveNextで送りながらテキスト書き込み） 保存した後にFDを抜いて開いている画面を閉じて再度その画面を開くと 「ディスクあるいはネットワークのエラーです。」の表示の後に異常終了してしまいます。 このエラーは意識して表示させている物では無いので ADOのデータコントロールが勝手に表示させている物だと思います。 エラーが発生する場所はADOのデータコントロールにConnectionStringをセットする時です。 もちろんフロッピーディスクは指定していません。 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DB1.mdb;" MO等のリムーバルディスクでも同じような症状です。 ハードディスク上かメディアを抜かなければ全く問題ありません。 ADOのコネクション以外のところでは異常終了はしませんが フォームを開くときにアクセスに行きます。 コモンダイアログのFileNameをハードディスク上のファイルを指定して 終了させても解決しません。とにかくコモンダイアログを一切使わないか ユーザ自信がハードディスク上のファイルを指定しないといけないようです。 全く同じでは無いにしろ、似たような現象にあった方はいらっしゃいませんか？ その場合の対処法をアドバイスしていただけると助かります。
- ベストアンサー
- Visual Basic
- VB6のツールボックスへのコンポーネントの追加
VB6（SP6）のツールボックスですが、コンポーネントを追加した後にVBを保存して閉じ、再度開くと、先に追加したコンポーネントが表示されません。（再度追加は可能です） OSは2000です。 ＜具体例＞ (1).コンポーネントの追加で Microsoft DataGrid Control 6.0(SP6)(OLEDB) をチェックして適用（ＯＫ）。 (2).DataGridをフォーム内に作成。 (3).プロジェクト、フォームを保存して閉じる。 (4).起動してみるとツールボックスには先程追加したMicrosoft DataGrid Control 6.0(SP6)(OLEDB)がなく、フォーム内にもDataGridが白抜きの状態になっています。 ツールボックスの保存機能はあるのでしょうか？ 毎回ファイルを開く度にコンポーネントを追加しているため手間がかかっております。教えていただけないでしょうか。お願いします。
- ベストアンサー
- Visual Basic
- コントロール使わずdropdownlistにDB項目設定
OleDbConnectionや、OleDbDataAdapterのコントロールを使わずに dropdownlistにDBにある列の値を設定したいとき、どうしたらいいでしょうか。 自分のコード ' 接続 Dim conn As New System.Data.OleDb.OleDbConnection( _ "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Database Password=;Data Source=""C:\Inetpub\Database\情報ＤＢ.mdb"";Password=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False") strTerminal = "SELECT * FROM [コード]" Dim dt1 As New System.Data.DataSet ''端末コードデータコピーする If Not IsPostBack Then adapterTerminal.Fill(dt1) ddl1.DataSource = dt1 ddl1.DataMember = "[コード]" ddl1.DataTextField = "[名称]" ddl1.DataBind() end If 実行しても、コンボボックスには空のまま＞＜ 設定方法くわしい方教えてください。 よろしくお願いします。
- ベストアンサー
- Microsoft ASP
- VB.net教えてくださいｍ（＿＿）ｍ（初心者）
VB.netで、ACCESSのデータベース(以下DB)に接続して、DBの内容を、ブラウザ上でVB.netのコントロール"DataGrid"(以下DG)に表示させるプログラムを作成しています。 Dim dc As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\練習フォルダ\練習データベース.mdb") dc.Open() Dim cmd As New OleDb.OleDbCommand _ ("SELECT mikan,ringo,nasi,budou from Q_フルー ツ", dc) dgITIRAN.DataSource = cmd.ExecuteReader() dgITIRAN.DataBind() dc.Close() 以上のソースで、画面に表示させるところまではできたのですが・・・。 1.コード上で、DBのレコード数が知りたいのですが(DB上にいくつデータがあるかを変数にいれたい)どのように記述すればよいでしょうか？ 2.例えば、データが20件あって、ページングの設定で10件しか表示させない場合、コマンドボタン「前ページ」と「後ページ」を作った場合、どのようなコードを書けばよいでしょうか？
- ベストアンサー
- Visual Basic
- ADOを使いDBへ読み書きしたい
VB初心者です。よろしくお願いします。 今、VBのActiveXドキュメントを使い、ブラウザ上で利用できるシステムを作ろうと思っています。その際、Textboxに入力されたデータをADOを使いAccess2003に格納したいのですが、うまくいきません。DAOではうまくいきました。 コードは以下の通りです。 Private Sub Command1_Click() Dim db As ADODB.Connection Dim rst1 As ADODB.Recordset Set db = New ADODB.Connection db.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source = 'データへのパス'\zaseki3.mdb" db.Open MsgBox ("接続成功") Set rst1 = New ADODB.Recordset ☆☆rst1.Open "T-利用者", db,adOpenForwardOnly,adLockOptimistic With rst1 .AddNew .Fields("氏名") = Text1 .Update End With rst1.Close db.Close Set db = Nothing Set rst1 = Nothing End Sub ☆☆のところでエラーが発生します。エラー内容は次の通りです。 実行時エラー'-2147217900(80040e14)': SQLステートメントが正しくありません。'DELETE'などを使用してく ださい。 環境は Windows XP, VB6.0, Access2003 です。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- VB2005でDB接続後、DBを後からパスワードを付けた時のVB設定を教えて下さい。
VB2005が超初心者ですがよろしくお願いいたします。 VB2005でACCESSのDBに接続後、後からパスワードをDBにつけた時のVB設定を教えて下さい。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Accessファイルの絶対パス;Persist Security Info=False;Jet OLEDB:Database Password=パスワード 上記の事もやりましたが下記のエラーが出ます。 If (Me._connection Is Nothing) Then Me.InitConnection End If －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 初心者の私ではこれ以上はいじれません。 簡単に設定出来ないでしょうか？ よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VB6+SQLServer2005 DBの新規作成
VB6+ADOを使用してSQLサーバーの新規データベースファイルを 作成しようと思っております。下記のようなプログラムを つくりましたがうまく動きません。お知恵を貸してください。 catDB.Createのところで 「インターフェイスがサポートされていません」 とエラーが出ます。 いままでAccess2000で動かしていたものをSQL2005に移設している ところです。 SQLサーバーは、はじめて触ります '--------------------------------------------- 'Const ADO_VERSION ="Microsoft.Jet.OLEDB.4.0;" Const ADO_VERSION ="SQLOLEDB;" '--------------------------------------------- Set catDB = New ADOX.Catalog catDB.Create "Provider=" ADO_VERSION & _ "Data Source=" & "d:\test"
- ベストアンサー
- Visual Basic
- コモンダイアログコントロールがコンポーネントにありません
VB6.0 win2000を使用しています。 コモンダイアログを使用したいと思い、 メニューの[プロジェクト]－[コンポーネント]Microsoft Common Dialog Control 6.0にチェックを入れようとしたところ、 メニューにMicrosoft Common Dialog Control 6.0がありません。 これはどうしたらいいのでしょうか？ VB超初心者です。 よろしくご指導お願いします_(__)_
- ベストアンサー
- Visual Basic
- DBの更新？？
ソースは下記です。 Set db=Server.CreateObject("ADODB.Connection") db.Provider="Microsoft.Jet.OLEDB.4.0" db.Mode=2 db.ConnectionString=Server.MapPath("../../script/db_dat/crv_haken.mdb") db.Open Set rs=db.Execute("select * from control " ) rs("day-upd") = Request.Form("編集担当") rs("tanto-upd") = date rs.update rs.Close db.Close Set db=Nothing で・・・実行しますと エラー タイプ ADODB.Recordset (0x800A0CB3) 現在の Recordset は更新をサポートしていません。プロバイダか、選択されたロックタイプの限界の可能性があります。 のメッセージがでます。 何が原因でしょうか？お教えください。
- ベストアンサー
- Microsoft ASP
お礼
ありがとうございました。とても参考になりました。