|
do you have access to SQL Server or MSDE ??
if yes try this in a stored procedure..
declare @command varchar(1000)
-- delete a file on the C drive
SELECT @command = 'del C:\Test.txt'
-- execute DOS command
master.dbo.xp_cmdshell @command
that should do it
|
|
|
|
|
Ok, I need to know how to Convert a Number to a BIG/LITTLE ENDIAN Number and also how to do "Left / Right Shifts" (i.e. in C++ / C# "5 << 16") in VB.NET or VB6. Anyone know how?
|
|
|
|
|
Hi,
Read this aticle of new version of VB.NET 2003, "Shifting to the Left or the Right" point:
http://msdn.microsoft.com/library/en-us/dv_vstechart/html/vbconVisualBasicNET2003LanguageChanges.asp?frame=true#vbconvisualbasicnet2003languagechangesanchor4
"On the 8th day, God started debugging"
|
|
|
|
|
'MakeDWord
'MakeWord
'HiByte
'LoByte
'HiWord
'LoWord
'RShWord
'LShWord
'LShDWord
'RShDWord
'DWordWSwap
'WordBSwap
'ToggleBit
'SetBit
'ClearBit
'SetBitVal
'IsBitSet
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'BBBB Y Y TTTTT EEEEE
'B B Y Y T E
'BBBB Y T EEEEE
'B B Y T E
'BBBB Y T EEEEE
'***************************
'Extract
'*********
Function LoWord(ByVal dw As Long) As Integer
CopyMemory LoWord, dw, 2
End Function
Function HiWord(ByVal dw As Long) As Integer
CopyMemory HiWord, ByVal VarPtr(dw) + 2, 2
End Function
Function LoByte(ByVal dw As Integer) As Integer
CopyMemory LoByte, dw, 1
End Function
Function HiByte(ByVal dw As Integer) As Integer
CopyMemory HiByte, ByVal VarPtr(dw) + 1, 1
End Function
'Swap
'*****
'(Little <--> Big Endian)
Function WordBSwap(ByVal Wd As Integer) As Integer
WordBSwap = MakeWord(HiByte(Wd), LoByte(Wd))
End Function
Function DWordWSwap(ByVal dw As Integer) As Integer
DWordWSwap = MakeDWord(HiWord(dw), LoWord(dw))
End Function
'Bit Shift
'**********
Function LShWord(ByVal Wd As Integer) As Integer
LShWord = MakeWord(HiByte(Wd), 0)
End Function
Function RShWord(ByVal Wd As Integer) As Integer
RShWord = MakeWord(0, LoByte(Wd))
End Function
Function LShDWord(ByVal dw As Long) As Long
LShDWord = MakeDWord(HiWord(dw), 0)
End Function
Function RShDWord(ByVal dw As Long) As Long
RShDWord = MakeDWord(0, LoWord(dw))
End Function
'Create
'***********
Function MakeWord(iLo As Integer, iHi As Integer) As Integer
CopyMemory MakeWord, iLo, 1
CopyMemory ByVal VarPtr(MakeWord) + 1, iHi, 1
End Function
Function MakeDWord(iLo As Integer, iHi As Integer) As Long
CopyMemory MakeDWord, iLo, 2
CopyMemory ByVal VarPtr(MakeWord) + 2, iHi, 2
End Function
'BBBB IIIII TTTTT
'B B I T
'BBBB I T
'B B I T
'BBBB IIIII T
'***************************
Sub SetBit(refByte As Integer, Bit As Integer)
' Create a bitmask with the 2 to the nth power bit set:
Mask = 2 ^ Bit
' Set the nth Bit:
refByte = refByte Or Mask
End Sub
Sub ToggleBit(refByte As Integer, Bit As Integer)
' Create a bitmask with the 2 to the nth power bit set:
Mask% = 2 ^ Bit
' Toggle the nth Bit:
refByte = refByte Xor Mask%
End Sub
' The ClearBit Sub clears the nth bit (Bit%) of an integer (Byte%).
Sub ClearBit(refByte As Integer, ByVal Bit As Integer)
' Create a bitmask with the 2 to the nth power bit set:
Mask% = 2 ^ Bit
' Clear the nth Bit:
refByte = refByte And Not Mask%
End Sub
Sub SetBitVal(refByte As Integer, ByVal Bit As Integer, ByVal Value As Boolean)
Mask% = 2 ^ Bit
If Value Then _
refByte = refByte Or Mask _
Else _
refByte = refByte And Not Mask%
End Sub
Function IsBitSet(refByte As Integer, ByVal Bit As Integer) As Boolean
' Create a bitmask with the 2 to the nth power bit set:
Mask% = 2 ^ Bit
' Return the truth state of the 2 to the nth power bit:
IsBitSet = ((refByte And Mask%) > 0)
End Function
Do unto others as you would have them do unto you - Jesus
An eye for an eye only makes the whole world blind - Mahatma Gandhi
|
|
|
|
|
Thanks! Good functions!
Basically I wanted to know how to "Left / Right Shift" a number but the above functions will also come in handy. I will Post here how to do Shifts.
To Right Shift, simply Divide by (2 ^ [No of Bits]). For example, to Right Shift 16Bits:
Public Function ShiftRight(ByVal Value as Long) As Long
Return (Value / (2 ^ 16))
End Function
To Left Shift, simply do the opposite and Multiply by (2 ^ [No of Bits]).
Public Function ShiftLeft(ByVal Value as Long) As Long
Return (Value * (2 ^ 16))
End Function
The good news is that in VB.NET 2003, the Left / Right Shift operators will become standard. So now the above Functions would be simplified like this:
Public Function ShiftLeft(ByVal Value as Long) As Long
Return (Value << 16)
End Function
Of course, you really wouldn't need a Function for it anymore in .NET 2003! 
|
|
|
|
|
Glad you like them! That is the cByteFns class from my Data dll.
Do unto others as you would have them do unto you - Jesus
An eye for an eye only makes the whole world blind - Mahatma Gandhi
|
|
|
|
|
I know MS (FINALLY) added in lazy evaluation versions of And (AndAlso) and Or (OrElse). Have they perchance introduced a lazy eval version of the ternary-operator function (Iif)?
Thats one thing i sorely miss from the C/Java world is the nice ?: operator. Iif can sort of emulate it, but Iif always evaluates both conditions (true AND false)... where as the ?: one only evaluates which ever one is selected by the condition. The Non-Lazy Iif is all but useless for the most very simplest simplest basic cases.
Thanks in advance
|
|
|
|
|
Whosit wrote:
Thats one thing i sorely miss from the C/Java world is the nice ?: operator. Iif can sort of emulate it, but Iif always evaluates both conditions (true AND false)... where as the ?: one only evaluates which ever one is selected by the condition. The Non-Lazy Iif is all but useless for the most very simplest simplest basic cases.
I suspect Iif is implemented as a function. See, the worst thing about Iif is that it return an object, and if Option Strict is On, you'll need to cast, even if both types are correct.
It's not the fall that kills you: it's the sudden stop - Down by Law, Jim Jamursch (1986)
|
|
|
|
|
Ha! That's not the worst thing about "IIF". The worst thing is that it tries to Evaluate both Expressions before returning a Value. What it should do is only Evaluate the Expression and then Return the Value that is absolutely neccessary! For example, you can never do this:
Dim MyObject As Object = Nothing
rsData.Fields("MyField").Value = IIF(IsNothing(MyObject), "", MyObject.Name)
This will always give you an Error because MyObject is nothing when it tries to Evaluate "MyObject.Name". So I ask...why does it do that? 
|
|
|
|
|
Because IIf is not an operator, it's a function, defined like this:
Function IIf(Byval x as boolean, Byval o1 as object, Byval o2 as object) as Object
If x then
Return o1
Else
Return o2
End if
End Function
See?
It's not the fall that kills you: it's the sudden stop - Down by Law, Jim Jamursch (1986)
|
|
|
|
|
Yes, True! I wonder if there is a better way to accomplish what I was explaining previously??
|
|
|
|
|
1. How do you access the number of pages the document has?
2. How Do you scroll between the pages?
Please Answer!!!!
I'm using the Printpreviewcontrol to make my own printpreview.
/Fleischen
|
|
|
|
|
We have an Access database that is used here at my company. We have references to Microsoft Word and Excel. The problem is that not everyone here at the company has the same version of Word and Excel. Everyone has been told that they should not be doing developing work in the database, but people still are because the references to the libraries keep getting updated to different versions. We already have people entering in a log in, is there any way that I can detect (using code) when references get changed? Then I could link it back to the user and find out who is developing when they should not be. Thanks for your help!
Kogorman
|
|
|
|
|
No, your best best is to Code using "Late Binding" methods. All you have to do is get rid of your References when you are sure that the Code works, then Change every Variable to Type "Object". This way it will work no matter what Version of MS Office plus you can trap Errors to determine if Office is not installed.
For example:
On Error Goto ErrHandler
Dim xlApp As Excel.Application 'Error will Occur here when not installed
Set xlApp = New Excel.Application
ErrHandler:
If (Err.Number <> 0) Then
'Of course, determine the Correct Error Number for this...
MsgBox "Excel is not Installed!"
End If
Now, change it to this after removing all References to Excel:
On Error Goto ErrHandler
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application") 'Error will Occur here when not installed
ErrHandler:
If (Err.Number <> 0) Then
'Of course, determine the Correct Error Number for this...
MsgBox "Excel is not Installed!"
End If
|
|
|
|
|
I all,
I want to convert a structure from VB to VB.NET and I don´t know how specify the max length of an string...
Sample VB 6.0:
------------------------------------
Public Type YY
XX As String * 10
End Type
-------------------------------------
Code in VB 7.0:
------------------------------------
Structure YY
XX As String '<--- ¿How could I do it?
End Structure
-------------------------------------
Thanks all
"On the 8th day, God started debugging"
|
|
|
|
|
Private Structure Test
<VBFixedString(25)> Dim MyString As String
End Structure
|
|
|
|
|
Ok, that didn't Format correctly at all! Try this:
Private Structure Test
<VBFixedString(25)> Dim MyString As String
End Structure
|
|
|
|
|
Ok thanks Mikasa, I found it in MSDN.
Regards
"On the 8th day, God started debugging"
|
|
|
|
|
How can i use a dll in VB which is written in VC++ ???
please help me as soon as possible.
thanks 
el hombre es libre cada vez que elige y eso es lo que lo hace libre
|
|
|
|
|
Hello,
Add a declaration of functions which has public scope(those which you want to use in your VB project). Or you can add the reference of your DLL in Project/Reference by choosing it.
Have fun.;)
Regards,
Vilas Shewale
|
|
|
|
|
Firstly, Thanks for your fast reply.
I´m a beginner in both lenguages, VB and English too.
So, i tried by the Reference method ,but i couldn´t do , because when i select the DLL VB show me a message :"Can´t add the reference to the specified File "
The DLL isn´t registred, Can be the problem?
how can i do the declaration?
el hombre es libre cada vez que elige y eso es lo que lo hace libre
|
|
|
|
|
Hi
You are using a simple dll, not a COM dll. When you are trying import a basic dll wihtout interface, you can´t reference using your VB tool development.
You need inport it by code.
VB.NET sample:
--------------------------------
<dllimport("libraryname.dll")> _
Public Shared Function FunctionName(ByRef Param1 As Integer, _
ByRef Param2 As String, _
ByVal Param3 As Integer) As Long
End Function
--------------------------------
Regards
"On the 8th day, God started debugging"
|
|
|
|
|
i´m using VB6, and It don´t have "Shared".
I only want use a simple DLL from this example :http://www.codeproject.com/dll/BeginnerDLL.asp
But I don´t know how import the dll, and where i have to copy the dll (because i don´t want registrer it )
i´m so confused
el hombre es libre cada vez que elige y eso es lo que lo hace libre
|
|
|
|
|
Martin_Viet wrote:
But I don´t know how import the dll, and where i have to copy the dll (because i don´t want registrer it )
You can place the .dll in whatever directory you want it in, however you do need to register the .dll. Go to a command prompt and change the directory to the location of the .dll. Once there type (where myFile is the name of the .dll):
regsvr32 myFile.dll
-Nick Parker
|
|
|
|
|
But I found it:
If you do not specify a path for libname, Visual Basic will search for the file in the following order:
1)Directory containing the .exe file
2)Current directory Windows system directory (often but not necessarily Windows\System)
3)Windows directory (not necessarily \Windows)
4)Path environment variable " [Visual Studio 6.0 Help]
So i´m trying to do this :
Public Declare Function SayHello Lib "MyDLL.dll" () As Boolean
But a message error appeared 
el hombre es libre cada vez que elige y eso es lo que lo hace libre
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
