vb6 crystal report- subreport - Visual Basic Discussion Boards

im newbie programmer... im not understand...

please advise... Cry | :((

The data is encrypted so if you do not know how it was encrypted there is nothing you can do.

Can i change the string with:

<add name="ConnDB" connectionString="Data Source=localhost; Initial Catalog=DB_WB; User Id=sa; Password=123456; Integrate Security=false"
      providerName="System.Data.SqlClient"  />

Try it and see what happens.

If you typed that into the code, sure, it might work, IF that connection string is appropriate for your database and database engine.

Also, if that is an appropriate connection string, using the SA account is a horrible idea and a huge security risk to your database and the database server, subjecting both to being destroyed. Google for "SQL Injection Attack" for more information on why that is.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

good morning to all
any help me to do report card generation uing vb.net Blush | :O

Yes, but first you need to ask a proper question.

how create subreport with crystalReports in vb6 and access db=?
in my code i have error logon failed
please help me ,thanks

my code:

Private Sub lvButtons_H6_Click()

Dim Rs As New ADODB.Recordset

If Rs.State = 1 Then Rs.Close

' If Rs.State = 1 Then Rs.Close

If StrSQL = "" Then

Rs.Open "SELECT ID,GroupName,Fname,LName FROM tblMain ORDER BY ID ASC", Conn, adOpenStatic, adLockOptimistic

Else
On Error Resume Next
Rs.Open StrSQL, Conn, adOpenStatic, adLockOptimistic

End If

StrSQLPrint = Rs.Source
Set Me.VS.DataSource = Rs
PrintMember StrSQLPrint
End Sub

Private Sub PrintMember(StrSQL As String)
'On Error GoTo E_R

Dim Rs As New ADODB.Recordset
'Dim ObjApp As New CRAXDRT.Application
'Dim ObjRpt As New CRAXDRT.report
'Dim crDBTab As CRAXDRT.DatabaseTable

If Rs.State = 1 Then Rs.Close
'MsgBox StrSQL, vbCritical
Rs.Open StrSQL, Conn

Dim CrxApp As CRAXDRT.Application
Dim CrxRep As CRAXDRT.report
Dim crxSubreport As CRAXDRT.report
Dim crxSubreportObject As SubreportObject
Dim crxDatabase As CRAXDRT.Database
Dim crxDatabaseTables As CRAXDRT.DatabaseTables
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Dim crxSections As CRAXDRT.Sections
Dim crxSection As CRAXDRT.Section
Dim CRXReportObject As Object

Set CrxApp = New CRAXDRT.Application
Set CrxRep = CrxApp.OpenReport(App.Path & "\Reports\R.rpt")
CrxRep.Database.SetDataSource Rs

Set crxSections = CrxRep.Sections

For Each crxSection In crxSections
For Each CRXReportObject In crxSection.ReportObjects
If CRXReportObject.Kind = crSubreportObject Then
Set crxSubreportObject = CRXReportObject
Set crxSubreport = crxSubreportObject.OpenSubreport
Set crxDatabase = crxSubreport.Database
Set crxDatabaseTables = crxDatabase.Tables

For Each crxDatabaseTable In crxDatabaseTables

crxDatabaseTable.Location = App.Path & "\Database.mdb"

crxDatabaseTable.SetLogOnInfo "Local", "Database.mdb", "Admin", "123456"
Next

Set crxSubreport = Nothing
End If
Next
Next

Frm_Preview.CR.ReportSource = CrxRep
Frm_Preview.CR.ViewReport
Frm_Preview.Show vbModeless, MainForm

Set crxDatabase = Nothing
Set crxDatabaseTable = Nothing
Set crxDatabaseTables = Nothing
Set crxSections = Nothing
Set crxSection = Nothing
Set crxSubreportObject = Nothing
Set crxReport = Nothing
Set crxApplication = Nothing
End sub

modified 7-Apr-17 19:09pm.

hoomi_ghost wrote:
please complete source for download

That's not how it works.

Even if you had provided a complete and actionable specification, this is not a "write-my-code-for-me" site.

We're happy to help with specific questions about code you have written. But nobody here is going to write the code for you.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

i edited my question
thanks

hoomi_ghost said:
tanks

here you go[^]

You're asking for source code written in a language that's been obsolete for 16 years now.

Yeah, good luck with that.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Hi,
i have a question like ..suppose i have a string= "help" and I want to sort it in an alphabetically order like=ehlp . i need a code for it.

Sorry, but this site does not offer code writing services.

Try it yourself first. If you then got stuck, post what you have done so far and we will try to help.

Another option is searching the web. It should be no problem to find something that can be at least used as starting point.

thanks for your reply can you please tell me from where i can get the code

By using an appropriate search term entered into the input field of your favorite search engine.

If this is some kind of homework you should be aware that your teacher might read here and has done similar research to identify copy and paste solutions.

So the option of doing it yourself is probably the best (and intended!) one.

Thanks sir

So i have a accdb name itemdb with table name Products and i want to subtract the value input in the txtbox8 to the field name RegBal

so far i have this code

Imports System.Data.OleDb
Public Class Order

    Public conString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Landon-PC\Documents\Visual Studio 2010\Projects\Final\Final\bin\Debug\itemdb.accdb;Persist Security Info=False"
    Public con As New OleDbConnection


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = conString
        If con.State = ConnectionState.Closed Then
            con.Open()
            MsgBox("Connected")
        End If
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim sqlQuery As String = "SELECT itemdb.Products, Products.RegBal, Products.RegBal-  " & TextBox8.Text & "

            Dim sqlCommand As New OleDbCommand

            With sqlCommand
                .CommandText = sqlQuery
                .Connection = con
                .ExecuteNonQuery()
            End With
            MsgBox("SAVED")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
        Main.Show()

    End Sub
End Class

Your code is vulnerable to SQL Injection[^]. NEVER use string concatenation to build a SQL query. ALWAYS use a parameterized query.

Everything you wanted to know about SQL injection (but were afraid to ask) | Troy Hunt[^]
How can I explain SQL injection without technical jargon? | Information Security Stack Exchange[^]
Query Parameterization Cheat Sheet | OWASP[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

First Richard Deeming is right, do not concatenate SQL strings form user input, wide open to injection attack, use parameterised queries.

That said your SQL will do what you ask, however it is a SELECT statement which will return rows of data to your program, take it that part of your sqlQuery string is missing as you also need a FROM and table name.

You execute it as NonQuery which will return nothing from a SELECT anyway, you need to look at UPDATE if you want to alter the values in table(s).

Hy. I have VB page. Now I added Page_Load with some actions in it and I got error

Error BC30652 Reference required to assembly 'App_Code.ukzuepxw, Version=1.0.6298.24385, Culture=neutral, PublicKeyToken=null' containing the type '[Global]'. Add one to your project.

I fixed it, by commenting the function and reloading the environment. And when I started to run my app, it worked without function off course, because it is commented. So now it looks like there is a problem with function though no syntax error detected. So what I did is I uncommented that function during runtime and reloaded the page. And it works. Could you explain me what`s going on here.

modified 30-Mar-17 7:56am.

Means VS cannot find the assembly that is to contain that function. Since it is now in comments, the compiler ignores it.

Add a reference to the assembly. Google knows how Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Hy, I get error Object reference not set to an instance of an object.

code:

VB

For index = 1 To Data.Count
          table_Rows = table_Rows + <![CDATA[
         <tr>
              <td style = "padding-bottom: 2px; width: 161px; padding-top: 2px; border-bottom: gray 1px solid;
                  height: 25px" >
                  ]]>.Value
          table_Rows = table_Rows + Data.Item(index).InnerText
          table_Rows = table_Rows + <![CDATA[</td>
              <td align = "right" style="padding-right: 5px; padding-left: 2px; padding-bottom: 2px;
                  width: 160px; padding-top: 2px; border-bottom: gray 1px solid; height: 25px">
               ]]>.Value
          table_Rows = biblioteka.Item(index).InnerText
          table_Rows = <![CDATA[</td>
              <td style = "padding-bottom: 2px; padding-top: 2px; border-bottom: gray 1px solid;
                  height: 25px" >
              </td>
                      </tr>
      ]]>.Value


      Next

the error points to rows:

VB

table_Rows = Data.Item(index).InnerText

and

VB

table_Rows = lib.Item(index).InnerText

modified 30-Mar-17 6:24am.

The Message means that there is no Object to be found at the 'index'-Position.

Perhaps you should look how your Array is build up - normally it starts with index=0.
So your Loop should be :

VB

For index = 0 To Data.Count -1

you are right. Thanks for pointing me on the way. I can`t imagine how did I miss this solution.