combobox获取sql数据库内的表并显示的方法

Question

在学数据库应用这门课,想做个小程序,用ado控件.
就是我有个sql的数据库student,下面4张表,student,sc,sdept,course.
用ado获取数据库是会了,就是要做个选择数据库的界面,作为第一个窗体,用combobox,下拉菜单里面是选择的表,下面加个command,按确定就打开第二个窗体,用datagrid显示这个表的内容...麻烦大家了...

Answer 1

        Dim StrSql As String
        Dim DTS As New DataSet        StrSql = "DECLARE @Var_DbName VarChar(64);" & _
                 "SET @Var_DbName= DB_NAME();" & _
                 "DECLARE @NVR_CMD NVARCHAR(1024);" & _
                 "SET @NVR_CMD='SELECT [NAME] AS Var_Name FROM ' + @Var_DbName + '.DBO.SYSOBJECTS WHERE TYPE=''U'' AND [NAME]<>''dtproperties'' ORDER BY [NAME]';" & _
                 "EXEC SP_EXECUTESQL @NVR_CMD;"        DTS = SQLGetDataSet(StrSql)        Return DTS

Answer 2

Private Sub Command1_Click()
    Load Form2
    Form2.Adodc1.CommandType = adCmdTable
    Form2.Adodc1.RecordSource = Combo1.Text
    Form2.Adodc1.Refresh
    Set Form2.DataGrid1.DataSource = Form2.Adodc1
    Form2.DataGrid1.ReBind
    Form2.Show
End Sub