Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 487
  • Last Modified:

vb 6.0

hi experts,
     1.I have done a application project in V.B 6.0 with Ms-access as backend, i am using ado control ,i have used seagate crystal report 7.0 for reports and  use MSRDC control, now i suppose to modify a datatype for a  field, now i got a zero value for the modified field
     2.i got a report with a windows mode,but i need it in Dos mode(printing)
     3. i would like to know how to retrieve a volume number of the system or the unique hard disk number, for  avoiding a piroted of my project.
           if U know answer for above plz mail me.
0
arumugaganesh
Asked:
arumugaganesh
1 Solution
 
phenotypeCommented:

Try adding this API call and wrapper to a module.

Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long


Public Function GetVolumeNumber(strDriveLetter As String) As Long
On Error GoTo Error_H

Dim strVolumeName As String
Dim lngSerialNumber As Long
Dim lngComponentLength As Long
Dim lngSystemFlags As Long
Dim strFileSystemName As String
Dim lngFileSystemSize As Long
Dim lngRetVal As Long

strDriveLetter = UCase(strDriveLetter) & "\"

strVolumeName = Space(255)
lngRetVal = GetVolumeInformation(strDriveLetter, strVolumeName, 255, lngSerialNumber, lngComponentLength, lngSystemFlags, strFileSystemName, lngFileSystemSize)

GetVolumeNumber = lngSerialNumber

Exit Function
Error_H:

GetVolumeNumber = 0

End Function
0
 
DiveblueCommented:
is this one question or three?
0
 
arumugaganeshAuthor Commented:
thanks a lot
0
 
CleanupPingCommented:
arumugaganesh:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 
Experts: Post your closing recommendations!  Who deserves points here?
0
 
DanRollinsCommented:
Moderator, my recommended disposition is:

    Accept phenotype's comment(s) as an answer.

DanRollins -- EE database cleanup volunteer
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now