VB6.0我想用2个COMMOND分别控制2个工位的信息，显示于datagrid，数据库已经连上。

Question

数据库中信息表为VIEW1 表中有工位号1，工位号2

Answer 1

可以考虑使用动态链接数据库表的办法

为Command1与Command2添加不同的sql查询语句可以实现

核心方法：

--------Command1_Click()--------

...

Adodc1.CommandType = adCmdText  '表命令

Adodc1.RecordSource = "select * from table1 where..."    '工位1

Adocd1.Refresh

--------Command2_Click()--------

Adodc1.CommandType = adCmdText  '表命令

Adodc1.RecordSource = "select * from table2 where..."    '工位2

Adodc1.Refresh

PS：如果你想让工位1和工位2的信息显示在不同的DataGrid中可以增加一个Adodc控件或者通过条件语句判断来实现。

Adodc1.Refresh更新DataGrid的数据就可以看到数据了，我自己做的测试程序已经通过了。

具体实现：

一个Adodc和一个DataGrid的实现：

①.Command1_Click后的事件响应

②.Command2_Click后的事件响应

两个Adodc和两个DataGrid的实现：

③.Command1_Click和Command2_Click后的事件响应

Answer 2

可以先编译工程2，假如编译后的文件名为“程序2.exe”，并放在“d:\”下。则工程1下的command1代码中只要这样写就可了：

Dim RetVal
RetVal = Shell("d:\程序1.exe", 1) ' 运行程序2。