我是菜鸟!DataGrid怎么显示不出来
我按照以前的贴子写的
Public objDataSet As DataSet
Public objDataAdpter As SqlDataAdapter
Public objSqlConnection As SqlConnection = New SqlConnection("workstation id=ZQF;packet size=4096;user id=dba;data source=SL;persist security info=True;initial catalog=fxbbdata;password=sql")
Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
objDataSet = New DataSet
objDataSet.Clear()
'实例化一个数据集对象
Try
objSqlConnection.Open()
Dim mycom As SqlCommand = New SqlCommand(sqlstr, objSqlConnection)
'打开数据库连接
objDataAdpter = New SqlDataAdapter(mycom)
'将数据库的数据映射到数据适配器
objDataAdpter.Fill(objDataSet)
'填充数据集的数据
objSqlConnection.Close()
DataGrid1.DataSource = Nothing
DataGrid1.DataSource=objDataSet.Tables(0)
'关闭数据连接,这一点很重要
Catch
MsgBox("错误号:" & Err.Number & "错误描述:" & Err.Description)
End Try
Return objDataSet
objDataSet = Nothing
End Function
结果是一片空白,什么都看不到!