Visual Basic :: Crystal Report Through ASP In Windows 2003

Please Help Me To Implement RunAs In Windows Service On Windows 2003 Server ...
Hello to all Forum Members;

Currently I'm working on a Monitoring Service which is intended to monitor the status of configured Applications and other Windows Services and restart if any of those are found not running. It works smooth with Windows Services; however I'm facing some problems while making the Service to start the third party Applications that have Database backend via ODBC or ADO.

I register my Windows Service as "Interactive with Desktop" under "LocalSystem" account on Windows 2003 Server. If I configure an Application such as Notepad or similar then there is no problem; but if there any application that has Database backend then the problem starts! These applications are not getting started properly. One of such applications is VoIPSwitch which says that it failed to connect to Database as either database drivers are not found or database does not exists! Both reasons are wrong as I can start the same application with the double click on same Executable file; it's just my Windows Service that's not able to start the application.

I received a suggestion to implement the RunAs for starting such applications with User Name and Password passed to it. So, for my quick testing I quickly searched for RunAs code module and found two examples on Planet Source Code, one of which I'm currently implementing in my code, too. You can download it for your reference from following URL:

http://www.orbitfiles.com/download/id1291685973

When I implemented it in my Monitoring Service and checked my Service Log (which I have coded to be written to ServiceLog.log file; this is not Windows Event Log), I got to see the error as returned by RunAs code: Access Denied!

I specified the same User Name and Password that I give while logging to my Windows 2003 Server (on which this Service is running) for RunAs and still I'm getting this error! The interesting thing is ... when I executed the RunAs VB code (the link above points to the same code) on the same Server by double-click it's icon and then with same User Name and Password, then it started the specified application without any problem! I feel there is no problem in the RunAs code; but it's the Windows Service (which is under Local System account) is not getting permission from Windows 2003 Server!

Am I missing something here? What's going wrong? Why Access Denied error is giving by Windows 2003 when Service attempts to start the application? I'm absolutely clueless right now; please give me some suggestion/solution to resolve this error!

Waiting for your valuable reply ...

Regards,

Ruturaaj.

Windows Service On Windows Server 2003
Hi,

I need to run my application with UI as interactive windows
service (with "Allow service to interact with desktop" and "Local
System Account" checked in service's properties)
Works expectedly on Windows 2000, but not on Windows Server 2003 - UI is
invisible.

Need help.

Unable To Open The Crystal Report Exported In Crystal Report Format
Hi,
Sub: Unable to open the Crystal report exported in Crystal Report Format

1)    I have used Oracle Native connection, while designing the report.
2)    I have passed the record set to the report at run time.
3)    Exported the report to Crystal Report Format, But I could n’t able to open report, while opening , the report asks for OLEDB information, even though I used Native connection at design time.
4)    In Crystal Report 8.5, connect driver property, but I am using crystal reports XI and in Visual Basic 6.0, Is there any method or property to convert the connection?. As I have to export report to crystal format and emailed to user, so that user can open it.
Any assistance in this regard is highly appreciated

The code is as follows:
Public Sub Aging_REPORT(strSQL As String, sReportName As String, sDestFileName As String, ReportTitle As String)

On Error GoTo Err
Dim CrAppl As CRAXDRT.Application
Dim crrep As CRAXDRT.Report

Dim rsCrystal As ADODB.Recordset

    Set CrAppl = New CRAXDRT.Application
    Set crrep = CrAppl.OpenReport(sReportName) 'Opens the report

   Set rsCrystal = New ADODB.Recordset


    rsCrystal.Open strSQL, Conn, adOpenStatic, adLockReadOnly
    rsCrystal.Requery


     With crrep
     .DiscardSavedData
    .Database.LogOnServer "crdb_oracle.dll", strServerName, "", strUserName, strPassword
     .ReportTitle = ReportTitle
     .Database.SetDataSource rsCrystal, 3 'LINK REPORT TO RECORDSET
     .VerifyOnEveryPrint = True
     End With

   With crrep.ExportOptions
    .DestinationType = crEDTDiskFile
    .FormatType = crEFTCrystalReport
    .DiskFileName = sDestFileName
   End With


   crrep.Export (False)
    Set crrep = Nothing
    Set CrAppl = Nothing
    Exit Sub
Err:
MsgBox Err.Description

End Sub

Thanks,

How To Pass Format String To Crystal Report From VB And How To Use It In Crystal Report?
Hi,

I am working on VB 6.0 and using crystal report 7 as reporting tool.
In report, some clients are asking 3 decimal places(Eg. 2000.500) while other clients are asking 2 decimal places(Eg. 2000.50) for numeric fields.
I want to pass the amount of decimal places for numeric fields to crystal report from VB.
How should I implement this using VB.
Pls any one can help me?

Thanks in vance,
Soundar

How To Replace Crystal Report Control With Crystal Report Designer
Hi,

I want to replace crystal report control with crystal report designer in vb. report files are ready.
and parameters have passed by crystal report control to the actual repors which are made in segate crystal report.
now i want to keep the re[prt files as it is. but instead of control,
i want to use designer.

plesae help me

thanks
mital

ADO, SQL SVR, Windows 2003 R1 And R2
Has anyone come across the following bug before:-

we have 2 servers, one running Windows 2003 release 1, and the other running Windows 2003 release 2. Using VB6 and ADO to connect to SQL Server 2000.

This VB code only works on Release 1:-

frm.AdodcTemp.Refresh
frm.AdodcTemp.RecordSet.Update

Where as the above code only works on Release 2 when put like this:-

frm.AdodcTemp.RecordSet.Update
frm.AdodcTemp.Refresh

Just doesnt make sense. Anyone come across ADO errors (Probably more like lower level problems) of this type before ? We're using MDAC 2.8 on all.

Need Help With VB In Windows 2003
I have a program that we've moved from a windows 2000 server to a new windows 2003 server. But ever since then, any time I get an error like "active X can't create object" It pops up a message box, instead of just doing the "on error goto Error_handler" code. Does anyone know if 2003 has any sort of setting that might be causing this behavior. Its quite irritating.

VB In Windows 2003
I want to load VB in Windows 2003 server.
Is it possible?

is it give any problem while creating the setup of a VB project?

bye

S.Muhilan

Crystal Reports With .Net 2003
I have a Windows application developed on VS 2002 (VB.net) with embedded crystal reports. I had to copy this application on to a PC with VS 2003 and a full version of Crystal Reports 9.2 Advance Server.
I changed the captions on a report. I received a message "Converting to the new format of the report.". I think I clicked OK. Now when I try to build (compile) the solution, I get a message that ReportLicenseException on report engine.
Can someone guide me to some basic links how the two work together? Where can I see the interface properties or options? Any samples where embedded reports can be made external to the executable.
Any help will be highly appreciated.
Regards,
Ashwini

Createdirectory In Windows 2003....
Here is an application i create to test createdirectory in windows 2003, because the application using that code dont work anymore.

is there anywhere that says it wont work with windows 2003? or am i doing something wrong?

Code:
Option Explicit

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Private Sub Command1_Click()
Dim lngReturn As Long
Dim strRepertoire As String
strRepertoire = "D:logicielsapplications
gp est est"

If Dir(strRepertoire, vbDirectory) = "" Then
'In general section

Dim Security As SECURITY_ATTRIBUTES

lngReturn = CreateDirectory(strRepertoire, Security)

'If CreateDirectory returns 0, the function has failed
If lngReturn = 0 Then
GoTo err_fncCreerRepertoire
End If
End If

MsgBox "ca marche"

err_fin:
Exit Sub

err_fncCreerRepertoire:
MsgBox Err.Description
End Sub

VB & Windows Server 2003
Hi everyone,

Recently I've started running some of my apps on Windows server 2003.
Everything seems fine apart from one slight problem with "File System Object".

If I have a filesystemobject FSO, when ever I try to copy files, It seems to hang on the first time it is called by the user.

anyone encountered this?

Thanks in advance

VB4, Windows 2003 & SQL 2000
I have an old VB4 application that sits on an NT machine and connects to a SQL Server 6.5. Microsoft is de-supporting NT so I want to move the application to Windows Server 2003 and connect to SQL Server 2000. The application works fine on 2000 (connecting to SQL2000) but when I try it on 2003 it will not connect to the database.

The application is written in VB4 using WinCGI - I'm creating an .exe. IIS does not support the WinCGI interface natively so in order to make the application run the IS2WCGI.dll library is used to translate the WinCGI app to something compatible with IIS. This *should* not be the problem but just thought I should include it to be complete, I can run a WinCGI app it's just the database connection that's giving me the problem.

Where I am at right now is just forgetting the whole application and just writing a simple test that will connect to the database.

The error I get is:
"Object required (error #424)"

And yes, we could upgrade from VB4 but that is not an option at this time, we may just run it on 2000 but I'd really like to solve this problem or at least confirm that it just will not run on 2003.

Code that I have tried (all get the same error):

____________________________________
Dim rdoSuperann As rdoConnection
Set rdoSuperann = rdoEnvironments(0).OpenConnection("My_DSN", rdDriverNoPrompt, True, "DSN=My_DSN;UID=username;PWD=password;DATABASE=database")
____________________________________
Dim my_Conn As Object
Set my_Conn = Server.CreateObject("ADODB.Connection")

____________________________________
Dim db As Database
Dim connect As String
connect$ = "ODBC;DSN=My_DSN;UID=username;PWD=password;DATABASE=database;"
Set db = OpenDatabase("", False, False, connect$)
____________________________________

I have an ODBC data source defined (it connects fine).

Now this may just be my inexperience with VB4 but any suggestions would be great If you need anymore info please let me know. Thanks.

VB6 + Windows 2003 Server
Hello.

Everytime i try to install visual studio 98 (to use vb6)
and after the reboot on the forced install of the jvm,
all network related stuff stops working and some services fails to start.

Im currentl using Windows 2003 Server Standard, fully updated and are atm forced to run xp in a VM to be able to access vb6 and make changes to previous apps (that isnt needed to be ported to .net)

any suggestions?

VB6 And Windows Server 2003
I have a scheduling program written in VB6 that was moved to windows server 2003 and does not work. Any suggestions on what I need to do to make it work?

Windows Server 2003
I know this is kind of vague, but, would there be an issue with windows server 2003 and VB 6 programs? I have an app that installs and works on all workstations running 2000 and XP. However, when the app is installed on a server running 2003 the app shows to be running but you can't see it. The install app was created using inno setup.

VB6 & Windows Mobile 2003
is it all application compiled with vb6 can be use in pocket pc that running win mobile 2003?

i developed a simple client file database system using vb6 with access database, so, is it any problem if i wish to install it in my client pocket pc?

Windows 2003 Server
My new host runs Windows 2003 server. My old host was Windows 2000.
I am using ASP/ADO and an Access database.

My site is on a shared server, and recently has been experiencing down time. After looking at my scripts, I realized I neglected to explicitly close my Database connections after the scripts are executed. When I asked them, they said that the issue was indicative of a memory leak. In order to keep the site running, they had to set the "recycle" time of the server to every two hours.

I ran on the old server with a lot of spots that were worse about object clean-up, the old server also saw much more traffic than the new one does and the old server never had this issue. My question is, does anyone know if Windows 2003 server has a problem with memory clean-up? Why does this server seem to be more touchy? I understand it really is my fault, and I didn't really follow good coding standards when writing some of those scripts.

I want to know if it will ever change. I went through my scripts AGAIN, and made sure I was cleaning everything up. I asked them to increase the recycle time to 6 hours, just as a test, and the site was brought to it's knees within a few hours. I am going to go through my scripts again, but I am wondering if I should just find a new host.

I know Access is not recommended for heavy traffic sites, but the only database that every page even comes close to accessing is a small database, and I open and close the connection almost immediately. There is not a lot of data transfer between that database and the website.

If anyone can shed some light on this, it would be greatly appreciated.

Thanks for reading this!

Our VB 6 App Running On Windows 2003 SBS
I work for a software house. Our main product is a 2-tier personell
rostering system written in VB6 connecting to a SQL 2000 database.

Many of our customers are now moving to Windows 2003 server from either
Windows NT Server or Windows 2000 Server.

What several of our customers are telling us (and we actually had one
of the machines shipped back to us to re-produce the problem) is that
after a re-boot, the application will run fine for a few hours, but
will then begin to grind to a halt and the application will hang.

This only seems to happen when they use terminal services to run the
app directly on the box, rather than installing our application on
their own desktop PC and connecting to SQL on the W2003 server.

We also have a VB6 Windows service which runs on the server which does various
backgrounds tasks, which also grinds to a halt.

What we notice with the machine that one of our customers has shipped
back to us (windows 2003 Small business server), is that when this VB6
service is running the memory usage and the number of handles increases
at an alarming rate and never returns to "normal".

The average usage of this VB6 service is about 10-20 MB of memory and
about 150 handles.

What we are seeing is the memory usage hitting 140MB and the handle
count hitting up to 100,000 handles!!!

If I run this VB6 service on my development machine (XP Pro), connected
to the database on the customer machine, then the behaviour appears
normal.

We have therefore ruled out any problems with SQL Server on this
machine.

Incidentally, it is SQL Server 2000 SP3. I also installed SP1 for
Windows 2003 yesterday and made sure that all critical updates had been
applied.

The spec of the machine is an IBM 2.8Ghz Pentium CPU (HT technology),
1.5GB of RAM and 100GB SATA drive.

What we have found, having spoken to our customers who are experiencing this problem is that they are ALL using Windows 2003 Small Business Server, rather than "standard" Windows 2003 Server.

What I have tried today is to build a Windows 2003 Server (not small business server), and the applications run without any problems.

There is obviously something different between Windows 2003 server and the small business edition, where memory allocation and handle allocation is concerned, but I cannot find out what this difference is.

Has anyone else had experience of this problem?

I've searched for pretty much every combination of search words on the
net and cannot find anything?

I hope someone out there can help!!

Regards
Guy

Windows Mobile 2003 And EVB
Hello,

it's possible use eVB for programming Windows Mobile 2003 device ?

Thanks

skimans

POP3 On Windows 2003 Using NTLM....
Anyone have any idea how to either connect to the POP3 Service on Windows 2003 using NTLM, or to disalble NTLM for POP3?

I wrote a program to read POP3 messages, but got thrown for a loop with NTLM when we tried to use Microsofts POP3 Service....

VB5 Apps And Windows Server 2003
Hello everybody. I need to develop VB executables which must run under Windows 98, Me, 2000, XP and Windows Server 2003.

Since I'm not allowed to provide the final users with a setup package, (all the machines are protected) I am obliged to use VB5 rather than VB6. This is because the runtime files needed by VB5 progs (MSVB50VM.DLL and OLEAUT32.DLL) are already present in Windows 98 or later versions. On the contrary, the version of OLEAUT32.DLL needed by VB6 progs is newer than the one you find in Win98, so you would need to replace it.

Now, since some of the computers to which I have to deploy my apps are equipped with Windows Server 2003, I need to know if the library MSVB50VM.DLL is still in the operating system or it has been removed by Microsoft (for example, because it is considered obsolete).

Is there anybody out there using Windows Server 2003 who may want to help me? Just open the Windows/System32 folder and check if you can find the incriminated library.

TIA

Pasquale Esposito
Perugia, Italy

VB6 Application On Windows Server 2003
Hi,

I have a problem with running VB6 application on Windows Server 2003. Project has one or more simple forms, and after calling FORM.SHOW application crashes and throw error OUT OF MEMORY.

Does anybody know where is the problem? With compatibility or something else?

Thanks.

VB6 Windows 2003 Porting Checklist
Hello All,

I have a VB 6 application (EXE, compiled in VB6 SP4). This communicates with a VC++ application, and some thrid party objects (COM server), all running on a Win 2k box.

I am looking to upgrade to Windows 2003. Reading on the forum, I see that in general VB 6 applications run on Windows 2003, but I was wondering if there is a list of things to look out for when porting to Windows 2003?
E.g.: specific Service pack installs, any VB6 runtime / DLLs installs etc

Are ther any links to articles discussing porting of VB6 applications to Windows 2003 that you can point me to?

thanks in advance.

Timers On Windows 2003 Server
Hi All,

I'm looking for a little advice if possible.

I'm writing a small program for tech support purposes, I've been testing as I'm going along and have noticed that my timer event doesn't seem to be running on Windows 2003, it's a simple timer that updates a text field with info from strings.

Any ideas?
Cheers,
Michael.

Disable Screensaver In Windows XP/2003
This code doesn't works...

VB Code:
Private Const SPI_SETSCREENSAVEACTIVE = 17 Private Declare Function SystemParametersInfo Lib "user32" & _ Alias "SystemParametersInfoA" (ByVal uAction As Long, & _ ByVal uParam As Long, ByVal lpvParam As Long, & _ ByVal fuWinIni As Long) As Long Public Function EnableScreenSaver(ByVal bStatus As Boolean) As Boolean Dim lActiveFlag As Long Dim lRetval As Long lActiveFlag = IIf(bStatus, 1, 0) lRetval = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, & _ lActiveFlag, 0, 0) IF lRetval > 0 THEN EnableScreenSaver = TRUE ELSE EnableScreenSaver = FALSE END IF End Function

VB6 App Running On Windows Mobile 2003
Hi All,

I have created a simple application in VB6, just a lot of forms, list boxes and text boxes, the most difficult thing it does is output a CSV file, and im wondering will it work ok on windows mobile 2003?

I need to purchase a specific handheld, costing a considerable amount, they cant guarantee that it will work and arent willing to let me test before buying, so can anyone shed any light on the subject.

Thanks

E-mail Using Outlook 2003 On Windows XP SP2
Hello Everyone.

I need some help. I want to e-mail from my application using Outlook. I am currently using Outlook 2003 on a Windows XP Pro w/SP2 platform. But the platform can be from Win 98 up to XP and on either Outlook 97 - Outlook 2003 or Outlook Express.

What I want to do is have the application open the Outlook program. Insert the recipent information, subject, and body text. Then use an API call to do the send message button click to send the message. I want to make the application do the button click so that it avoids the security warning. Then I want the application close the e-mail application.

Any help will be greatly appreciated.

Coding Problem In Windows 2003
hello,
i've written a vbscript which uses the event log to check on the uptime of a computer diring specific hours of the day. My script runs perfectly on the windows xp box i programmed it on, but when i run it from a 2003 box the time based if statements (shown below) do not get entered. any ideas how i can get around this?

If TimeValue(SvrDown(time)) >= TimeValue("6:00:00 AM") _
And TimeValue(SvrDown(time)) <= TimeValue("6:00:00 PM") Then
'Server up during business
If TimeValue(SvrUp(time)) >= TimeValue("6:00:00 AM") _
And TimeValue(SvrUp(time)) <= TimeValue("6:00:00 PM") Then
'Server Back Up the Same Day
If TimeValue(SvrDown(time)) <= TimeValue(SvrUp(Time)) Then
DT = DT + (TimeValue(SvrUp(time)) - TimeValue(SvrDown(time)))
'Server Back Up the Following Day
Else
DT = DT + (TimeValue("6:00:00 PM") - TimeValue(SvrDown(time))) + (TimeValue(SvrUp(Time)) - TimeValue("6:00:00 AM"))
End If
'Server up after Hours
Else
DT = DT + (TimeValue("6:00:00 PM") - TimeValue(SvrDown(time)))
End If
'Server down after hours
Else

Windows 2003 Port Mapping
We have a program with the following code:
Open lpt1: for output as #1
print #1, "07"
close #1

that works fine if the printer is connected to the server, an you are logged onto the server. but when a client machine log in, and the ports are mapped back to the client so the printe is on the client the code does not work with an error 52 ba file name or number.

does anyone have any ideas or soultions on what is going on?

thanks in advance

64bit Windows Server 2003, And Vb6 Dll
Hi all,
Does anyone have any experience with my problem?
I have a VB6 dll which works perfectly on x32 server2003 and XP.
I registry the dll before i use it using regsvr32.
This all works fine on x32.
On x64 the regsvr32.exe reports the dll has been registered successfully. However when i try and use the dll from vbscript i get error message that ActiveX cannot create the object "ddlname.module"

Any ideas what i need to do?
I have tried copying the dll into c:windowssystem32 and into the WOW folder.

Thanks,
mrmovie

TAPI And Windows Server 2003 SP2
I've developed Answering machine program and i've used TAPI 3 in this program
this program works in winXP SP2 and win Server 2003 SP1 completely
but it can't handle incoming call and detect DTMF keys in win Server 2003 SP2
does microsoft put any limitation on windows server 2003 SP2 ?
does this link have any relation with this problem ? if yes how can i solve this problem ?
http://www.microsoft.com/downloads/details.aspx?FamilyId=0097FE14-1D6B-4423-A437-DEA1ED665A07&displaylang=en

thanks

Windows Server 2003, ActiveX, ASP
migrating an asp/vb6 active x site from win2000 to win2003. setting up activex on 2003 has proven to be fairly frustrating. i can't get the asp page to instantiate the component, so i'm assuming that the permisssions aren't set correctly. 2 of us have been scouring the web since yesterday and haven't been successful in getting this going. does anyone have any decent resources for getting this set up?

Bill Bolte
http://www.billbolte.com | http://www.circle37.com
http://www.oldbarnsite.com | http://www.oldutguy.com

Windows Server 2003 Component Services
I have an active x dll that I have written in VB6.0. For the last year it has been running great as a component service in com + (MTS) on a windows 2000 server box. I am now wanting to utilize some of the new features of Windows Server 2003 with this component. I have installed it on a windows server 2003 box and am receiving an Error 48: Error in Loading Dll. If I use the dll from my calling program without registering under component services on the W2k3 Server machine it works fine. Once I register it in component services as a Server Application I receive the Error in loading Dll.

Any help would be greatly appreciated!

C

VB6 Automation Failing On Windows 2003 Server W/SP1...
I hope that I'm in the correct forum for this

I had service pack 1 get installed on our Windows 2003 Server (Standard Ed) that we use as a Terminal Server.

Now my ADOX automation for creating a table in MS Access does not work. It works if you are not on the Terminal Server.

Has anyone run into this problem/have some idea for a workaround? I'd really appreciate it.

Here is my creation code:

Code:
'Create the hours table
Private Sub CreateTable()
Dim objCat As ADOX.Catalog, objMyTable As ADOX.Table, objColumn As ADOX.Column
Dim oKey As ADOX.Key, TableName As String, TheDate As Date

Set rstHours = Nothing
Set cmdHours = Nothing

Set objCat = Nothing
Set objMyTable = Nothing
Set objColumn = Nothing
Set oKey = Nothing

'ADOX creation
Set objCat = New ADOX.Catalog

objCat.ActiveConnection = conHoursDB

If Weekday(Date) = vbSunday Then
TheDate = Date
Else
Select Case Weekday(Date)
Case vbMonday
TheDate = Date + 6
Case vbTuesday
TheDate = Date + 5
Case vbWednesday
TheDate = Date + 4
Case vbThursday
TheDate = Date + 3
Case vbFriday
TheDate = Date + 2
Case vbSaturday
TheDate = Date + 1
End Select
End If

Do While Not Month(Date) = Month(TheDate)
TheDate = TheDate - 1
Loop

'Tablenames in format hrs_##/##/####
TableName = "hrs_" & Format(TheDate, "Short Date")

'Setting table properties
Set objMyTable = New ADOX.Table

With objMyTable
.Name = TableName
End With

'Append table name into database
objCat.Tables.Append objMyTable

'Sets all the column properties in table
Set objColumn = New ADOX.Column
With objColumn
'jobdate
.Name = "jobdate"
.Type = adDate
End With

objCat.Tables(TableName).Columns.Append objColumn

Set objColumn = Nothing

Set objColumn = New ADOX.Column
With objColumn
'job number
.Name = "jobno"
.Type = adVarWChar
.DefinedSize = 20
End With

objCat.Tables(TableName).Columns.Append objColumn

Set objColumn = Nothing

Set objColumn = New ADOX.Column
With objColumn
'job code (shown as task code)
.Name = "jobcode"
.Type = adVarWChar
.DefinedSize = 20
End With

objCat.Tables(TableName).Columns.Append objColumn

Set objColumn = Nothing

Set objColumn = New ADOX.Column
With objColumn
'hours worked
.Name = "hours"
.Type = adSingle
.NumericScale = 2
End With

objCat.Tables(TableName).Columns.Append objColumn

Set objColumn = Nothing

Set objColumn = New ADOX.Column
With objColumn
'time started
.Name = "timestarted"
.Type = adDate
End With

objCat.Tables(TableName).Columns.Append objColumn

Set objColumn = Nothing

Set objColumn = New ADOX.Column
With objColumn
'description.. a memo field. can store up to 65k characters
.Name = "description"
.Type = adLongVarWChar
End With

objCat.Tables(TableName).Columns.Append objColumn

Set objColumn = Nothing

Set objColumn = New ADOX.Column
With objColumn
'hours
.Name = "thours"
.Type = adInteger
End With

objCat.Tables(TableName).Columns.Append objColumn

Set objColumn = Nothing

Set objColumn = New ADOX.Column
With objColumn
'minutes
.Name = "tmins"
.Type = adInteger
End With

objCat.Tables(TableName).Columns.Append objColumn

Set objColumn = Nothing

Set objColumn = New ADOX.Column
With objColumn
'index
.Name = "index"
.Type = adInteger
Set .ParentCatalog = objCat
.Properties("AutoIncrement") = True
End With

objCat.Tables(TableName).Columns.Append objColumn

Set oKey = New ADOX.Key
With oKey
'set index as primary key
.Name = "UniqueKey"
.Type = adKeyPrimary
.RelatedTable = "tablename"
.Columns.Append "index"
End With

objCat.Tables(TableName).Keys.Append oKey

objCat.Tables.Refresh

conHoursDB.Close
'Set the database connection
conHoursDB.Mode = adModeShareDenyNone
conHoursDB.CursorLocation = adUseClient
conHoursDB.Provider = "Microsoft.Jet.OLEDB.4.0"
conHoursDB.ConnectionString = _
"Persist Security Info=False;" & _
"Data Source=" & App.Path & "hours.mdb"
conHoursDB.Open

Set objMyTable = Nothing
Set objColumn = Nothing
Set oKey = Nothing
Set objCat = Nothing

'Processor/Database catchup time
DoEvents

'Load the table
LoadMain (TableName)

End Sub

Upgrade From Windows 2003 Sp1 To Sp2, What Is The Impact On VB6 Application
Can someone tell me the impact on my VB6 application if i upgrade the server from Windows 2003 sp1 to sp2?

Thanks for your help !!

Compatibility With Windows 2003 Server Issue!
dear all,

i am experiencing a very weird behaviour i cannot get an understanding and worse, a solution for it. basically, a compiled file that works perfectly in windows versions 98, Me, 2000, XP does not so in windows 2003, but the strange thing is: if i compile the very same code under windows 2003, it perfectly works on 2003, though this time it crashes under the previous windows versions. i repeat: no code change.

i've tracked the error down by compiling under 2003 and exporting the file to 2000, until it didn't crash anymore. what is causing this crash is the clearing of a combo box:

Code:
Main.cmb_newsletters_list.Clear

does anyone know what you have to do to make this work on all versions of windows? is there a DLL that needs to be depolyed?

really lost on this one... hopefully some of you gurus out there can give me an hint...

thank you in advance,

wc.