16,719
社区成员
发帖
与我相关
我的任务
分享
Dim conn As New SqlConnection("Data Source=ZHUBAO-50521BCA;Initial Catalog=teacher;Integrated Security=True")
Dim da As New SqlDataAdapter("select 姓名,性别,单位,通讯地址 from teacher1,teacher2 where teacher1.ID=teacher2.ID", conn)
Dim ds As New DataSet()
da.Fill(ds)
DataGrid1.DataSource = ds.Tables(0)