DataReport如何用代码实现与数据库的连接。

Question

DataReport如何用代码实现与数据库的连接。

Answer 1

跟窗体联接数据库是一样的
在CSDN有很多这样例子，建议到数据库专栏去看一下

Answer 2

DbFileName = App.Path & "\mydata.mdb"
        connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                   DbFileName & ";Persist Security Info=False;"
    
DataEnvironment1.Connection1.Open connectstring
'DataEnvironment1.Connection1.Execute "select * from mz"
DataEnvironment1.rsCommand1.Open "select * from mz where ID＝'111'"
DataReport1.Show

Answer 3

Dim rsPrint As ADODB.Recordset
    Set rsPrint = New ADODB.Recordset
    rsPrint.CursorLocation = adUseClient
     With rsPrint.Fields
        .Append "lineid", adVariant
        .Append "partno", adVariant
        .Append "partname", adVariant
        .Append "unit", adVariant
        .Append "qty1", adVariant
        .Append "qty2", adVariant
        .Append "re", adVariant
    End With
    rsPrint.Open
    For i = 1 To GrdE.Rows
             If i < GrdE.Rows Then
                  With GrdE
                      rsPrint.AddNew
                      rsPrint.Fields("lineid") = i
                      rsPrint.Fields("partno") = .TextMatrix(i, C_PartNo)
                      rsPrint.Fields("partname") = .TextMatrix(i, C_PartName)
                      rsPrint.Fields("unit") = .TextMatrix(i, C_Unit)
                      rsPrint.Fields("qty1") = .TextMatrix(i, C_Qty1)
                      rsPrint.Fields("qty2") = .TextMatrix(i, C_Qty2)
                      rsPrint.Fields("re") = .TextMatrix(i, C_ReMark)
                      rsPrint.Update
                  End With
             End If
     Next
     rsPrint.AddNew
     rsPrint.Fields("partno") = "フ....."
     rsPrint.Update
    Set rptWlLead.DataSource = rsPrint
    With rptWlLead.Sections.Item("section2").Controls
        .Item("lblleadno").Caption = txtLeadNo.Text
        .Item("lblleaddate").Caption = dtpLeadDate.Value
        .Item("lbldept").Caption = cboDeptID.Text
        .Item("lblwltype").Caption = cboWareHouseID.Text
    End With
    With rptWlLead.Sections.Item("section1").Controls
        .Item("txtlineid").DataField = "lineid"
        .Item("txtpartno").DataField = "partno"
        .Item("txtpartname").DataField = "partname"
        .Item("txtunit").DataField = "unit"
        .Item("txtqty1").DataField = "qty1"
        .Item("txtqty2").DataField = "qty2"
        .Item("txtre").DataField = "re"
    End With
    'rptGSN.Sections.Item("section3").Controls.Item("lblre").Caption = txtRe.Text
    rptWlLead.Show vbModal
    rsPrint.Close
    Set rsPrint = Nothing

Answer 4

datasource进行动态绑定数据集,条件需要在设计时把datamember等绑定属性清空,只填写datafield属性.