vb 6.0 data report

Page 1 of 1

3 Replies - 5022 Views - Last Post: 02 July 2010 - 09:13 PM Rate Topic: -----

#1 vbdoubt  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 26
  • Joined: 27-June 10

vb 6.0 data report

Posted 27 June 2010 - 10:48 PM 

On Error Resume Next
data = Combo1.Text
data = Replace(data, ", ", "_")

date1 = Format(CDate(Text1.Text), "yy-mm-dd")
date2 = Format(CDate(Text2.Text), "yy-mm-dd")

Set rec = Nothing
rec.Open "Select * from " & data & " where format(cdate(collection_date))between " & date1 & " And " & date2 & "", con, adOpenDynamic, adLockOptimistic

Set Exploration.DataSource = rec
While Not rec.EOF

Exploration.Sections("section1").Controls.Item("Text1").DataField = rec.Fields("Genus")
Exploration.Sections("section1").Controls.Item("Text9").DataField = rec.Fields("Species")
Exploration.Sections("section1").Controls.Item("Text2").DataField = rec.Fields("Material type")
Exploration.Sections("section1").Controls.Item("Text3").DataField = rec.Fields("Collection_date")
Exploration.Sections("section1").Controls.Item("Text4").DataField = rec.Fields("Latitude")
Exploration.Sections("section1").Controls.Item("Text5").DataField = rec.Fields("Longitude")
Exploration.Sections("section1").Controls.Item("Text6").DataField = rec.Fields("Altitude")
Exploration.Sections("section1").Controls.Item("Text7").DataField = rec.Fields("District")
Exploration.Sections("section1").Controls.Item("Text8").DataField = rec.Fields("State")
Exploration.Sections("section1").Controls.Item("Text10").DataField = rec.Fields("Village")
rec.MoveNext
Wend

DataReport1.Show

i wrote this code for different table with same structure.But its showing data field not found.

This post has been edited by JackOfAllTrades: 28 June 2010 - 08:41 AM
Reason for edit:: Added code tags


Is This A Good Question/Topic? 0
  • +

Replies To: vb 6.0 data report

#2 Guest_S. JEYARAMAN*


Reputation:

Re: vb 6.0 data report

Posted 28 June 2010 - 08:39 AM

View Postvbdoubt, on 27 June 2010 - 09:48 PM, said:

On Error Resume Next
data = Combo1.Text
data = Replace(data, ", ", "_")

date1 = Format(CDate(Text1.Text), "yy-mm-dd")
date2 = Format(CDate(Text2.Text), "yy-mm-dd")

Set rec = Nothing
rec.Open "Select * from " & data & " where format(cdate(collection_date))between " & date1 & " And " & date2 & "", con, adOpenDynamic, adLockOptimistic

Set Exploration.DataSource = rec
While Not rec.EOF

Exploration.Sections("section1").Controls.Item("Text1").DataField = rec.Fields("Genus")
Exploration.Sections("section1").Controls.Item("Text9").DataField = rec.Fields("Species")
Exploration.Sections("section1").Controls.Item("Text2").DataField = rec.Fields("Material type")
Exploration.Sections("section1").Controls.Item("Text3").DataField = rec.Fields("Collection_date")
Exploration.Sections("section1").Controls.Item("Text4").DataField = rec.Fields("Latitude")
Exploration.Sections("section1").Controls.Item("Text5").DataField = rec.Fields("Longitude")
Exploration.Sections("section1").Controls.Item("Text6").DataField = rec.Fields("Altitude")
Exploration.Sections("section1").Controls.Item("Text7").DataField = rec.Fields("District")
Exploration.Sections("section1").Controls.Item("Text8").DataField = rec.Fields("State")
Exploration.Sections("section1").Controls.Item("Text10").DataField = rec.Fields("Village")
rec.MoveNext
Wend

DataReport1.Show

i wrote this code for different table with same structure.But its showing data field not found.



TRY WITH THE FOLLOWING CODE TO SUIT YOU AND MAKE NECESSARY CHANGES THIS WONT SHOW DATA FIELD NOT FOUND

BUT THIS IS WITHOUT WITHOUT DATA ENVIRONMENT

Private Sub cmdfindbypdn_Click()
Dim sql As String
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= e:\ddrug.mdb" & ";" & _
        "Jet OLEDB:Database Password=dgk@vijay"
                            
con.Open
Set rs = New ADODB.Recordset
sql = "SELECT jobno,colour,customer,weight,date1,production,eqweight FROM qdrug WHERE production like '" & txtpdn.Text & "' AND date1 between # " + txtsdate.Text + " # AND # " + txtedate.Text + " # ORDER BY date1 "

rs.Open sql, con, adOpenStatic, adLockOptimistic


Set DataReport1.DataSource = rs
With DataReport1.Sections.Item("section1").Controls
    .Item("txtjobno").DataField = rs.Fields("jobno").Name
With DataReport1.Sections.Item("section1").Controls
    .Item("txtcolour").DataField = rs.Fields("colour").Name
With DataReport1.Sections.Item("section1").Controls
    .Item("txtcus").DataField = rs.Fields("customer").Name
With DataReport1.Sections.Item("section1").Controls
    .Item("txtdate").DataField = rs.Fields("date1").Name
    
With DataReport1.Sections.Item("section1").Controls
    .Item("txtpdn").DataField = rs.Fields("production").Name
    
With DataReport1.Sections.Item("section1").Controls
    .Item("txtweight").DataField = rs.Fields("weight").Name
    
With DataReport1.Sections.Item("section1").Controls
    .Item("txteqweight").DataField = rs.Fields("eqweight").Name
    
 With DataReport1.Sections.Item("section5").Controls
    .Item("txtsum").DataField = rs.Fields("weight").Name
    
 With DataReport1.Sections.Item("section5").Controls
    .Item("txtsum1").DataField = rs.Fields("eqweight").Name
    
DataReport1.DataMember = rs.DataMember

DataReport1.Show
End With
End With
End With
End With
End With
End With
End With
End With
End With

End Sub


WITH BEST REGARDS

S. JEYARAMAN

This post has been edited by JackOfAllTrades: 28 June 2010 - 08:42 AM
Reason for edit:: Added code tags

Was This Post Helpful? 0

#3 vbdoubt  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 26
  • Joined: 27-June 10

Re: vb 6.0 data report

Posted 30 June 2010 - 09:52 PM

Private Sub Command1_Click()
On Error Resume Next
data = Combo1.Text
data = Replace(data, ", ", "_")

date1 = Format(CDate(Text1.Text), "yy-mm-dd")
date2 = Format(CDate(Text2.Text), "yy-mm-dd")

Set rec = Nothing
rec.Open "Select * from " & data & " where Collection date between " & date1 & " and " & date2 & " ", con, adOpenDynamic, adLockOptimistic
Label6.Caption = IsDate(rec.Fields("Collection_date"))
Set datarpoert1.DataSource = rec

List1.AddItem rec.Fields("Collection_date")
With DataReport1.Sections("section1").Controls.Item("Text1").DataField = rec.Fields("Genus").Name
With DataReport1.Sections("section1").Controls.Item("Text2").DataField = rec.Fields("Species").Name
DataReport1.DataMember = rec.DataMember

DataReport1.Show vbModal
End With
End With

End Sub
Now the error is data source invalid.Is there any problem in my date comparison technique.Actually i am entering the date in ms access as text
Was This Post Helpful? 0
  • +
  • -

#4 vbdoubt  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 26
  • Joined: 27-June 10

Re: vb 6.0 data report

Posted 02 July 2010 - 09:13 PM

Than k u for ur help.I got the report using my code itself.The problem was the report width and some difference in data filed name.But again ia mfacing a proble.My qurey results so much but the report is displaying only single page.Is it possible for producing the data rreport in multiple pages.

This post has been edited by vbdoubt: 02 July 2010 - 09:17 PM

Was This Post Helpful? 0
  • +
  • -
Page 1 of 1