VB代码转变为VC的代码

Question

很简单，可能楼主不懂c，搜下 vc+ado和clistctrl用法就行了，使用上面的连接字符串。

Answer 1

请高手解决:
 代码:   m_adodc.SetRecordSource(_T("select top 25 * from Exat_0  ORDER BY fd  DESC where fd =" &K ));
编译通不过:
error C2296: '&' : illegal, left operand has type 'char [58]'

Answer 2

_T("select top 25 * from Exat_0  ORDER BY fd  DESC where fd =" &K )
请问楼主，这是个什么东东
不会用 CString 和 CString::Format() 吗

Answer 3

仅供参考
//Private Sub Form_Load()
void Form_Load()
{
        //Dim Cnn As New ADODB.Connection
    _ConnectionPtr Cnn = new _ConnectionPtr;
            //Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 系统测试.mdb"
    Connstr = _T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 系统测试.mdb");
    //Cnn.Open Connstr
    Cnn.Open Connstr;
    //Set rs = Cnn.Execute("select * from S值表")
    Set rs = Cnn.Execute(_T("select * from S值表"));
        //Text1.Text = s
    Text1.Text = s;
    //Adodc1.ConnectionString = Connstr
    Adodc1.ConnectionString = Connstr;
    //Adodc1.CommandType = adCmdText
    Adodc1.CommandType = adCmdText;
        //sql = "SELECT * FROM 股票系统测试表 where 时间 = " & s
    sql = _T("SELECT * FROM 股票系统测试表 where 时间 = ") & s;
                //Adodc1.RecordSource = sql
    Adodc1.RecordSource = sql;
            //Adodc1.Refresh
    Adodc1.Refresh;
    //Set Text1.DataSource = Adodc1
    Set Text1.DataSource = Adodc1;
    //Text1.DataField = "时间"
    Text1.DataField = _T("时间");
    //For i = 1 To MSHFlexGrid1.Rows - 1
    for(i = 1;i <=MSHFlexGrid1.Rows - 1;i ++)
    {
        //MSHFlexGrid1.Row = i
        MSHFlexGrid1.Row = i;
        //MSHFlexGrid1.Col = 3
        MSHFlexGrid1.Col = 3;
        //If MSHFlexGrid1.Text > 0 Then
        if(MSHFlexGrid1.Text > 0)
        {
            //MSHFlexGrid1.CellForeColor = vbRed
            MSHFlexGrid1.CellForeColor = vbRed;
            //MSHFlexGrid1.Col = 2
            MSHFlexGrid1.Col = 2;
            //MSHFlexGrid1.CellForeColor = vbRed
            MSHFlexGrid1.CellForeColor = vbRed;
            //MSHFlexGrid1.Col = 5
            MSHFlexGrid1.Col = 5;
            //MSHFlexGrid1.CellForeColor = vbRed
            MSHFlexGrid1.CellForeColor = vbRed;
            //MSHFlexGrid1.Col = 1
            MSHFlexGrid1.Col = 1;
            //MSHFlexGrid1.CellForeColor = vbRed
            MSHFlexGrid1.CellForeColor = vbRed;
            //Else
        }
        else
        {
            //If MSHFlexGrid1.Text < 0 Then
            if(MSHFlexGrid1.Text < 0)
            {
                //MSHFlexGrid1.CellForeColor = vbGreen
                MSHFlexGrid1.CellForeColor = vbGreen;
                //MSHFlexGrid1.Col = 2
                MSHFlexGrid1.Col = 2;
                //MSHFlexGrid1.CellForeColor = vbGreen
                MSHFlexGrid1.CellForeColor = vbGreen;
                //MSHFlexGrid1.Col = 6
                MSHFlexGrid1.Col = 6;
                //MSHFlexGrid1.CellForeColor = vbGreen
                MSHFlexGrid1.CellForeColor = vbGreen;
                //MSHFlexGrid1.Col = 1
                MSHFlexGrid1.Col = 1;
                //MSHFlexGrid1.CellForeColor = vbGreen
                MSHFlexGrid1.CellForeColor = vbGreen;
            //End If
            }
        //End If
        }
    //Next
    }
    //End Sub

Answer 4

//Private Sub Form_Load()
void Form_Load()
{
        //Dim Cnn As New ADODB.Connection
    _ConnectionPtr Cnn = new _ConnectionPtr(__uuidof(Connection));
            //Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 系统测试.mdb"
    Connstr = _T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 系统测试.mdb");
    //Cnn.Open Connstr
    Cnn.Open( Connstr);
    //Set rs = Cnn.Execute("select * from S值表")
    rs = Cnn.Execute(_T("select * from S值表"));
        //Text1.Text = s
    Text1.Text = s;
    //Adodc1.ConnectionString = Connstr
    Adodc1.ConnectionString = Connstr;
    //Adodc1.CommandType = adCmdText
    Adodc1.CommandType = adCmdText;
        //sql = "SELECT * FROM 股票系统测试表 where 时间 = " & s
    sql = _T("SELECT * FROM 股票系统测试表 where 时间 = ") & s;
                //Adodc1.RecordSource = sql
    Adodc1.RecordSource = sql;
            //Adodc1.Refresh
    Adodc1.Refresh;
    //Set Text1.DataSource = Adodc1
    Text1.DataSource = Adodc1;
    //Text1.DataField = "时间"
    Text1.DataField = _T("时间");
    //For i = 1 To MSHFlexGrid1.Rows - 1
    for(i = 1;i <=MSHFlexGrid1.Rows - 1;i ++)
    {
        //MSHFlexGrid1.Row = i
        MSHFlexGrid1.Row = i;
        //MSHFlexGrid1.Col = 3
        MSHFlexGrid1.Col = 3;
        //If MSHFlexGrid1.Text > 0 Then
        if(MSHFlexGrid1.Text > 0)
        {
            //MSHFlexGrid1.CellForeColor = vbRed
            MSHFlexGrid1.CellForeColor = vbRed;
            //MSHFlexGrid1.Col = 2
            MSHFlexGrid1.Col = 2;
            //MSHFlexGrid1.CellForeColor = vbRed
            MSHFlexGrid1.CellForeColor = vbRed;
            //MSHFlexGrid1.Col = 5
            MSHFlexGrid1.Col = 5;
            //MSHFlexGrid1.CellForeColor = vbRed
            MSHFlexGrid1.CellForeColor = vbRed;
            //MSHFlexGrid1.Col = 1
            MSHFlexGrid1.Col = 1;
            //MSHFlexGrid1.CellForeColor = vbRed
            MSHFlexGrid1.CellForeColor = vbRed;
            //Else
        }
        else
        {
            //If MSHFlexGrid1.Text < 0 Then
            if(MSHFlexGrid1.Text < 0)
            {
                //MSHFlexGrid1.CellForeColor = vbGreen
                MSHFlexGrid1.CellForeColor = vbGreen;
                //MSHFlexGrid1.Col = 2
                MSHFlexGrid1.Col = 2;
                //MSHFlexGrid1.CellForeColor = vbGreen
                MSHFlexGrid1.CellForeColor = vbGreen;
                //MSHFlexGrid1.Col = 6
                MSHFlexGrid1.Col = 6;
                //MSHFlexGrid1.CellForeColor = vbGreen
                MSHFlexGrid1.CellForeColor = vbGreen;
                //MSHFlexGrid1.Col = 1
                MSHFlexGrid1.Col = 1;
                //MSHFlexGrid1.CellForeColor = vbGreen
                MSHFlexGrid1.CellForeColor = vbGreen;
            //End If
            }
        //End If
        }
    //Next
    }
    //End Sub
}