Re: Store multiple XML files - Visual Basic Discussion Boards

pxw16-Aug-03 7:18

16-Aug-03 7:18

There is a SQL statement for setting "IDENTITY_INSERT" on or off. With it on, you can insert any legimate value you desire (it can't be a duplicate to what is there).

When you are done, turn it back off.

syntax
SET IDENTITY_INSERT [ database. [ owner. ] ] { table } { ON | OFF }

but you need either "owner" or "dba" the rights to the database.

talk to USB ports

Dev_Calz15-Jul-03 14:19

Dev_Calz

15-Jul-03 14:19

Hello, I am going to programming to a finger print scanner. I am unable to get the sdk for the device. Does anybody know where to start to program to a usb device.

I can talk to the com ports with out any problems.. But I can not figure out how to talk to the usb ports..

Thanks
Chris Calzaretta Confused | :confused:

Re: talk to USB ports

Dave Kreskowiak16-Jul-03 3:38

Dave Kreskowiak

16-Jul-03 3:38

First, do you have the drivers for the scanner? If not, your going to need the low-level docs on the scanner hardware so you can write your own device driver. That's just to TALK to the device. You'll probably find those docs in the SDK that you can't get.

Next, you'll need the documentation on the command protocol the scanner uses. You have to know the language the scanner speaks. Again, probably in the SDK you can't get. Without these docs, your not going to know how to get the device initialized, send commands, receive and interpret responses, perform properly formatted data transfers, or whatever else the device needs...

Next, there are no native classes to VB or VB.net that allow you to easily communicate over USB. You'll either have to search the web to try and find any or have to write something yourself.

These would be good places to start:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/buses/hh/buses/usbhdr_32nb.asp
http://www.lvr.com/usb.htm

RageInTheMachine9532

Any good up and coming conferences

Aaron Bartell15-Jul-03 6:52

Aaron Bartell

15-Jul-03 6:52

Hi all,

I am an RPG/Java iSeries programmer getting into VB.NET/ASP.NET programming and am looking for good conferences that I can attend to get up to speed fast.

Anybody have any suggestions?

Aaron Bartell

ioctlSocket in VB.NET

Abel15-Jul-03 4:21

Abel

15-Jul-03 4:21

Hello everybody.

I want to use the ioctlsocket winsock function to set non blocking mode to a socket in VB.NET.
I have to use this function because it seems there is no means to create a Net.sockets.socket object from a valid Win32 SOCKET handle (provided by a custom function librairy)

In my code, I alway Have SOCKET_ERROR after ioctlsocket call ... and lastError is set to 10022
Maybe my FIONBIO constant is not correct. Can someone help me ? tks

<br />
// C Computing of FIONBIO :<br />
//#define IOCPARM_MASK    0x7f            /*parameters must be < 128 bytes */<br />
//#define IOC_IN          0x80000000      /* copy in parameters */<br />
//#define _IOW(x,y,t)     (IOC_IN|(((long)sizeof(t)&IOCPARM_MASK)<<16)|((x)<<8)|(y))<br />
//#define FIONBIO     _IOW('f', 126, u_long) /* set/clear non-blocking i/o */<br />
<br />
    Private Shared ul As IntPtr = Marshal.AllocHGlobal(4)<br />
    Private Declare Function ioctlsocket Lib "ws2_32.dll" (ByVal sck As Long, ByVal cmd As Long, <[In](), Out()> ByVal argp As IntPtr) As Integer<br />
    Public Shared Sub SetNonBlockingMode(ByVal sck As Long)<br />
        'Dim ui As UInt32 = UInt32.Parse(1)<br />
        'Marshal.StructureToPtr(ui, ul, False)<br />
        Marshal.WriteInt32(ul, 0)<br />
        LastErrorValue = 0<br />
        Dim iRes As Long = ioctlsocket(sck, 2147772030, ul) 'Valeur de FIONBIO sur mon PC = 2147772030<br />
        If iRes = SOCKET_ERROR Then<br />
            LastErrorValue = Marshal.GetLastWin32Error()<br />
            Throw New Net.Sockets.SocketException(LastErrorValue)<br />
        End If<br />
    End Sub<br />

Store multiple XML files

^1.21 Gigawatts15-Jul-03 4:06

^1.21 Gigawatts

15-Jul-03 4:06

Hi there

I need to be able to store multiple XML files in a central location - like a database.

I'm aware that SQL Server has this option, but the people I'm designing this for aren't prepared to spend lots of money.

Any ideas for alternatives??

Many thanks
Dan
Poke tongue | ;-P

Re: Store multiple XML files

Ian Darling15-Jul-03 6:03

Ian Darling

15-Jul-03 6:03

MSDE?

MSDE is the SQL Server engine - check the licensing first (there are restrictions on where you can use it, IIRC), but you should be able to use it and it costs a lot less or nothing.

--
Ian Darling

Re: Store multiple XML files

^1.21 Gigawatts16-Jul-03 4:31

^1.21 Gigawatts

16-Jul-03 4:31

Thanks mate, will look at that!

table primary field name

bpchia14-Jul-03 18:18

bpchia

14-Jul-03 18:18

Is there anyway to get to know the table primary field name?

The information I have is table name and record id of this table, but to form a SQL statement to select those records, I need to know the table primary field. Is there anyway I can get it?

Re: table primary field name

Ian Darling15-Jul-03 2:10

Ian Darling

15-Jul-03 2:10

Take a look at ADOX (Active Data Object Extensions, IIRC)

--
Ian Darling

Sub Main

bensoncd14-Jul-03 14:17

bensoncd

14-Jul-03 14:17

Dear VB.NET Forum,

I have just started my first programming exercise in VB.NET. When I try to run the project an error code come up indicating that Sub Main is missing in my project. Kindly explain to me what this 'Sub Main' is for and how should I include it in my project.

Ben Confused | :confused:

Re: Sub Main

Nick Seng14-Jul-03 15:34

Nick Seng

14-Jul-03 15:34

Ok, first of all, what project are you running? Is it a Window application? Or is it a console Application? Where is your entry point into the app?

Nick Seng (the programmer formerly known as Notorious SMC)

God, I pity me! - Phoncible P. Bone

Re: Sub Main

bensoncd15-Jul-03 13:43

bensoncd

15-Jul-03 13:43

Hello Nick

I am running a Windows Application Project. I have not programmed in VB before, and what I have is the latest VB.NET software loaded on my machine. I am trying to teach myself VB.NET, but too bad the starting point seems to be quite difficult. Can I teach myself the basics of VB using VB.NET?

Re: Sub Main

Nick Seng15-Jul-03 15:19

Nick Seng

15-Jul-03 15:19

Don't worry about it. VB.Net is quite easy once you get the hang of it Smile | :)

OK, regarding your question. In VB.Net, there are 2 possible points of entry in an application, A windows form, or a Sub Main. To set either one, go to your Solution Explorer, Right-click on your Project and choose properties. Look for the "Startup Object" properties and it's corresponding Combobox, which will list any "Sub Main" and windows form in your application. Choose any one to have your program "start" from that point.

Nick Seng (the programmer formerly known as Notorious SMC)

God, I pity me! - Phoncible P. Bone

I just started VB.NET

Anonymous14-Jul-03 11:27

Anonymous

14-Jul-03 11:27

Hi there,
I just started programming in VB.NET. i am working on asp.net and using VB.NET. I have a log in screen and when the user clicks on it it should go to a results.aspx page. please suggest me the code that i need to write in the button click event.
thanks in advance

Re: I just started VB.NET

Nick Seng14-Jul-03 15:31

Nick Seng

14-Jul-03 15:31

Response.Redirect(page)

Nick Seng (the programmer formerly known as Notorious SMC)

God, I pity me! - Phoncible P. Bone

combobox

mhedrick14-Jul-03 6:33

mhedrick

14-Jul-03 6:33

Hello,
I am unable to get my combobox to load.
I have the user iner or scan a number into the textbox.
This calls a procedure and walla.....My CB should populate
but no. Can someone give me some suggestions from my code?
I get an object required error right here Mad | :mad:

Also, how can I get it to accept a scan instead of a user
hitting enter after entering the data?
Thank you very much.

Dim batchnumber As String
Dim GetBatchNO As Integer

strValue = Trim(UCase(txtbatchnum.Text))
Me.MousePointer = vbNormal
If strValue = 0 Then
MsgBox ("Invalid Batch Number!")
txtbatchnum_GotFocus
Me.MousePointer = vbNormal
Exit Sub
End If

txtbatchnum.Text = GetBatchNO
'ado.dbo_ShippingGetTnocwayFromBatchno GetBatchNO Mad | :mad:

batchnumber = Trim(ado.rsdbo_ShippingGetTnocwayFromBatchno!Tnocway) & ""
ado.rsdbo_ShippingGetTnocwayFromBatchno.Close

comboTnum.Clear
Do While Not ado.rsdbo_ShippingGetTnocwayFromBatchno.EOF
comboTnum.AddItem batchnumber
ado.rsdbo_ShippingGetTnocwayFromBatchno.MoveNext
Loop

End Sub

New to VB.NET & VB in general

newbie7314-Jul-03 5:46

newbie73

14-Jul-03 5:46

Hi all,

I have been in the IT industry for nearly 10 yrs now, and have no programming skills at all. Finally decided to bite the bullet and throw myself into it head first. However, I haven't tried programming since I was 18, some 12 years ago, and my current financial situation means purchasing books, etc. is out of the question. So, if there are any nice people out there who think they can help me, please get in contact.. Any help would be greatly appreciated, however little....

Cheers everyone.. Suspicious | :suss:

Matt

printing problems

Eng Hong Teo13-Jul-03 20:59

Eng Hong Teo

13-Jul-03 20:59

hi,
i am currently facing a title separation (Station 1) difficulties in printing on the same page.

req output:

Station: 1 (combobox value)
data
data
data

Station: 2 (combobox value)
data
data
data
data

how to capture the range value and separte into the above output?
can anybody help......i have been struggling for some time
thanks.

ON GOTO statement to vc++

shanila13-Jul-03 3:12

shanila

13-Jul-03 3:12

I got this BASIC code from an old book, I am converting this to c, could somebody tell me what is "On NTY GoTo 610, 620, 680, 690" function is? I know that is to go to line 610,620,680,690. but what are the conditions for that?
what about " !" in here?, In c if it is "!=" that is not equal to, but what about here? It canot be factorial number.

NTY = ITYPE(I): KP = 4 * (I - 1) + 1
600 On NTY GoTo 610, 620, 680, 690
610 R = ELEM(KP): GoTo 660
620 REY = ELEM(KP + 1) * Abs(Q(I)): If REY < 1! Then REY = 1!
630 If REY < 2000 ! Then GoTo 640 Else GoTo 650
640 R = ELEM(KP) * 64 ! / REY: GoTo 660
650 R = ELEM(KP) * 1.325 / (Log(ELEM(KP + 2) + 5.74 / REY ^ 0.9)) ^ 2
660 DH = DH + S(J) * R * Q(I) * Abs(Q(I)) ^ EN
670 HDQ=HDQ+EX*R*ABS(Q(I))^EN GOTO 710
680 DH = DH + S(J) * ELEM(KP): GoTo 710
690 DH = DH - S(J) * E(LEM(KP) + Q(I) * (ELEM(KP + 1) + Q(I) * (ELEM(KP + 2) + Q(I) * ELEM(KP + 3))))

thanks in advance
shanila

Re: ON GOTO statement to vc++

Hesham Amin13-Jul-03 8:52

Hesham Amin

13-Jul-03 8:52

as I recall
On NTY GoTo 610, 620, 680, 690 statement tests NTY and jumps to 610 if NTY=1 , 620 if NTY=2 etc.

in VB6 ! meens that the number is single.
but in GWBasic I used to see it if I write a huge number (the editor adds it)

How do I use Left, Right and Mid Functions?

MrGee12-Jul-03 8:49

MrGee

12-Jul-03 8:49

I am very new to Visual Basic 6, so forgive me if this is not the appropriate forum for this question.
I am building a form that has a text box that will hold hexadecimal data. I want to be able to take this data and display it seperate boxes of 2 characters. I know this can be done using Left(textName, 2) and also Mid(textName, 3, 2) but I can't seem to make it work.

Example: Text Box with this data: 22AB3F3202
That would yield text boxes with this: 22 AB 3F 32 02

I hope I made what I need clear and that someone can help me.
Thank you!

Re: How do I use Left, Right and Mid Functions?

Nick Parker12-Jul-03 9:16

Nick Parker

12-Jul-03 9:16

While there are a number of different ways you can do this, here is just a quick example:

Dim str, buff As String
str = Me.TextBox1.Text
Do While Len(str)
    buff = Left(str, 2)
    ListBox1.AddItem (buff)
    str = Right(str, Len(str) - 2)
Loop

You can obviously remove the listbox instruction, this is only an example. Hope this helps. Smile | :)

-Nick Parker

Re: How do I use Left, Right and Mid Functions?

Hesham Amin12-Jul-03 9:21

Hesham Amin

12-Jul-03 9:21

plz post some code so we can help Smile | :)

Re: How do I use Left, Right and Mid Functions?

MrGee14-Jul-03 9:32

MrGee

14-Jul-03 9:32

I finally got it to work using the following code. It's probably not the most efficient code, so if there is a better way, please let me know.

Private Sub txtCMD_Change()

Dim Length As String
Dim Hash As String
Dim Code2 As String
Dim Code3 As String
Dim Code4 As String
Dim Code5 As String
Dim Code6 As String
Dim Code7 As String
Dim Code8 As String
Dim Code9 As String
Dim Code10 As String
Dim Code11 As String
Dim Code12 As String
Dim Code13 As String
Dim Code14 As String
Dim Code15 As String
Dim Code16 As String
Dim Code17 As String
Dim Code18 As String
Dim Code19 As String
Dim Code20 As String
Dim Code21 As String
Dim Code22 As String
Dim Code23 As String
Dim Code24 As String
Dim Code25 As String
Dim Code26 As String
Dim Code27 As String
Dim Code28 As String
Dim Code29 As String
Dim Code30 As String
Dim Code31 As String
Dim Code32 As String
Dim Code33 As String
Dim Code34 As String
Dim Code35 As String
Dim Code36 As String
Dim Code37 As String
Dim Code38 As String
Dim Code39 As String
Dim Code40 As String
Dim Code41 As String
Dim Code42 As String
Dim Code43 As String
Dim Code44 As String
Dim Code45 As String
Dim Code46 As String
Dim Code47 As String
Dim Code48 As String
Dim Code49 As String

Length = txtCMDLength.Text
Hash = txtHashRange.Text
Code2 = Hex2.Text
Code3 = Hex3.Text
Code4 = Hex4.Text
Code5 = Hex5.Text
Code6 = Hex6.Text
Code7 = Hex7.Text
Code8 = Hex8.Text
Code9 = Hex9.Text
Code10 = Hex10.Text
Code11 = Hex11.Text
Code12 = Hex12.Text
Code13 = Hex13.Text
Code14 = Hex14.Text
Code15 = Hex15.Text
Code16 = Hex16.Text
Code17 = Hex17.Text
Code18 = Hex18.Text
Code19 = Hex19.Text
Code20 = Hex20.Text
Code21 = Hex21.Text
Code22 = Hex22.Text
Code23 = Hex23.Text
Code24 = Hex24.Text
Code25 = Hex25.Text
Code26 = Hex26.Text
Code27 = Hex27.Text
Code28 = Hex28.Text
Code29 = Hex29.Text
Code30 = Hex30.Text
Code31 = Hex31.Text
Code32 = Hex32.Text
Code33 = Hex33.Text
Code34 = Hex34.Text
Code35 = Hex35.Text
Code36 = Hex36.Text
Code37 = Hex37.Text
Code38 = Hex38.Text
Code39 = Hex39.Text
Code40 = Hex40.Text
Code41 = Hex41.Text
Code42 = Hex42.Text
Code43 = Hex43.Text
Code44 = Hex44.Text
Code45 = Hex45.Text
Code46 = Hex46.Text
Code47 = Hex47.Text
Code48 = Hex48.Text
Code49 = Hex49.Text

Length = UCase(Mid(txtCMD, 3, 2))
txtCMDLength = Length

Hash = UCase(Mid(txtCMD, 11, 4))
txtHashRange = Hash

Code2 = UCase(Mid(txtCMD, 3, 2))
Hex2 = Code2

Code3 = UCase(Mid(txtCMD, 5, 2))
Hex3 = Code3

Code4 = UCase(Mid(txtCMD, 7, 2))
Hex4 = Code4

Code5 = UCase(Mid(txtCMD, 9, 2))
Hex5 = Code5

Code6 = UCase(Mid(txtCMD, 11, 2))
Hex6 = Code6

Code7 = UCase(Mid(txtCMD, 13, 2))
Hex7 = Code7

Code8 = UCase(Mid(txtCMD, 15, 2))
Hex8 = Code8

Code9 = UCase(Mid(txtCMD, 17, 2))
Hex9 = Code9

Code10 = UCase(Mid(txtCMD, 19, 2))
Hex10 = Code10

Code11 = UCase(Mid(txtCMD, 21, 2))
Hex11 = Code11

Code12 = UCase(Mid(txtCMD, 23, 2))
Hex12 = Code12

Code13 = UCase(Mid(txtCMD, 25, 2))
Hex13 = Code13

Code14 = UCase(Mid(txtCMD, 27, 2))
Hex14 = Code14

Code15 = UCase(Mid(txtCMD, 29, 2))
Hex15 = Code15

Code16 = UCase(Mid(txtCMD, 31, 2))
Hex16 = Code16

Code17 = UCase(Mid(txtCMD, 33, 2))
Hex17 = Code17

Code18 = UCase(Mid(txtCMD, 35, 2))
Hex18 = Code18

Code19 = UCase(Mid(txtCMD, 37, 2))
Hex19 = Code19

Code20 = UCase(Mid(txtCMD, 39, 2))
Hex20 = Code20

Code21 = UCase(Mid(txtCMD, 41, 2))
Hex21 = Code21

Code22 = UCase(Mid(txtCMD, 43, 2))
Hex22 = Code22

Code23 = UCase(Mid(txtCMD, 45, 2))
Hex23 = Code23

Code24 = UCase(Mid(txtCMD, 47, 2))
Hex24 = Code24

Code25 = UCase(Mid(txtCMD, 49, 2))
Hex25 = Code25

Code26 = UCase(Mid(txtCMD, 51, 2))
Hex26 = Code26

Code27 = UCase(Mid(txtCMD, 53, 2))
Hex27 = Code27

Code28 = UCase(Mid(txtCMD, 55, 2))
Hex28 = Code28

Code29 = UCase(Mid(txtCMD, 57, 2))
Hex29 = Code29

Code30 = UCase(Mid(txtCMD, 59, 2))
Hex30 = Code30

Code31 = UCase(Mid(txtCMD, 61, 2))
Hex31 = Code31

Code32 = UCase(Mid(txtCMD, 63, 2))
Hex32 = Code32

Code33 = UCase(Mid(txtCMD, 65, 2))
Hex33 = Code33

Code34 = UCase(Mid(txtCMD, 67, 2))
Hex34 = Code34

Code35 = UCase(Mid(txtCMD, 69, 2))
Hex35 = Code35

Code36 = UCase(Mid(txtCMD, 71, 2))
Hex36 = Code36

Code37 = UCase(Mid(txtCMD, 73, 2))
Hex37 = Code37

Code38 = UCase(Mid(txtCMD, 75, 2))
Hex38 = Code38

Code39 = UCase(Mid(txtCMD, 77, 2))
Hex39 = Code39

Code40 = UCase(Mid(txtCMD, 79, 2))
Hex40 = Code40

Code41 = UCase(Mid(txtCMD, 81, 2))
Hex41 = Code41

Code42 = UCase(Mid(txtCMD, 83, 2))
Hex42 = Code42

Code43 = UCase(Mid(txtCMD, 85, 2))
Hex43 = Code43

Code44 = UCase(Mid(txtCMD, 87, 2))
Hex44 = Code44

Code45 = UCase(Mid(txtCMD, 89, 2))
Hex45 = Code45

Code46 = UCase(Mid(txtCMD, 91, 2))
Hex46 = Code46

Code47 = UCase(Mid(txtCMD, 93, 2))
Hex47 = Code47

Code48 = UCase(Mid(txtCMD, 95, 2))
Hex48 = Code48

Code49 = UCase(Mid(txtCMD, 97, 2))
Hex49 = Code49

End Sub

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.