With frmStatResult
If .StatResultcn.State = 1 Then
Set .DataGrid1.DataSource = Nothing
.StatResultrs.Close
.StatResultcn.Close
End If .StatResultcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GDatabasepath & ";Persist Security Info=False"
.StatResultrs.CursorLocation = adUseClient
.StatResultrs.Open "select [position]. [position], [personalinf].* from [position],[personalinf] where [position].[NO]=" & txtNO.Text & " and [position].[NO]=[personalinf].[NO]", .StatResultcn, adOpenDynamic, adLockReadOnly
Set .DataGrid1.DataSource = .StatResultrs
.Show
End With
结果显示出来的字段名是能不能在不修改数据库的基础上,把datagrid中显示的字段名改掉
可否通过SQL语句来实现
If .StatResultcn.State = 1 Then
Set .DataGrid1.DataSource = Nothing
.StatResultrs.Close
.StatResultcn.Close
End If .StatResultcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GDatabasepath & ";Persist Security Info=False"
.StatResultrs.CursorLocation = adUseClient
.StatResultrs.Open "select [position]. [position], [personalinf].* from [position],[personalinf] where [position].[NO]=" & txtNO.Text & " and [position].[NO]=[personalinf].[NO]", .StatResultcn, adOpenDynamic, adLockReadOnly
Set .DataGrid1.DataSource = .StatResultrs
.Show
End With
结果显示出来的字段名是能不能在不修改数据库的基础上,把datagrid中显示的字段名改掉
可否通过SQL语句来实现
解决方案 »
- 为什么 当窗体最大化时, scalewidth=21000,而scalheight却只有1200,相差近20倍,显然不合理呀
- 高分求救发送值为&H82的字符
- 用代理问题~~~~~~~~~~
- vb如何重新启动sqlserver服务,如果sqlserver不是在本机呢?
- 各位兄弟帮帮忙吧
- 能用 vb开发sniffer程序 吗??
- 强烈呼吁CSDN改善速度,收费也可以!每月30 RMB还是可以接受地!
- csdn的高手都去哪里了,都去种田去了吗?我的问题怎么没人回答呢?(在线等待)
- 我该如何修改数据库来接受数据!高手请进!
- multipart/form-data型表单怎么POST
- 哪里有用vb做的课程管理系统,毕业设计急需!!!
- 进度条如何实现?
update table_name set columns_name=" " where 条件