vb中用adodc控件和datagrid控件结合,如何同时显示两个不同表中的同一东西信息?
例如我现在做的user_name,user_pwd,user_type(用0.1.2,表示用户名)放在表Users中,user_type,user_dis(用汉字表示用户...
例如我现在做的user_name,user_pwd,user_type(用0.1.2,表示用户名)放在表Users中,user_type,user_dis(用汉字表示用户类型)放在UserType中,在一个数据库中。想在datagrid里显示user_name,user_pwd,user_dis,这三个属性,我用了
Private Sub Form_Load()
Dim i As Integer
If Right(App.Path, 1) <> "" Then
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=homework;Data Source=0BFF1C55601845B"
Adodc1.RecordSource = "SELECT u.User_name,u.User_Pwd,t.Type_discription FROM Users u,UserType t Where t.User_type=u.User_type"
Adodc1.Refresh
End If
Set DataGrid1.DataSource = Adodc1
End Sub
这段语句,可显示后datagrid中没有显示数据!
哪位大侠帮帮忙!!谢了
我程序的倒数第二行明明有这句话!我也很奇怪,明明是连上的啊,上面的字段名都有显示,可是就是表格内容没有显示! 展开
Private Sub Form_Load()
Dim i As Integer
If Right(App.Path, 1) <> "" Then
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=homework;Data Source=0BFF1C55601845B"
Adodc1.RecordSource = "SELECT u.User_name,u.User_Pwd,t.Type_discription FROM Users u,UserType t Where t.User_type=u.User_type"
Adodc1.Refresh
End If
Set DataGrid1.DataSource = Adodc1
End Sub
这段语句,可显示后datagrid中没有显示数据!
哪位大侠帮帮忙!!谢了
我程序的倒数第二行明明有这句话!我也很奇怪,明明是连上的啊,上面的字段名都有显示,可是就是表格内容没有显示! 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询