締切済み

ListviewにDB内容を表示し方について

2005/06/16 18:28

DBには　ID 、NEME　、TELNUMBERがあります。この内容をListViewのID（ID)、名前（NAME)、電話番号（TELNUMBER)に表示したいですがよく分かりません。どなたがご存知のがた教えて下さい。　 Private Sub Form1_Load(ByVal 省略・・・・・・・・・　 myConnection.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=省略.mdb" Try 'DBに接続 myConnection.Open() Catch ex As Exception MsgBox("接続失敗しました。") End Try Const myList As String = "SELECT ID FROM T_TABLE " ''コネクションの設定 myCommand.CommandText = myList 'テーブルからデータを取る myAdapter.SelectCommand = myCommand DataSet1.Clear() myAdapter.Fill(DataSet1, "USERLIST") ここからよく分かりませんので、教えて下さい。宜しくお願いします。VB.NET初心者です。

lzw
お礼率0% (0/27)

Visual Basic
回答数1
ありがとう数0

回答全件

こんな感じですかね Dim myListItem As List…

2005/06/16 20:06

みんなの回答 （1）
専門家の回答

みんなの回答

AlexSuns
ベストアンサー率67% (78/115)

2005/06/16 20:06 回答No.1

こんな感じですかね Dim myListItem As ListViewItem For Each TableDataRow As DataRow In DataSet1.Tables("USERLIST").Rows myListItem = New ListViewitem(TableDataRow.Items("ID")) myListItem.SubItems.Add(TableDataRow.Items("NAME")) myListItem.SubItems.Add(TableDataRow.Items("TELNUMBER")) Me.ListView.Items.Add(myListItem) Next (テキストエディタで記述したので、動作保障はしかねますが...) 「DataRowCollection」をMSDNなどで調べてみることをお勧めしますまた解決されましたら、マルチポスト先でも解決方法を記述して置いてください

全文を見る

ログインすると、全ての回答が全文表示されます。

関連するQ&A

SQL パラメーターの表示について
度々お世話になります Windows7、VB2010(Windowsフォーム)、SQL Server で開発し、XPと7で画面を動かします今、SQLでパラメータを使っており、エラー処理で困っております SQLのパラメータの内容が表示されない(SQLが、「～～～～ WHERE KEN_ID = @KEN_ID」そのままになり、「～～～～　 KEN_ID = '01'」等にならない) です Dim sql As New StringBuilder Dim ds As DataSet Using con As New Common.DB(Common.Values.ConnectionString) Try sql.Append("SELECT KEN_NAM FROM KEN_M") sql.Append(" WHERE") sql.Append(" KEN_ID = @KEN_ID") con.ClearParameter() con.AddParameter("KEN_ID", strKenName) ds = con.GetDataSet(sql.ToString) Return dt Catch ex As Exception 'Throw New Exception(ex.ToString & vbCrLf & sql.ToString) MsgBox("県取得処理" & vbcrlf & Sql.Tostring) End Try End Using ---- ↓ 別プロジェクト ↓ --- Public Function GetDataSet(ByVal sql As String) As DataSet 　　　　 Command.CommandText = sql 　　　　 If String.IsNullOrEmpty(Command.CommandText) Then 　　　　Throw New Exception("SQLが指定されていません") End If Dim adapter As New SqlDataAdapter(Command) Try adapter.Fill(ds) Return ds Catch ex As Exception Throw New Exception("DataSetオブジェクトの取得に失敗しました。", ex) End Try と書いておりますよろしくお願いします
- ベストアンサー
- Visual Basic
DataGridの使用方法を教えてください
VB.NET2002で表形式で表示（参照のみ）させたいのですが,FlexGridはないようでDATAGridを使用するように書いてありましたが， DATAGridの使用方法がよく分かりません．どのような手順をふんでコードを記述するのか教えてください．１，フォームにDATAGrid1を貼り付け．（ボタンも貼り付け，ボタンクリックでSQL実行，表示のイメージ）２，Btn1_Clickに以下コード記述．色々参考にしていたらよく分からない状態になってしまいました．．．Ｑ．フォームのプロパティでのデザインは必須なんでしょうか？ Dim myConnection As New System.Data.OleDb.OleDbConnection(sConnectionString) Dim myCommand As New OleDb.OleDbCommand _ ("select * from データ", myConnection) Dim myReader As OleDb.OleDbDataReader Dim dst As New DataSet("Table") 'DataTable("DataTable") dst.Tables.Add(New DataTable("dst")) Dim dc As DataColumn myConnection.Open() myReader = myCommand.ExecuteReader 'データの読み込み While (myReader.Read) DataGrid1.DataSource = myReader.GetValue(0) End While DataGrid1.SetDataBinding(dst, "dst") myConnection.Close() myConnection = Nothing myReader.Close() myReader = Nothing myCommand = Nothing myConnection.Close() 'データベース閉じる myConnection = Nothing
- ベストアンサー
- Visual Basic
ＬＩＳＴBOXの内容が更新されません。
ＶＢ初心者です。よろしくお願いします。 visual　basic2010expressにて作成してます担当者の新規・更新のプログラムで　テキストBOX（２）・LISTbox（１）・ボタンで構成されてます。ＤＢを読み込み　ＬＩＳＴＢＯＸに表示し LISTBOXで　セレクトされたものを　テキストBOXに表示し　修正し更新処理（ＤＢ更新・LISTBOX更新）をします。新規の場合は　テキストBOXに入力し　新規処理（ＤＢ追加・LISTBOX更新）をします。ＤＢ更新迄はされるのですが　リストボックスに反映されません。再度　更新ボタンを押下すると　変更後の内容になります。初心者の為　コードが分かりにくいと思いますがよろしくお願いします。 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load '＊＊＊＊＊＊＊＊＊＊リストボックスセット＊＊＊＊＊＊＊＊＊＊ LISTBOX_SET() End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click '＊＊＊＊＊＊＊＊＊＊新規登録＊＊＊＊＊＊＊＊＊＊ 'データベース接続用オブジェクト生成 Try Dim CON As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\TEST.mdb") '開始 CON.Open() Dim selectcommand As String = "INSERT INTO tantousya (ta_no, ta_mei) VALUES ('{0}', '{1}' );" Using cmb As OleDbCommand = New OleDbCommand( String.Format( selectcommand, TextBox1.Text, TextBox2.Text), CON) cmb.ExecuteNonQuery() End Using '＊＊＊＊＊＊＊＊＊＊リストボックスセット＊＊＊＊＊＊＊＊＊＊ LISTBOX_SET() End Try End Sub Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click End End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click '＊＊＊＊＊＊＊＊＊＊変更登録＊＊＊＊＊＊＊＊＊＊ 'データベース接続用オブジェクト生成 Try Dim CON As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\TEST.mdb") '開始 CON.Open() Dim selectcommand As String = "UPDATE tantousya SET ta_mei = '{0}' WHERE ta_no = {1};" Using cmb As OleDbCommand = New OleDbCommand( String.Format(selectcommand, TextBox2.Text, TextBox1.Text), CON) cmb.ExecuteNonQuery() End Using　　　　　 '＊＊＊＊＊＊＊＊＊＊リストボックスセット＊＊＊＊＊＊＊＊＊＊ LISTBOX_SET() End Try End Sub Private Sub LISTBOX_SET() '＊＊＊＊＊＊＊＊＊＊リストボックスセット＊＊＊＊＊＊＊＊＊＊ '接続文字列 Dim i As Integer 'データベース接続用オブジェクト生成 Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\TEST.mdb") Try '開始 con.Open() Dim SQLCom As OleDbCommand = con.CreateCommand Dim selectcommand As String = "SELECT * FROM tantousya;" Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectcommand, con) Dim ds As DataSet = New DataSet() 'データーセット() da.Fill(ds) Dim LIST As List(Of String) = New List(Of String) 　　　　　　For i = 0 To ds.Tables(0).Rows.Count - 1 　　　　　LIST.Add(ds.Tables(0).Rows(i)("ta_no")　&　ds.Tables(0).Rows(i)("ta_mei") Next ListBox1.DataSource = LIST ・・・・・・・・・＜ここのLISTの内容は変更になってます＞・・・ Finally 'データベース終了 con.Close() End Try End Sub Private Sub ListBox1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown TextBox1.Text = MID(ListBox1.SelectedItem,1,2) 　　　　TextBox2.Text = MID(ListBox1.SelectedItem,3,10) End Sub
- 締切済み
- Visual Basic
MySQLとのOLE接続に関して
環境：Visual Basic2008 ＤＢ：MySQL 教えて下さい。 MySQLにOLEプロバイダ経由で接続したいと考え、以下のように記述しましたが、下記の★印のところで、次のようなエラーとなってしまいます。何が原因か教えて頂きたいと思います。よろしくお願いします。【エラー内容】エラーメッセージはありません。結果コードは E_FAIL(0x80004005) です。【記述内容】 ' 全レコードを取得してコンソールに出力 Dim syain As New DataTable() Dim msg As String Dim strOut As String Const SELECT_発注データ As String = "SELECT * FROM T_発注データ" Dim con As New OleDbConnection() Dim cmd As New OleDbCommand() Dim da As New OleDbDataAdapter() Dim dt As DataSet = New DataSet() Try ' DB接続文字列の設定 con.ConnectionString = "Provider=MySQLProv;Data Source=localhost;User Id=root;Password=000000;" ' コネクションの設定 cmd.Connection = con ' SQL文の設定 cmd.CommandText = SELECT_発注データ ' データを取得する da.SelectCommand = cmd da.Fill(syain)　　・・・・　★★★ Catch ex As Exception ' 例外が発生した時の処理 End Try
- ベストアンサー
- Visual Basic
DBへのコネクションタイムアウト
こんにちは。現在、VB.NETを用いて開発をしておりますが、DBがダウンしたときのタイムアウト時間の調整に苦慮しております。タイムアウトは環境ファイルに5秒（デフォルトは15秒かと思います）を設定しております。しかし、DBがダウンしておるとき以下の★の個所で約30秒以上経過しないとエラーが戻ってきません。タイムアウトのパラメータは認識しているようですが、秒数を変更しても状況は変わらずです。 Using sqlConnection As New SqlConnection Using sqlCommand As New SqlCommand sqlCommand.Connection = sqlConnection sqlCommand.CommandText = "SELECT * FROM TEST" Dim dataAdpt As New SqlDataAdapter Dim dataTble As New DataTable() dataAdp.SelectCommand = sqlCommand dataAdp.Fill(dataTble)★ ～ご存知の方いらっしゃいましたらご教示願います。
- ベストアンサー
- Visual Basic
Microsoft Access DBへの接続
Microsoft Access MDBへの接続方法で先日投稿致しましたが、接続方法が違う事が判明し別の方法で試しているのですがこちらの方法でも問題が発生しました。 require_once "adodb/adodb.inc.php"; $db = ADONewConnection("access"); $dsn = "Driver={Microsoft Access Driver (*.mdb)};Dbq=d:＼＼yoyaku.mdb;Uid=Admin;Pwd=;"; $db->Connect($dsn); if (!$db) { echo "NG"; } $sql = "select * from T_YOYAKU"; $rs = $db->Execute($sql); if ( $row = $rs->Fields(1) ) { 　if ( $row[YOYAKU_CODE] == "1" ) { $a="×"; } else { $a="○"; } } else { 　$a="○"; } DB接続の部分（Connectの部分）では問題は起きてないのですが、Execute文のところで問題が発生し、その下に記述してある処理が実行されていないのが現状です。インターネット等で調べても何も解決しなかったため、投稿致しました。ご教授お願い致します。
- 締切済み
- PHP
DataGrid(DataSet?)で列幅調整
VB.NET 2002使用フォーム上にDataGridコントロールを貼付け Form_Load()内に以下のように記述し、SQLを使用してデータを表示させるようにしていますが、列幅がデフォルト？になっているようで変更ができません。どのようなコードを記述すれば変更ができるのでしょうか。 MSDNやWEBサンプル（dobon.net）を参考にしてダメでした。 DataGridプロパティのDataGridTableStyleのコレクション内を色々さわってみてもダメ。 DataGridの設定・使用方をよく分かっていないのが問題なんだと思うのですが、「こういう記述をすればいい」というのがお分かりの方がいらっしゃいましたら教えてください。 <記述したコード（一部）> Public dst As New DataSet() Private Sub Form1_Load(省略) Handles MyBase.Load sql = "select 列１,列２ from テーブル" Dim myConnection ... Dim myCommand As New OleDb.OleDbDataAdapter(ssql, myConnection) dst.Clear() myCommand.Fill(dst) 'データセットにデータ取込み DataGrid1.DataSource = dst.Tables(0) 'DataGridにデータ取込み myCommand = Nothing myConnection.Close() 'データベース閉じる myConnection = Nothing Dim ts As New DataGridTableStyle() ts.MappingName = "DataTable1" 'サンプルからそのまま流用 Dim cs1 DataGridTextBoxColumn cs1 = New DataGridTextBoxColumn() cs1.MappingName="Column1" cs1.width = 200 ts.GridColumnStyles.Add(cs1) Dim cs2 DataGridTextBoxColumn cs2.MappingName="Column1" cs2 = New DataGridTextBoxColumn() cs2.width = 300 ts.GridColumnStyles.Add(cs2) DataGrid1.TableStyles.Add(ts) End sub
- 締切済み
- Visual Basic
VB2013でVB６でのDBは利用可能？
VB４.0で作成してましたMicrosoft.Jet.OLEDB.4.0のDBをSQLSERVER2012で作成したDBに移行したいのですが VB2013では読み込めないのでしょうか？データーベースエクスプローラーでは中身の確認はできるのですがプログラムで走らせるとSqlDataAdapter(sql, cnStr)のところでエラー下記[エラー結果]とになります Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\SERVER\DB名.mdb" Dim sql As String sql = "SELECT * FROM テーブル名" Dim dt1 As New DataTable Dim da1 As New SqlDataAdapter(sql, cnStr) Try da1.Fill(dt1) DataGridView1.DataSource = dt1 Catch ex As Exception End Try End Sub [エラー結果] 型 'System.ArgumentException' のハンドルされていない例外が System.Data.dll で発生しました追加情報:キーワードはサポートされていません : 'provider' 以前のmdbファイルが読み込める方法はないのでしょうか？
- ベストアンサー
- Visual Basic
Driver={Microsoft Access
アクセス２００７です。 Sub test() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim MyFile As String MyFile = "C:\test.accdb" cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\" & MyFile & ";" rs.Open "SELECT * FROM テーブル1", cn MsgBox "テーブルに接続出来ました。" rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub ********************************************************* を実行しても実行時エラーになります。 cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\" & MyFile & ";" を cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source= " & MyFile に変えればうまくいきますがなぜ、"Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\"じゃダメなのでしょうか？教えてくださいませ。
- ベストアンサー
- オフィス系ソフト
ＶＢＳの中で書くＳＱＬ文の記述方法
よろしくお願いします。 select * from db1 into id,password,date,name where db1_id = **** and db1_password = **** and db1_date = 99999999; （db1_id,db1_password,db1_dateがプライマリキー） db1という表からプライマリキーに該当したデータを取り出し、変数に格納したいと思っています。このＳＱＬ文をＡＳＰのＶＢＳの中で実現する方法を教えてください。 <% Dim Conn,SQL,RS Dim id Dim password Dim date Dim name db1=server.mappath("db1.mdb") DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db1 Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DBName SQL = "select * from db1" INTO = "into id,password,date,name" WHERE = "where db1_id = **** and db1_password = **** _ and db1_date = 99999999" SQL = SQL & INTO & WHERE & ";" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Conn,3,3 %> これでうまくいくかな～と思ったのですが・・・。
- 締切済み
- Microsoft ASP