Visual Basic

Re: how can i connect crystal report to sqlserver with vb.net code ?

9-Jul-09 0:58

Read this, it will help you

http://www.vbforums.com/showthread.php?p=2686697[^]

Shay Noy

Tom Deketelaere9-Jul-09 4:00

Tom Deketelaere

9-Jul-09 4:00

If you just want to update your connection settings (dbname / loginid / loginpass) this code will do:

Private Function reconnectreport(ByVal report As ReportDocument, ByVal servernaam As String, ByVal dbnaam As String, ByVal dbLogin As String, ByVal dbPass As String) As ReportDocument
        Try
            Dim connection As IConnectionInfo
            Dim oldServerName As String = report.DataSourceConnections(0).ServerName
            Dim newServerName As String = servernaam
            Dim oldDatabaseName As String = report.DataSourceConnections(0).DatabaseName
            Dim newDatabaseName As String = dbnaam
            Dim userID As String = dbLogin
            Dim password As String = dbPass
            report = report
            ' Change the server name and database in main reports
            For Each connection In report.DataSourceConnections
                If (String.Compare(connection.ServerName, oldServerName, True) = 0 _
                    And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then
                    ' SetConnection can also be used to set new logon and new database table
                    report.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _
                    newServerName, newDatabaseName, userID, password)
                End If
            Next
            ' Change the server name and database in subreports
            Dim subreport As ReportDocument
            For Each subreport In report.Subreports
                For Each connection In subreport.DataSourceConnections
                    If (String.Compare(connection.ServerName, oldServerName, True) = 0 _
                        And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then
                        ' SetConnection can also be used to set new logon and new database table
                        subreport.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _
                        newServerName, newDatabaseName, userID, password)
                    End If
                Next
            Next
            Return report
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return Nothing
        End Try
    End Function

visual basic help

Member 44064419-Jul-09 0:30

Member 4406441

9-Jul-09 0:30

please help in this regard. give the visual basic code for this as soon possible.

calculate difference between 2 dates and 2 times and display in years, months ,days,hours minutes in vb 6

for eg: if start date is 01/01/2008 and statr time is 10.45 am
end date is 02/02/2009 and end time is 11.45 am
it should display as 1 year 1 month 1 day 1 hour 0 minuts

helelark1239-Jul-09 0:56

9-Jul-09 0:56

Nobody is going to do your homework!
I can tell you that you need to use DateDiff function.
Good luck

Shay Noy

Christian Graus9-Jul-09 2:18

Christian Graus

9-Jul-09 2:18

If your course is in VB6, you should abandon it, it's a fair sign that your teachers are clueless morons.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Tom Deketelaere9-Jul-09 2:30

Tom Deketelaere

9-Jul-09 2:30

It keeps amazing me that there still are schools teaching this.
Couple days ago I answered very similar to you Smile | :)

Problems regarding the code to send sms using .Net

Christian Graus9-Jul-09 2:37

Christian Graus

9-Jul-09 2:37

Yeah, given that VB6 is obsolete, and VB.NET is free, I can only assume these guys are like the guys who used to teach C++, when they only really knew C.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

gjx_junxian19898-Jul-09 23:56

gjx_junxian1989

8-Jul-09 23:56

I got the codes to send sms using VB and i came across these two sample codes.

Sending SMS using .NET[^]

http://www.daniweb.com/forums/post250164-19.html#[^]

I copied and paste the following codes in my Class Library file. i have bold the codes with problems.

Option Explicit On
Imports System
Imports System.Threading
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.IO.Ports

Public Class SMSCOMMS
Private WithEvents SMSPort As SerialPort
Private SMSThread As Thread
Private ReadThread As Thread
Shared _Continue As Boolean = False
Shared _ContSMS As Boolean = False
Private _Wait As Boolean = False
Shared _ReadPort As Boolean = False
Private WithEvents DBServer As Postgres " PROBLEM - type 'Postgres' is not defined "
Public Event Sending(ByVal Done As Boolean)
Public Event DataReceived(ByVal Message As String)

Public Sub New(ByRef COMMPORT As String)
SMSPort = New SerialPort
With SMSPort
.PortName = COMMPORT
.BaudRate = 9600
.Parity = Parity.None
.DataBits = 8
.StopBits = StopBits.One
.Handshake = Handshake.RequestToSend
.DtrEnable = True
.RtsEnable = True
.NewLine = vbCrLf
End With
DBServer = New Postgres() " PROBLEM - type 'Postgres' is not defined "
ReadThread = New Thread(AddressOf ReadPort)
End Sub

Public Function SendSMS(ByVal CellNumber As String, ByVal SMSMessage As String) As Boolean
Dim MyMessage As String = Nothing
'
'Check if Message Length <= 160
If SMSMessage.Length <= 160 Then
MyMessage = SMSMessage
Else
MyMessage = Mid(SMSMessage, 1, 160)
End If
'MsgBox("Sending " & MyMessage & " to " & CellNumber)
If IsOpen = True Then
SMSPort.WriteLine("AT+CMGS=" & CellNumber & vbCr)
_ContSMS = False
While _ContSMS = False
Application.DoEvents()
End While
SMSPort.WriteLine(MyMessage & vbCrLf & Chr(26))
_Continue = False
RaiseEvent Sending(False)
End If
End Function

Private Sub ReadPort()
Dim SerialIn As String = Nothing
Dim RXBuffer(SMSPort.ReadBufferSize) As Byte
Dim SMSMessage As String = Nothing
Dim Strpos As Integer = 0
Dim TmpStr As String = Nothing
While SMSPort.IsOpen = True
If (SMSPort.BytesToRead <> 0) And (SMSPort.IsOpen = True) Then
While SMSPort.BytesToRead <> 0
SMSPort.Read(RXBuffer, 0, SMSPort.ReadBufferSize) 'SMSPort.BytesToRead
SerialIn = SerialIn & System.Text.Encoding.ASCII.GetString(RXBuffer)
' Handle Internal Events
' For Received Characters
If SerialIn.Contains(">") = True Then
_ContSMS = True
End If
If SerialIn.Contains("+CMGS:") = True Then
_Continue = True
RaiseEvent Sending(True)
_Wait = False
SerialIn = String.Empty
ReDim RXBuffer(SMSPort.ReadBufferSize)
End If

End While
RaiseEvent DataReceived(SerialIn)
SerialIn = String.Empty
ReDim RXBuffer(SMSPort.ReadBufferSize)
End If
End While
End Sub

Public ReadOnly Property IsOpen() As Boolean
Get
If SMSPort.IsOpen = True Then
IsOpen = True
Else
IsOpen = False
End If
End Get
End Property

Public Sub Open()
If IsOpen = False Then
SMSPort.Open()
ReadThread.Start()
End If
End Sub

Public Sub Close()
If IsOpen = True Then
SMSPort.Close()
End If
End Sub

End Class

Next, i have also copied the following codes below into my windows form. I'm not sure if i've pasted the codes in the write place but that is wat i have done.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SMSEngine = New SMSCOMMS("COM1")
SMSEngine.Open()
SMSEngine.SendSMS("919888888888", "SMS Testing")
SMSEngine.Close()
End Sub

The problem i faced is that the SMSEngine was not declared. How do i solve this?
THANKS IN ADVANCE!!

Re: Problems regarding the code to send sms using .Net

Dave Kreskowiak9-Jul-09 4:06

Dave Kreskowiak

9-Jul-09 4:06

If you took the time to try and understand the code instead of just Copy'N'Paste what you don't understand and expecting it to work, then you would realize that this code uses a Postgres database for something that probably has nothing to do with sending SMS messages. It looks like you can get rid of those two lines and not worry about them.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: Problems regarding the code to send sms using .Net

gjx_junxian19899-Jul-09 4:27

gjx_junxian1989

9-Jul-09 4:27

haha. Thanks for your help. I'm new to visual basics and started only a few days ago, so i dun really get what some of the codes are used for. Sorry. haha. I need to use these codes to do a project.

Am i doin things the right way? like where i placed the codes in my program? How do i define or declare the SMSEngine in the codes? thanks

Re: Problems regarding the code to send sms using .Net

Dave Kreskowiak9-Jul-09 7:36

Dave Kreskowiak

9-Jul-09 7:36

gjx_junxian1989 wrote:
Am i doin things the right way?

Copy'N'Paste coding? Hell No.

gjx_junxian1989 wrote:
where i placed the codes in my program?

I have no idea hwere you placed any of this stuff in your app.

gjx_junxian1989 wrote:
How do i define or declare the SMSEngine in the codes?

What SMS Engine? Your code snippet doesn't mention anything about an engine. Or are you saying that the code you posted IS the engine? If so, then your problems do not lie in knowing VB.NET, but the basic concepts of object oriented programming. These are design issues that I really can't walk you through in a forum post.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

DLLs required to use GetObject() method in VB.Net

Raheem MA8-Jul-09 19:59

Re: DLLs required to use GetObject() method in VB.Net

8-Jul-09 19:59

Hello,

We have a VB.Net program that uses GetObject() method. While executing the program, it gives the following exception.

"Unhandled Exception: System.Exception: Cannot create ActiveX component.
at Microsoft.VisualBasic.Interaction.GetObject(String PathName, String Class)"

The same program is executing successfully in our production environment but not in one of the development environment. We came to know that the program referring to STDOLE.DLL which is not there on the development machine where the program fails. Even if we copy the same dll on that machine, it is not working. How can we install Primary Interop Assemblies seperately? we do not want to install Visual studio.net.

Please let me know what are all the dlls required to use GETOBJECT() method in VB.Net program?

Thank you in advance,
Smile | :)

Raheem MA

tosch8-Jul-09 20:11

tosch

8-Jul-09 20:11

Are you sure the ActiveX component is correctly registered? The error you get is not an error of the GetObject function but that your ActiveX component is not registered correctly.
Try to registed the component by executing 'regsvr32 x:\path\myactivex.dll'.

Tosch

Re: DLLs required to use GetObject() method in VB.Net

Raheem MA8-Jul-09 20:40

Re: DLLs required to use GetObject() method in VB.Net

8-Jul-09 20:40

Thank you for quick reply,

We do not have STDOLE.DLL on our machine. So it cannot be registered right? What is required to install on the machine to get this dll? once again reminding you we do not want to install Visual studio.Net.

Thank you,
Raheem MA

helelark1238-Jul-09 20:42

Re: DLLs required to use GetObject() method in VB.Net

8-Jul-09 20:42

You have to make a setup project from the computer that VS.net is installed on. After that you have to run the setup installation file on the required machine.

Shay Noy

Raheem MA8-Jul-09 22:14

Re: DLLs required to use GetObject() method in VB.Net

8-Jul-09 22:14

I think this answer is not related to my question.

I read somewhere that STDOLE.DLL comes with Visual Studio.Net. Are there any alternatives to get this DLL installed without Visual Studio.Net?

Thanks.

helelark1238-Jul-09 22:24

Re: DLLs required to use GetObject() method in VB.Net

8-Jul-09 22:24

I would like to understand:
Does the program, written on the machine which VS.net is installed on, run succesfully?
If yes, you have to create a new setup project including all the required files (also STDOLE.dll) and then run it in the relevant computer.
Do I understood correctly what you need?

Shay Noy

Raheem MA9-Jul-09 0:04

Re: DLLs required to use GetObject() method in VB.Net

9-Jul-09 0:04

yes, our program is a console application which is called from formscape reports. we have copied only exe of the program in the production and running successfully.

On the production system, we have primary Interop Assemblies folder at the following path:
C:\Program Files\Microsoft.NET\Primary Interop Assemblies
Following are the contents of the folder:

1. adodb.dll
2. Microsoft.mshtml.dll
3. Microsoft.stdformat.dll
4. msdatasrc.dll
5. MSDDSLMP.DLL
6. MSDDSP.DLL
7. stdole.dll - This is reffered in our program.

We could not find this folder on development machine. That may be the reason we are getting the exception saying 'Cannot create ActiveX .....".

How can we install these dlls ?

Please shed some light in this scenario.

Thank you in advance
Raheem MA

helelark1239-Jul-09 0:17

preprocessor macro for function name?

9-Jul-09 0:17

As I told you before, you have to create a setup project.
http://visualbasic.about.com/od/usingvbnet/a/SetupProj01_2.htm[^]

and also read PartII

Shay Noy

T21028-Jul-09 14:39

T2102

8-Jul-09 14:39

Is there a preprocessor macro to get the current function name or is it available from a particular global class? I know there is a preprocessor macro to get line numbers if you use them.

Re: preprocessor macro for function name?

helelark1238-Jul-09 19:13

Re: preprocessor macro for function name?

8-Jul-09 19:13

Try this:
Reflection.MethodBase.GetCurrentMethod.ToString

Shay Noy

T21028-Jul-09 19:41

T2102

8-Jul-09 19:41

Thanks; I think that will work for my VB .NET projects. Do you happen to know a method that will work in VB6 as well?

Re: preprocessor macro for function name?

helelark1238-Jul-09 19:51