Wrox Programmer Forums
Classic ASP Databases Discuss using ASP 3 to work with data in databases, including ASP Database Setup issues from the old P2P forum on this specific subtopic. See also the book forum Beginning ASP.NET Databases for questions specific to that book. NOT for ASP.NET 1.0, 1.1, or 2.0.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Classic ASP Databases section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
Old August 22nd, 2003, 01:46 AM
Registered User
Join Date: Aug 2003
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Port use in Visual Basic Connection

Hi All,

I have a VB application that is running on the same machine with MS SQL Server. This application is also connection to IBM AS400 server to query data out from AS400 and do some calculation and the data is stored into MS SQL Server.
Currently all this server are keep in the same server room.

But now...
I have this problem. One of my servers that is the one that contain the MS SQL Server and VB application will be shifted into a data center where security is very tight. The data center requested the specific port number to be open for the firewall. I do not know what are the port needed to communicate with the AS400 cause the VB code that written does not specify the port number.

I have tried using a sniffer program to trace the port use. But the port is not fixed and keep changing. Why is this so?

Can anyone help me identify what are the ports needed?

Below is the sample code
strConMSSQL = "Provider=MSDASQL.1;Password=password;Persist Security Info=True;User ID=mssqlserver;Extended Properties=" & Chr(34) & "DSN=Pidemco;Description=Pidemco Call Center;SERVER=PORSCHE;UID=mssqlserver;PWD=password ;APP=Visual Basic;WSID=CALLCEN3;DATABASE=pidemco;Network=DBMSS OCN;Address=PORSCHE,1433;StatsLog_On=0" & Chr(34)

    Set conSQL = New Connection
    conSQL.Open strConMSSQL, "mssqlserver", "password"

    Msg "Ms SQL: Connection Established."
    On Error GoTo err400

Set conAS400 = New Connection
    conAS400.Open strConAS400, "as400", "password"

Anyone who know the solution. Pls kindly email me to [email protected]
Greatly appreciated

Similar Threads
Thread Thread Starter Forum Replies Last Post
Visual Basic monika.vasvani VB Databases Basics 5 June 16th, 2014 10:01 AM
visual basic 6.0 flowertear Pro VB 6 3 June 28th, 2013 03:16 PM
visual basic khandangoll Beginning VB 6 1 October 6th, 2006 04:05 PM
FTP in Visual Studio 2005 Pro (Visual Basic) shoopes VB How-To 1 June 29th, 2006 02:08 PM
Visual C++ on parallel port yunarch Visual C++ 0 September 30th, 2005 07:40 AM

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.