问题描述
我的代码如下，怎么解决这个问题啊，想了很久。button1是查询表名，button2是查询选中的表内容PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimstrConnectionAsString="Server=DELL-PCSQLEXPRESS;database=renshi;uid=ouqing;pwd=123;"DimsqlConnection1AsNewSqlConnection(strConnection)DimdataAdapterAsNewSqlDataAdapterDimdstAsNewDataSetDimdtAsNewDataTablesqlConnection1.Open()'打开数据库IfTextBox1.Text=""ThenDimsqlAsString="selectnameFromsys.tables"DimcmdAsSqlCommand=NewSqlCommand(sql,sqlConnection1)dataAdapter.SelectCommand=cmddataAdapter.Fill(dst,"name")dt=dst.Tables("name")sqlConnection1.Close()'关闭数据库DataGridView1.AutoGenerateColumns=True'自动创建列DataGridView1.DataSource=dtElseDimsqlAsString="selectnameFromsys.tableswherenamelike'"&TextBox1.Text&"'"DimcmdAsSqlCommand=NewSqlCommand(sql,sqlConnection1)dataAdapter.SelectCommand=cmddataAdapter.Fill(dst,"name")dt=dst.Tables("name")sqlConnection1.Close()'关闭数据库DataGridView1.AutoGenerateColumns=True'自动创建列DataGridView1.DataSource=dtEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimSelRowCollAsDataGridViewSelectedRowCollectionDimdgvRowAsDataRowDimtAsNewClass1DimiAsIntegerSelRowColl=DataGridView1.SelectedRowsFori=0ToSelRowColl.Count-1dgvRow=DataGridView1.SelectedCells.Item(i).Value'可得到选中的每一行t.setuse(dgvRow)NextForm20.Show()EndSub
解决方案
解决方案二：
vb.net连接sql数据库查询表格名显示到DataGridView中，如何点击选择一个表名查询整个表的内容
解决方案三：
datagridview里有cell的选中点击事件，点击该列格子时触发这个事件，事件里实现单击格子的内容提取，也就是你的表名，然后调用查询(表名知道了，查询这个你该会的)，然后把结果放入新的datagridvew进行展示，就ok感觉你该知道怎么办的啊，不知道datagridvew的触发事件？建议仔细研究下各事件，实现方法不只一种。
解决方案四：
能给点代码例子看看吗/
解决方案五：
先取出数据库的表放在combox中，DimsqlAsString="selectnameFrom“+combox.selectitem
解决方案六：
取出表名，放入listbox中，PublicFunctionGetTableNameList()AsList(OfString)DimlistAsNewList(OfString)()DimConnAsNewOleDbConnection(ConnStr)TryIfConn.State=ConnectionState.ClosedThenConn.Open()EndIfDimdtAsDataTable=Conn.GetSchema("Tables")ForEachrowAsDataRowIndt.RowsIfrow(3).ToString()="TABLE"Thenlist.Add(row(2).ToString())EndIfNextReturnlistCatcheAsExceptionThroweFinallyIfConn.State=ConnectionState.OpenThenConn.Close()EndIfConn.Dispose()EndTryEndFunction‘选择一个表，再显示这表的内容，我用mdb来测试，sql类似PrivateSubButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesButton19.ClickDimtablenameAsString=ListBox1.SelectedItemDimconnstrAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=stu.mdb"DimsqltxtAsString="select*from["+tablename+"]"DimconnAsNewOleDb.OleDbConnection(connstr)DimdaAsNewOleDb.OleDbDataAdapter()da.SelectCommand=NewOleDbCommand(sqltxt,conn)DimdtAsNewDataTableTryconn.Open()'打开连接da.Fill(dt)DataGridView1.DataSource=dtCatchexAsExceptionMsgBox(ex.Message)FinallyEndTryEndSub