Connect vb 6 to Sqlserver database, and load textfiles


Compliments of the day, pls I'm a newbie, I'm trying to connect to an Sqlserver database and load textfiles into the database and when its finished loading, it'll say "Loaded Successfully"

pls assist me: cos i've tried it

Private Sub cmdLoad_Click() OpenDialog.CancelError = True On Error GoTo ErrHandler OpenDialog.DialogTitle = "Open File" OpenDialog.Filter = "Text Files (*.txt)|*.txt" OpenDialog.FilterIndex = 1 OpenDialog.ShowOpen strFileName = OpenDialog.FileName 'OpenDialog.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly Dim Called, Calling, Start, Stp, Duration, Incom, OutCom As String Dim Stream As TextStream Dim StrA As String Dim RecA As String Dim Record As String Dim Rec As String Dim i As Integer Dim j As Integer Rec = Read For j = 0 To i - 1 RecA = Split(",") Dim iLen As Integer RecA = Length Dim K As Integer If j = i Then Exit For Called = RecA Calling = RecA Start = RecA Stp = RecA Duration = RecA Incom = RecA OutCom = RecA InsertRecord(Called, Calling, Start, Stp, Duration, Incom, OutCom) Next OpenDialog.CancelError = True On Error GoTo ErrHandler MsgBox("File Loaded Successfully", vbOKOnly, "File Upload") = vbOK 'Dim FSO As FileSystemObject 'Dim Ts As TextStream 'Dim str As String 'Set FSO = FSO.GetFile("C:\OnitshaIncoming\Data.txt") 'Set Ts = FSO.OpenTextFile 'str = Ts.Read 'Read all the File End Sub

Private Function InsertRecord(Caled As String, Calling As String, Start As String, EndTime As String, Duration As String, Inco As String, OutCo As String) sSQL = "Insert into " & cbocity.Text & cboTraffic.Text & "Values('" & Caled & "','" & Calling & "','" & Start & "','" & _ EndTime & "','" & Duration & "','" & Inco & "','" & OutCo & "')" End Function
This post has been edited by PsychoCoder: 06 November 2007 - 01:54 PM
Posted On: Monday 24th of December 2012 01:16:21 AM Total Views:  343
View Complete with Replies

RELATED TOPICS OF Visual Basic PROGRAMMING LANGUAGE




input .txt file

how to input to database (sql server 2008) .txt file with visual basic 6
VIEWS ON THIS POST

145

Posted on:

Wednesday 28th November 2012
View Replies!

just a question

i have written 4 programs. can i join all of my programs up to make an all in one program internet browser, mp3 player,file navigator & firewall in so how to very interested in know how.
VIEWS ON THIS POST

416

Posted on:

Wednesday 28th November 2012
View Replies!

file transfer

i would like to transfer a file from a computer to another over the internet, the recieving computer has a public address and the sending computer behind a firewall that does not allow ftp protocol, is there another way to transfer a file i am using VB6 and vb.net
VIEWS ON THIS POST

135

Posted on:

Wednesday 28th November 2012
View Replies!

Making apps talk

I posted my question in the VB .NET section, but it's hardly even been read, so I'm thinking this might have been a better place to ask. Basically, I just need two programs to talk to eachother in realtime. In VB6, I would have done this with WinSock. In 2005, I'm completely lost. I've yet to find a tutorial that isn't FAR more complex than just some basic app2app communication. Any thoughts
VIEWS ON THIS POST

114

Posted on:

Wednesday 28th November 2012
View Replies!

a program that will accept string input from the user. the program tha

a program that will accept string input from the user. the program that will determine if the input string is a palindrome or not a palindrome.
VIEWS ON THIS POST

165

Posted on:

Wednesday 28th November 2012
View Replies!

Error Generation

hi there i create my program then run it on my computer it runs works etc.. when a friend trys to run it he gets errors plz tell me what im doing wrong
VIEWS ON THIS POST

94

Posted on:

Thursday 29th November 2012
View Replies!

datalist in vb6

I have a datalist in my vb6 project that read data from database (sql). I want to remove one or more of its items by clicking a botton. what should I do
VIEWS ON THIS POST

276

Posted on:

Thursday 29th November 2012
View Replies!

conditional statement(if... and... then)

[size=7] Sub compchrg() If Option1.Value = True Then If Check1.Value = 1 Then Text2 = "250.00" ElseIf Check2.Value = 1 Then Text2 = "2500.00" ElseIf Check3.Value = 1 Then Text2 = "350.00" ElseIf Check4.Value = 1 Then Text2 = "500.00" ElseIf Check5.Value = 1 Then Text2 = "900.00" ElseIf Check6.Value = 1 Then Frame7.Visible = True ElseIf Check7.Value = 1 Then Text2 = "10000.00" ElseIf Check8.Value = 1 Then Text2 = "200.00" ElseIf Check9.Value = 1 Then Text2 = "3500.00" ElseIf Check10.Value = 1 Then Text2 = "15000.00" ElseIf Check11.Value = 1 Then Text2 = "150.00" ElseIf Check12.Value = 1 Then Text2 = "1000.00" ElseIf Check13.Value = 1 Then Text2 = "1000.00" ElseIf Check14.Value = 1 Then Text2 = "250.00" ElseIf Check15.Value = 1 Then Text2 = "350.00" ElseIf Check16.Value = 1 Then Text2 = "350.00" ElseIf Check17.Value = 1 Then Text2 = "1500.00" ElseIf Check1.Value = 1 And Check2.Value = 1 Then Text2 = "2700.00" ElseIf Check1.Value = 1 And Check3.Value = 1 Then Text2 = "600.00" ElseIf Check1.Value = 1 And Check4.Value = 1 Then Text2 = "750.00" ElseIf Check1.Value = 1 And Check5.Value = 1 Then Text2 = "1150.00" ElseIf Check1.Value = 1 And Check7.Value = 1 Then Text2 = "10250.00" ElseIf Check1.Value = 1 And Check8.Value = 1 Then Text2 = "450" ElseIf Check1.Value = 1 And Check9.Value = 1 Then Text2 = "3750.00" ElseIf Check1.Value = 1 And Check10.Value = 1 Then Text2 = "15250.00" ElseIf Check1.Value = 1 And Check11.Value = 1 Then Text2 = "400.00" ElseIf Check1.Value = 1 And Check12.Value = 1 Then Text2 = "1250.00" ElseIf Check1.Value = 1 And Check13.Value = 1 Then Text2 = "1250.00" ElseIf Check1.Value = 1 And Check14.Value = 1 Then Text2 = "500.00" ElseIf Check1.Value = 1 And Check15.Value = 1 Then Text2 = "600" ElseIf Check1.Value = 1 And Check16.Value = 1 Then Text2 = "600" ElseIf Check1.Value = 1 And Check17.Value = 1 Then Text2 = "1750.00" ElseIf Check2.Value = 1 And Check3.Value = 1 Then Text2 = "1850" ElseIf Check2.Value = 1 And Check4.Value = 1 Then Text2 = "4000.00" ElseIf Check2.Value = 1 And Check5.Value = 1 Then Text2 = "4400.00" ElseIf Check2.Value = 1 And Check7.Value = 1 Then Text2 = "13500.00" ElseIf Check2.Value = 1 And Check8.Value = 1 Then Text2 = "3700.00" ElseIf Check2.Value = 1 And Check9.Value = 1 Then Text2 = "7000.00" ElseIf Check2.Value = 1 And Check10.Value = 1 Then Text2 = "18500.00" ElseIf Check2.Value = 1 And Check11.Value = 1 Then Text2 = Val(3500) + Val(150) ElseIf Check2.Value = 1 And Check12.Value = 1 Then Text2 = Val(3500) + Val(1000) ElseIf Check2.Value = 1 And Check13.Value = 1 Then Text2 = Val(3500) + Val(1000) ElseIf Check2.Value = 1 And Check14.Value = 1 Then Text2 = Val(3500) + Val(250) ElseIf Check2.Value = 1 And Check15.Value = 1 Then Text2 = Val(3500) + Val(350) ElseIf Check2.Value = 1 And Check16.Value = 1 Then Text2 = Val(3500) + Val(350) ElseIf Check2.Value = 1 And Check17.Value = 1 Then Text2 = Val(3500) + Val(1500) ElseIf Check3.Value = 1 And Check4.Value = 1 Then Text2 = Val(350) + Val(500) ElseIf Check3.Value = 1 And Check5.Value = 1 Then Text2 = Val(350) + Val(900) ElseIf Check3.Value = 1 And Check7.Value = 1 Then Text2 = Val(350) + Val(10000) ElseIf Check3.Value = 1 And Check8.Value = 1 Then Text2 = Val(350) + Val(200) ElseIf Check3.Value = 1 And Check9.Value = 1 Then Text2 = Val(350) + Val(3500) ElseIf Check3.Value = 1 And Check10.Value = 1 Then Text2 = Val(350) + Val(15000) ElseIf Check3.Value = 1 And Check11.Value = 1 Then Text2 = Val(350) + Val(150) ElseIf Check3.Value = 1 And Check12.Value = 1 Then Text2 = Val(350) + Val(1000) ElseIf Check3.Value = 1 And Check13.Value = 1 Then Text2 = Val(350) + Val(1000) ElseIf Check3.Value = 1 And Check14.Value = 1 Then Text2 = Val(350) + Val(250) ElseIf Check3.Value = 1 And Check15.Value = 1 Then Text2 = Val(350) + Val(350) ElseIf Check3.Value = 1 And Check16.Value = 1 Then Text2 = Val(350) + Val(350) ElseIf Check3.Value = 1 And Check17.Value = 1 Then Text2 = Val(350) + Val(1500) ElseIf Check4.Value = 1 And Check5.Value = 1 Then Text2 = Val(500) + Val(900) ElseIf Check4.Value = 1 And Check7.Value = 1 Then Text2 = Val(500) + Val(10000) ElseIf Check4.Value = 1 And Check8.Value = 1 Then Text2 = Val(500) + Val(200) ElseIf Check4.Value = 1 And Check9.Value = 1 Then Text2 = Val(500) + Val(3500) ElseIf Check4.Value = 1 And Check10.Value = 1 Then Text2 = Val(500) + Val(15000) ElseIf Check4.Value = 1 And Check11.Value = 1 Then Text2 = Val(500) + Val(150) ElseIf Check4.Value = 1 And Check12.Value = 1 Then Text2 = Val(500) + Val(1000) ElseIf Check4.Value = 1 And Check13.Value = 1 Then Text2 = Val(500) + Val(1000) ElseIf Check4.Value = 1 And Check14.Value = 1 Then Text2 = Val(500) + Val(250) ElseIf Check4.Value = 1 And Check15.Value = 1 Then Text2 = Val(500) + Val(350) ElseIf Check4.Value = 1 And Check16.Value = 1 Then Text2 = Val(500) + Val(350) ElseIf Check4.Value = 1 And Check17.Value = 1 Then Text2 = Val(500) + Val(1500) ElseIf Check5.Value = 1 And Check7.Value = 1 Then Text2 = Val(900) + Val(10000) ElseIf Check5.Value = 1 And Check8.Value = 1 Then Text2 = Val(900) + Val(200) ElseIf Check5.Value = 1 And Check9.Value = 1 Then Text2 = Val(900) + Val(3500) ElseIf Check5.Value = 1 And Check10.Value = 1 Then Text2 = Val(900) + Val(15000) ElseIf Check5.Value = 1 And Check11.Value = 1 Then Text2 = Val(900) + Val(150) ElseIf Check5.Value = 1 And Check12.Value = 1 Then Text2 = Val(900) + Val(1000) ElseIf Check5.Value = 1 And Check13.Value = 1 Then Text2 = Val(900) + Val(1000) ElseIf Check5.Value = 1 And Check14.Value = 1 Then Text2 = Val(900) + Val(250) ElseIf Check5.Value = 1 And Check15.Value = 1 Then Text2 = Val(900) + Val(350) ElseIf Check5.Value = 1 And Check16.Value = 1 Then Text2 = Val(900) + Val(350) ElseIf Check5.Value = 1 And Check17.Value = 1 Then Text2 = Val(900) + Val(1500) ElseIf Check7.Value = 1 And Check8.Value = 1 Then Text2 = Val(10000) + Val(200) ElseIf Check7.Value = 1 And Check9.Value = 1 Then Text2 = Val(10000) + Val(3500) ElseIf Check7.Value = 1 And Check10.Value = 1 Then Text2 = Val(10000) + Val(15000) ElseIf Check7.Value = 1 And Check11.Value = 1 Then Text2 = Val(10000) + Val(150) ElseIf Check7.Value = 1 And Check12.Value = 1 Then Text2 = Val(10000) + Val(1000) ElseIf Check7.Value = 1 And Check13.Value = 1 Then Text2 = Val(10000) + Val(1000) ElseIf Check7.Value = 1 And Check14.Value = 1 Then Text2 = Val(10000) + Val(250) ElseIf Check7.Value = 1 And Check15.Value = 1 Then Text2 = Val(10000) + Val(350) ElseIf Check7.Value = 1 And Check16.Value = 1 Then Text2 = Val(10000) + Val(350) ElseIf Check7.Value = 1 And Check17.Value = 1 Then Text2 = Val(10000) + Val(1500) ElseIf Check8.Value = 1 And Check9.Value = 1 Then Text2 = Val(200) + Val(3500) ElseIf Check8.Value = 1 And Check10.Value = 1 Then Text2 = Val(200) + Val(15000) ElseIf Check8.Value = 1 And Check11.Value = 1 Then Text2 = Val(200) + Val(150) ElseIf Check8.Value = 1 And Check12.Value = 1 Then Text2 = Val(200) + Val(1000) ElseIf Check8.Value = 1 And Check13.Value = 1 Then Text2 = Val(200) + Val(1000) ElseIf Check8.Value = 1 And Check14.Value = 1 Then Text2 = Val(200) + Val(250) ElseIf Check8.Value = 1 And Check15.Value = 1 Then Text2 = Val(200) + Val(350) ElseIf Check8.Value = 1 And Check16.Value = 1 Then Text2 = Val(200) + Val(350) ElseIf Check8.Value = 1 And Check17.Value = 1 Then Text2 = Val(200) + Val(1500) ElseIf Check9.Value = 1 And Check10.Value = 1 Then Text2 = Val(3500) + Val(15000) ElseIf Check9.Value = 1 And Check11.Value = 1 Then Text2 = Val(3500) + Val(150) ElseIf Check9.Value = 1 And Check12.Value = 1 Then Text2 = Val(3500) + Val(1000) ElseIf Check9.Value = 1 And Check13.Value = 1 Then Text2 = Val(3500) + Val(1000) ElseIf Check9.Value = 1 And Check14.Value = 1 Then Text2 = Val(3500) + Val(250) ElseIf Check9.Value = 1 And Check15.Value = 1 Then Text2 = Val(3500) + Val(350) ElseIf Check9.Value = 1 And Check16.Value = 1 Then Text2 = Val(3500) + Val(350) ElseIf Check9.Value = 1 And Check17.Value = 1 Then Text2 = Val(3500) + Val(1500) ElseIf Check10.Value = 1 And Check11.Value = 1 Then Text2 = Val(15000) + Val(150) ElseIf Check10.Value = 1 And Check12.Value = 1 Then Text2 = Val(15000) + Val(1000) ElseIf Check10.Value = 1 And Check13.Value = 1 Then Text2 = Val(15000) + Val(1000) ElseIf Check10.Value = 1 And Check14.Value = 1 Then Text2 = Val(15000) + Val(250) ElseIf Check10.Value = 1 And Check15.Value = 1 Then Text2 = Val(15000) + Val(350) ElseIf Check10.Value = 1 And Check16.Value = 1 Then Text2 = Val(15000) + Val(350) ElseIf Check10.Value = 1 And Check17.Value = 1 Then Text2 = Val(15000) + Val(1500) ElseIf Check11.Value = 1 And Check12.Value = 1 Then Text2 = Val(150) + Val(1000) ElseIf Check11.Value = 1 And Check13.Value = 1 Then ' Text2 = Val(150) + Val(1000) ElseIf Check11.Value = 1 And Check14.Value = 1 Then Text2 = Val(150) + Val(250) ElseIf Check11.Value = 1 And Check15.Value = 1 Then Text2 = Val(150) + Val(350) ElseIf Check11.Value = 1 And Check16.Value = 1 Then Text2 = Val(150) + Val(350) ElseIf Check11.Value = 1 And Check17.Value = 1 Then Text2 = Val(150) + Val(1500) ElseIf Check12.Value = 1 And Check13.Value = 1 Then Text2 = Val(1000) + Val(1000) ElseIf Check12.Value = 1 And Check14.Value = 1 Then Text2 = Val(1000) + Val(250) ElseIf Check12.Value = 1 And Check15.Value = 1 Then Text2 = Val(1000) + Val(350) ElseIf Check12.Value = 1 And Check16.Value = 1 Then Text2 = Val(1000) + Val(350) ElseIf Check12.Value = 1 And Check17.Value = 1 Then Text2 = Val(1000) + Val(1500) ElseIf Check13.Value = 1 And Check14.Value = 1 Then Text2 = Val(1000) + Val(250) ElseIf Check13.Value = 1 And Check15.Value = 1 Then Text2 = Val(1000) + Val(350) ElseIf Check13.Value = 1 And Check16.Value = 1 Then Text2 = Val(1000) + Val(350) ElseIf Check13.Value = 1 And Check17.Value = 1 Then Text2 = Val(1000) + Val(1500) ElseIf Check14.Value = 1 And Check15.Value = 1 Then Text2 = Val(250) + Val(350) ElseIf Check14.Value = 1 And Check16.Value = 1 Then Text2 = Val(250) + Val(350) ElseIf Check14.Value = 1 And Check17.Value = 1 Then Text2 = Val(250) + Val(1500) ElseIf Check15.Value = 1 And Check16.Value = 1 Then Text2 = Val(350) + Val(350) ElseIf Check15.Value = 1 And Check17.Value = 1 Then Text2 = Val(350) + Val(1500) ElseIf Check16.Value = 1 And Check17.Value = 1 Then Text2 = Val(350) + Val(1500) End If ElseIf Option2.Value = True Then If Check1.Value = 1 Then Text2 = 250# - 25 ElseIf Check2.Value = 1 Then Text2 = 2500 - 250 ElseIf Check3.Value = 1 Then Text2 = 350 - 35 ElseIf Check4.Value = 1 Then Text2 = 500 - 50 ElseIf Check5.Value = 1 Then Text2 = 900 - 90 ElseIf Check6.Value = 1 Then Frame7.Visible = True ElseIf Check7.Value = 1 Then Text2 = 10000 - 100 ElseIf Check8.Value = 1 Then Text2 = 200 - 20 ElseIf Check9.Value = 1 Then Text2 = 3500 - 350 ElseIf Check10.Value = 1 Then Text2 = 15000 - 150 ElseIf Check11.Value = 1 Then Text2 = 150 - 15 ElseIf Check12.Value = 1 Then Text2 = 1000 - 100 ElseIf Check13.Value = 1 Then Text2 = 1000 - 100 ElseIf Check14.Value = 1 Then Text2 = 250 - 25 ElseIf Check15.Value = 1 Then Text2 = 350# - 35 ElseIf Check16.Value = 1 Then Text2 = 350 - 35 ElseIf Check17.Value = 1 Then Text2 = 1500 - 150 ElseIf Check1.Value And Check2.Value = 1 Then Text2 = 2750 - 275 ElseIf Check1.Value And Check3.Value = 1 Then Text2 = 600 - 60 ElseIf Check1.Value And Check4.Value = 1 Then Text2 = 750 - 75 ElseIf Check1.Value And Check5.Value = 1 Then Text2 = 1150 - 115 ElseIf Check1.Value And Check7.Value = 1 Then Text2 = 10250 - 1025 ElseIf Check1.Value And Check8.Value = 1 Then Text2 = 450 - 45 ElseIf Check1.Value And Check9.Value = 1 Then Text2 = 3750 - 375 ElseIf Check1.Value And Check10.Value = 1 Then Text2 = 15250 - 1525 ElseIf Check1.Value And Check11.Value = 1 Then Text2 = 400 - 40 ElseIf Check1.Value And Check12.Value = 1 Then Text2 = 1250 - 125 ElseIf Check1.Value And Check13.Value = 1 Then Text2 = 1250 - 125 ElseIf Check1.Value And Check14.Value = 1 Then Text2 = 500 - 50 ElseIf Check1.Value And Check15.Value = 1 Then Text2 = 600 - 60 ElseIf Check1.Value And Check16.Value = 1 Then Text2 = 600 - 60 ElseIf Check1.Value = 1 And Check17.Value = 1 Then Text2 = 1750 - 175 ElseIf Check2.Value = 1 And Check3.Value = 1 Then Text2 = 3850 - 385 ElseIf Check2.Value = 1 And Check4.Value = 1 Then Text2 = 4000 - 400 ElseIf Check2.Value = 1 And Check5.Value = 1 Then Text2 = 4400 - 440 ElseIf Check2.Value = 1 And Check7.Value = 1 Then Text2 = 13500 - 1350 ElseIf Check2.Value = 1 And Check8.Value = 1 Then Text2 = 3700 - 370 ElseIf Check2.Value = 1 And Check9.Value = 1 Then Text2 = 7000 - 700 ElseIf Check2.Value = 1 And Check10.Value = 1 Then Text2 = 18500 - 1850 ElseIf Check2.Value = 1 And Check11.Value = 1 Then Text2 = 3650 - 365 ElseIf Check2.Value = 1 And Check12.Value = 1 Then Text2 = 4500 - 450 ElseIf Check2.Value = 1 And Check13.Value = 1 Then Text2 = 4500 - 450 ElseIf Check2.Value = 1 And Check14.Value = 1 Then Text2 = 3750 - 375 ElseIf Check2.Value = 1 And Check15.Value = 1 Then Text2 = 3850 - 385 ElseIf Check2.Value = 1 And Check16.Value = 1 Then Text2 = 3850 - 385 ElseIf Check2.Value = 1 And Check17.Value = 1 Then Text2 = 5000 - 500 ElseIf Check3.Value = 1 And Check4.Value = 1 Then Text2 = 850 - 85 ElseIf Check3.Value = 1 And Check5.Value = 1 Then Text2 = 1250 - 125 ElseIf Check3.Value = 1 And Check7.Value = 1 Then Text2 = 10350 - 1035 ElseIf Check3.Value = 1 And Check8.Value = 1 Then Text2 = 550 - 55 ElseIf Check3.Value = 1 And Check9.Value = 1 Then Text2 = 3850 - 385 ElseIf Check3.Value = 1 And Check10.Value = 1 Then Text2 = 15350 - 1535 ElseIf Check3.Value = 1 And Check11.Value = 1 Then Text2 = 500 - 50 ElseIf Check3.Value = 1 And Check12.Value = 1 Then Text2 = 1350 - 135 ElseIf Check3.Value = 1 And Check13.Value = 1 Then Text2 = 1350 - 135 ElseIf Check3.Value = 1 And Check14.Value = 1 Then Text2 = 600 - 60 ElseIf Check3.Value = 1 And Check15.Value = 1 Then Text2 = 700 - 70 ElseIf Check3.Value = 1 And Check16.Value = 1 Then Text2 = 700 - 70 ElseIf Check3.Value = 1 And Check17.Value = 1 Then Text2 = 1850 - 185 ElseIf Check4.Value = 1 And Check5.Value = 1 Then Text2 = 1400 - 140 ElseIf Check4.Value = 1 And Check7.Value = 1 Then Text2 = 10500 - 1050 ElseIf Check4.Value = 1 And Check8.Value = 1 Then Text2 = 700 - 70 ElseIf Check4.Value = 1 And Check9.Value = 1 Then Text2 = 4000 - 400 ElseIf Check4.Value = 1 And Check10.Value = 1 Then Text2 = 15500 - 155 ElseIf Check4.Value = 1 And Check11.Value = 1 Then Text2 = 650 - 65 ElseIf Check4.Value = 1 And Check12.Value = 1 Then Text2 = 1500 - 150 ElseIf Check4.Value = 1 And Check13.Value = 1 Then Text2 = 1500 - 150 ElseIf Check4.Value = 1 And Check14.Value = 1 Then Text2 = 750 - 75 ElseIf Check4.Value = 1 And Check15.Value = 1 Then Text2 = 850 - 85 ElseIf Check4.Value = 1 And Check16.Value = 1 Then Text2 = 850 - 85 ElseIf Check4.Value = 1 And Check17.Value = 1 Then Text2 = 2000 - 200 ElseIf Check5.Value = 1 And Check7.Value = 1 Then Text2 = 10900 - 1090 ElseIf Check5.Value = 1 And Check8.Value = 1 Then Text2 = 1100 - 110 ElseIf Check5.Value = 1 And Check9.Value = 1 Then Text2 = 4400 - 440 ElseIf Check5.Value = 1 And Check10.Value = 1 Then Text2 = 15900 - 1590 ElseIf Check5.Value = 1 And Check11.Value = 1 Then Text2 = 1050 - 105 ElseIf Check5.Value = 1 And Check12.Value = 1 Then Text2 = 1900 - 190 ElseIf Check5.Value = 1 And Check13.Value = 1 Then Text2 = 1900 - 190 ElseIf Check5.Value = 1 And Check14.Value = 1 Then Text2 = 1150 - 115 ElseIf Check5.Value = 1 And Check15.Value = 1 Then Text2 = 1250 - 125 ElseIf Check5.Value = 1 And Check16.Value = 1 Then Text2 = 1250 - 125 ElseIf Check5.Value = 1 And Check17.Value = 1 Then Text2 = 2400 - 240 ElseIf Check7.Value = 1 And Check8.Value = 1 Then Text2 = 10200 - 1020 ElseIf Check7.Value = 1 And Check9.Value = 1 Then Text2 = 13500 - 1350 ElseIf Check7.Value = 1 And Check10.Value = 1 Then Text2 = 25000 - 2500 ElseIf Check7.Value = 1 And Check11.Value = 1 Then Text2 = 10150 - 1015 ElseIf Check7.Value = 1 And Check12.Value = 1 Then Text2 = 11000 - 1100 ElseIf Check7.Value = 1 And Check13.Value = 1 Then Text2 = 11000 - 1100 ElseIf Check7.Value = 1 And Check14.Value = 1 Then Text2 = 10250 - 1025 ElseIf Check7.Value = 1 And Check15.Value = 1 Then Text2 = 10350 - 1035 ElseIf Check7.Value = 1 And Check16.Value = 1 Then Text2 = 10350 - 1035 ElseIf Check7.Value = 1 And Check17.Value = 1 Then Text2 = 11500 - 1150 ElseIf Check8.Value = 1 And Check9.Value = 1 Then Text2 = 3700 - 370 ElseIf Check8.Value = 1 And Check10.Value = 1 Then Text2 = 15200 - 1520 ElseIf Check8.Value = 1 And Check11.Value = 1 Then Text2 = 350 - 35 ElseIf Check8.Value = 1 And Check12.Value = 1 Then Text2 = 1200 - 120 ElseIf Check8.Value = 1 And Check13.Value = 1 Then Text2 = 1200 - 120 ElseIf Check8.Value = 1 And Check14.Value = 1 Then Text2 = 450 - 45 ElseIf Check8.Value = 1 And Check15.Value = 1 Then Text2 = 550 - 55 ElseIf Check8.Value = 1 And Check16.Value = 1 Then Text2 = 550 - 55 ElseIf Check8.Value = 1 And Check17.Value = 1 Then Text2 = 1700 - 170 ElseIf Check9.Value = 1 And Check10.Value = 1 Then Text2 = 18500 - 1850 ElseIf Check9.Value = 1 And Check11.Value = 1 Then Text2 = 3650 - 365 ElseIf Check9.Value = 1 And Check12.Value = 1 Then Text2 = 4500 - 450 ElseIf Check9.Value = 1 And Check13.Value = 1 Then Text2 = 4500 - 450 ElseIf Check9.Value = 1 And Check14.Value = 1 Then Text2 = 3750 - 375 ElseIf Check9.Value = 1 And Check15.Value = 1 Then Text2 = 3850 - 385 ElseIf Check9.Value = 1 And Check16.Value = 1 Then Text2 = 3850 - 385 ElseIf Check9.Value = 1 And Check17.Value = 1 Then Text2 = 5000 - 500 ElseIf Check10.Value = 1 And Check11.Value = 1 Then Text2 = 15150 - 1515 ElseIf Check10.Value = 1 And Check12.Value = 1 Then Text2 = 16000 - 1600 ElseIf Check10.Value = 1 And Check13.Value = 1 Then Text2 = 16000 - 1600 ElseIf Check10.Value = 1 And Check14.Value = 1 Then Text2 = 15250 - 1525 ElseIf Check10.Value = 1 And Check15.Value = 1 Then Text2 = 15350 - 1535 ElseIf Check10.Value = 1 And Check16.Value = 1 Then Text2 = 15350 - 1535 ElseIf Check10.Value = 1 And Check17.Value = 1 Then Text2 = 16500 - 1650 ElseIf Check11.Value = 1 And Check12.Value = 1 Then Text2 = 1150 - 115 ElseIf Check11.Value = 1 And Check13.Value = 1 Then ' Text2 = 1150 - 115 ElseIf Check11.Value = 1 And Check14.Value = 1 Then Text2 = 400 - 40 ElseIf Check11.Value = 1 And Check15.Value = 1 Then Text2 = 400 - 40 ElseIf Check11.Value = 1 And Check16.Value = 1 Then Text2 = 500 - 50 ElseIf Check11.Value = 1 And Check17.Value = 1 Then Text2 = 1650 - 165 ElseIf Check12.Value = 1 And Check13.Value = 1 Then Text2 = 2000 - 200 ElseIf Check12.Value = 1 And Check14.Value = 1 Then Text2 = 1250 - 125 ElseIf Check12.Value = 1 And Check15.Value = 1 Then Text2 = 1350 - 135 ElseIf Check12.Value = 1 And Check16.Value = 1 Then Text2 = 1350 - 135 ElseIf Check12.Value = 1 And Check17.Value = 1 Then Text2 = 2500 - 250 ElseIf Check13.Value = 1 And Check14.Value = 1 Then Text2 = 1250 - 125 ElseIf Check13.Value = 1 And Check15.Value = 1 Then Text2 = 1350 - 135 ElseIf Check13.Value = 1 And Check16.Value = 1 Then Text2 = 1350 - 135 ElseIf Check13.Value = 1 And Check17.Value = 1 Then Text2 = 2500 - 250 ElseIf Check14.Value = 1 And Check15.Value = 1 Then Text2 = 600 - 60 ElseIf Check14.Value = 1 And Check16.Value = 1 Then Text2 = 600 - 60 ElseIf Check14.Value = 1 And Check17.Value = 1 Then Text2 = 1750 - 175 ElseIf Check15.Value = 1 And Check16.Value = 1 Then Text2 = 700 - 70 ElseIf Check15.Value = 1 And Check17.Value = 1 Then Text2 = 1850 - 185 ElseIf Check16.Value = 1 And Check17.Value = 1 Then Text2 = 1850 - 185 End If Else If Check1.Value = 1 Then Text2 = "250.00" ElseIf Check2.Value = 1 Then Text2 = "2500.00" ElseIf Check3.Value = 1 Then Text2 = "2500.00" ElseIf Check4.Value = 1 Then Text2 = "500.00" ElseIf Check5.Value = 1 Then Text2 = "900.00" ElseIf Check6.Value = 1 Then Frame7.Visible = True ElseIf Check7.Value = 1 Then Text2 = "10000.00" ElseIf Check8.Value = 1 Then Text2 = "200.00" ElseIf Check9.Value = 1 Then Text2 = "3500.00" ElseIf Check10.Value = 1 Then Text2 = "15000.00" ElseIf Check11.Value = 1 Then Text2 = "150.00" ElseIf Check12.Value = 1 Then Text2 = "1000.00" ElseIf Check13.Value = 1 Then Text2 = "1000.00" ElseIf Check14.Value = 1 Then Text2 = "250.00" ElseIf Check15.Value = 1 Then Text2 = "350.00" ElseIf Check16.Value = 1 Then Text2 = "350.00" ElseIf Check17.Value = 1 Then Text2 = "1500.00" ElseIf Check1.Value And Check2.Value = 1 Then Text2 = Val(250) + Val(2500) ElseIf Check1.Value And Check3.Value = 1 Then Text2 = Val(250) + Val(350) ElseIf Check1.Value And Check4.Value = 1 Then Text2 = Val(250) + Val(500) ElseIf Check1.Value And Check5.Value = 1 Then Text2 = Val(250) + Val(900) ElseIf Check1.Value And Check7.Value = 1 Then Text2 = Val(250) + Val(10000) ElseIf Check1.Value And Check8.Value = 1 Then Text2 = Val(250) + Val(200) ElseIf Check1.Value And Check9.Value = 1 Then Text2 = Val(250) + Val(3500) ElseIf Check1.Value And Check10.Value = 1 Then Text2 = Val(250) + Val(15000) ElseIf Check1.Value And Check11.Value = 1 Then Text2 = Val(250) + Val(150) ElseIf Check1.Value And Check12.Value = 1 Then Text2 = Val(250) + Val(1000) ElseIf Check1.Value And Check13.Value = 1 Then Text2 = Val(250) + Val(1000) ElseIf Check1.Value And Check14.Value = 1 Then Text2 = Val(250) + Val(250) ElseIf Check1.Value And Check15.Value = 1 Then Text2 = Val(250) + Val(350) ElseIf Check1.Value And Check16.Value = 1 Then Text2 = Val(250) + Val(350) ElseIf Check1.Value = 1 And Check17.Value = 1 Then Text2 = Val(250) + Val(1500) ElseIf Check2.Value = 1 And Check3.Value = 1 Then Text2 = Val(3500) + Val(350) ElseIf Check2.Value = 1 And Check4.Value = 1 Then Text2 = Val(3500) + Val(500) ElseIf Check2.Value = 1 And Check5.Value = 1 Then Text2 = Val(3500) + Val(900) ElseIf Check2.Value = 1 And Check7.Value = 1 Then Text2 = Val(3500) + Val(10000) ElseIf Check2.Value = 1 And Check8.Value = 1 Then Text2 = Val(3500) + Val(200) ElseIf Check2.Value = 1 And Check9.Value = 1 Then Text2 = Val(3500) + Val(3500) ElseIf Check2.Value = 1 And Check10.Value = 1 Then Text2 = Val(3500) + Val(15000) ElseIf Check2.Value = 1 And Check11.Value = 1 Then Text2 = Val(3500) + Val(150) ElseIf Check2.Value = 1 And Check12.Value = 1 Then Text2 = Val(3500) + Val(1000) ElseIf Check2.Value = 1 And Check13.Value = 1 Then Text2 = Val(3500) + Val(1000) ElseIf Check2.Value = 1 And Check14.Value = 1 Then Text2 = Val(3500) + Val(250) ElseIf Check2.Value = 1 And Check15.Value = 1 Then Text2 = Val(3500) + Val(350) ElseIf Check2.Value = 1 And Check16.Value = 1 Then Text2 = Val(3500) + Val(350) ElseIf Check2.Value = 1 And Check17.Value = 1 Then Text2 = Val(3500) + Val(1500) ElseIf Check3.Value = 1 And Check4.Value = 1 Then Text2 = Val(350) + Val(500) ElseIf Check3.Value = 1 And Check5.Value = 1 Then Text2 = Val(350) + Val(900) ElseIf Check3.Value = 1 And Check7.Value = 1 Then Text2 = Val(350) + Val(10000) ElseIf Check3.Value = 1 And Check8.Value = 1 Then Text2 = Val(350) + Val(200) ElseIf Check3.Value = 1 And Check9.Value = 1 Then Text2 = Val(350) + Val(3500) ElseIf Check3.Value = 1 And Check10.Value = 1 Then Text2 = Val(350) + Val(15000) ElseIf Check3.Value = 1 And Check11.Value = 1 Then Text2 = Val(350) + Val(150) ElseIf Check3.Value = 1 And Check12.Value = 1 Then Text2 = Val(350) + Val(1000) ElseIf Check3.Value = 1 And Check13.Value = 1 Then Text2 = Val(350) + Val(1000) ElseIf Check3.Value = 1 And Check14.Value = 1 Then Text2 = Val(350) + Val(250) ElseIf Check3.Value = 1 And Check15.Value = 1 Then Text2 = Val(350) + Val(350) ElseIf Check3.Value = 1 And Check16.Value = 1 Then Text2 = Val(350) + Val(350) ElseIf Check3.Value = 1 And Check17.Value = 1 Then Text2 = Val(350) + Val(1500) ElseIf Check4.Value = 1 And Check5.Value = 1 Then Text2 = Val(500) + Val(900) ElseIf Check4.Value = 1 And Check7.Value = 1 Then Text2 = Val(500) + Val(10000) ElseIf Check4.Value = 1 And Check8.Value = 1 Then Text2 = Val(500) + Val(200) ElseIf Check4.Value = 1 And Check9.Value = 1 Then Text2 = Val(500) + Val(3500) ElseIf Check4.Value = 1 And Check10.Value = 1 Then Text2 = Val(500) + Val(15000) ElseIf Check4.Value = 1 And Check11.Value = 1 Then Text2 = Val(500) + Val(150) ElseIf Check4.Value = 1 And Check12.Value = 1 Then Text2 = Val(500) + Val(1000) ElseIf Check4.Value = 1 And Check13.Value = 1 Then Text2 = Val(500) + Val(1000) ElseIf Check4.Value = 1 And Check14.Value = 1 Then Text2 = Val(500) + Val(250) ElseIf Check4.Value = 1 And Check15.Value = 1 Then Text2 = Val(500) + Val(350) ElseIf Check4.Value = 1 And Check16.Value = 1 Then Text2 = Val(500) + Val(350) ElseIf Check4.Value = 1 And Check17.Value = 1 Then Text2 = Val(500) + Val(1500) ElseIf Check5.Value = 1 And Check7.Value = 1 Then Text2 = Val(900) + Val(10000) ElseIf Check5.Value = 1 And Check8.Value = 1 Then Text2 = Val(900) + Val(200) ElseIf Check5.Value = 1 And Check9.Value = 1 Then Text2 = Val(900) + Val(3500) ElseIf Check5.Value = 1 And Check10.Value = 1 Then Text2 = Val(900) + Val(15000) ElseIf Check5.Value = 1 And Check11.Value = 1 Then Text2 = Val(900) + Val(150) ElseIf Check5.Value = 1 And Check12.Value = 1 Then Text2 = Val(900) + Val(1000) ElseIf Check5.Value = 1 And Check13.Value = 1 Then Text2 = Val(900) + Val(1000) ElseIf Check5.Value = 1 And Check14.Value = 1 Then Text2 = Val(900) + Val(250) ElseIf Check5.Value = 1 And Check15.Value = 1 Then Text2 = Val(900) + Val(350) ElseIf Check5.Value = 1 And Check16.Value = 1 Then Text2 = Val(900) + Val(350) ElseIf Check5.Value = 1 And Check17.Value = 1 Then Text2 = Val(900) + Val(1500) ElseIf Check7.Value = 1 And Check8.Value = 1 Then Text2 = Val(10000) + Val(200) ElseIf Check7.Value = 1 And Check9.Value = 1 Then Text2 = Val(10000) + Val(3500) ElseIf Check7.Value = 1 And Check10.Value = 1 Then Text2 = Val(10000) + Val(15000) ElseIf Check7.Value = 1 And Check11.Value = 1 Then Text2 = Val(10000) + Val(150) ElseIf Check7.Value = 1 And Check12.Value = 1 Then Text2 = Val(10000) + Val(1000) ElseIf Check7.Value = 1 And Check13.Value = 1 Then Text2 = Val(10000) + Val(1000) ElseIf Check7.Value = 1 And Check14.Value = 1 Then Text2 = Val(10000) + Val(250) ElseIf Check7.Value = 1 And Check15.Value = 1 Then Text2 = Val(10000) + Val(350) ElseIf Check7.Value = 1 And Check16.Value = 1 Then Text2 = Val(10000) + Val(350) ElseIf Check7.Value = 1 And Check17.Value = 1 Then Text2 = Val(10000) + Val(1500) ElseIf Check8.Value = 1 And Check9.Value = 1 Then Text2 = Val(200) + Val(3500) ElseIf Check8.Value = 1 And Check10.Value = 1 Then Text2 = Val(200) + Val(15000) ElseIf Check8.Value = 1 And Check11.Value = 1 Then Text2 = Val(200) + Val(150) ElseIf Check8.Value = 1 And Check12.Value = 1 Then Text2 = Val(200) + Val(1000) ElseIf Check8.Value = 1 And Check13.Value = 1 Then Text2 = Val(200) + Val(1000) ElseIf Check8.Value = 1 And Check14.Value = 1 Then Text2 = Val(200) + Val(250) ElseIf Check8.Value = 1 And Check15.Value = 1 Then Text2 = Val(200) + Val(350) ElseIf Check8.Value = 1 And Check16.Value = 1 Then Text2 = Val(200) + Val(350) ElseIf Check8.Value = 1 And Check17.Value = 1 Then Text2 = Val(200) + Val(1500) ElseIf Check9.Value = 1 And Check10.Value = 1 Then Text2 = Val(3500) + Val(15000) ElseIf Check9.Value = 1 And Check11.Value = 1 Then Text2 = Val(3500) + Val(150) ElseIf Check9.Value = 1 And Check12.Value = 1 Then Text2 = Val(3500) + Val(1000) ElseIf Check9.Value = 1 And Check13.Value = 1 Then Text2 = Val(3500) + Val(1000) ElseIf Check9.Value = 1 And Check14.Value = 1 Then Text2 = Val(3500) + Val(250) ElseIf Check9.Value = 1 And Check15.Value = 1 Then Text2 = Val(3500) + Val(350) ElseIf Check9.Value = 1 And Check16.Value = 1 Then Text2 = Val(3500) + Val(350) ElseIf Check9.Value = 1 And Check17.Value = 1 Then Text2 = Val(3500) + Val(1500) ElseIf Check10.Value = 1 And Check11.Value = 1 Then Text2 = Val(15000) + Val(150) ElseIf Check10.Value = 1 And Check12.Value = 1 Then Text2 = Val(15000) + Val(1000) ElseIf Check10.Value = 1 And Check13.Value = 1 Then Text2 = Val(15000) + Val(1000) ElseIf Check10.Value = 1 And Check14.Value = 1 Then Text2 = Val(15000) + Val(250) ElseIf Check10.Value = 1 And Check15.Value = 1 Then Text2 = Val(15000) + Val(350) ElseIf Check10.Value = 1 And Check16.Value = 1 Then Text2 = Val(15000) + Val(350) ElseIf Check10.Value = 1 And Check17.Value = 1 Then Text2 = Val(15000) + Val(1500) ElseIf Check11.Value = 1 And Check12.Value = 1 Then Text2 = Val(150) + Val(1000) ElseIf Check11.Value = 1 And Check13.Value = 1 Then ' Text2 = Val(150) + Val(1000) ElseIf Check11.Value = 1 And Check14.Value = 1 Then Text2 = Val(150) + Val(250) ElseIf Check11.Value = 1 And Check15.Value = 1 Then Text2 = Val(150) + Val(350) ElseIf Check11.Value = 1 And Check16.Value = 1 Then Text2 = Val(150) + Val(350) ElseIf Check11.Value = 1 And Check17.Value = 1 Then Text2 = Val(150) + Val(1500) ElseIf Check12.Value = 1 And Check13.Value = 1 Then Text2 = Val(1000) + Val(1000) ElseIf Check12.Value = 1 And Check14.Value = 1 Then Text2 = Val(1000) + Val(250) ElseIf Check12.Value = 1 And Check15.Value = 1 Then Text2 = Val(1000) + Val(350) ElseIf Check12.Value = 1 And Check16.Value = 1 Then Text2 = Val(1000) + Val(350) ElseIf Check12.Value = 1 And Check17.Value = 1 Then Text2 = Val(1000) + Val(1500) ElseIf Check13.Value = 1 And Check14.Value = 1 Then Text2 = Val(1000) + Val(250) ElseIf Check13.Value = 1 And Check15.Value = 1 Then Text2 = Val(1000) + Val(350) ElseIf Check13.Value = 1 And Check16.Value = 1 Then Text2 = Val(1000) + Val(350) ElseIf Check13.Value = 1 And Check17.Value = 1 Then Text2 = Val(1000) + Val(1500) ElseIf Check14.Value = 1 And Check15.Value = 1 Then Text2 = Val(250) + Val(350) ElseIf Check14.Value = 1 And Check16.Value = 1 Then Text2 = Val(250) + Val(350) ElseIf Check14.Value = 1 And Check17.Value = 1 Then Text2 = Val(250) + Val(1500) ElseIf Check15.Value = 1 And Check16.Value = 1 Then Text2 = Val(350) + Val(350) ElseIf Check15.Value = 1 And Check17.Value = 1 Then Text2 = Val(350) + Val(1500) ElseIf Check16.Value = 1 And Check17.Value = 1 Then Text2 = Val(350) + Val(1500) End If End If end sub the check......and check.... then dont work it doesnt compute/take the value in both check...
VIEWS ON THIS POST

115

Posted on:

Thursday 29th November 2012
View Replies!

" Run-time error '-2147217840(80040e4e)'

hello all i am facing a problem when i try to add new records in to data base. first of all my tech details are given below Front end - vb 6 Back end - Microsoft SQL Server 2000 i am connecting to sql through ADODB connection ( through code ). my purpose is when i click on the "ok" button then the records entered in my form will add to the database. but when i click on the ok button then a errors comes saying " Run-time error '-2147217840(80040e4e)' operation was canceled " and the error is highlighted in adorset.Move 0 my code is like this If (MsgBox("Are You Sure You Want to Save The Record", vbYesNo) = vbYes) Then adorset.Move 0 adorset.Update MsgBox "Record Saved" Call rsEmpC Call constateC Unload Me End If End Sub If (MsgBox("Are You Sure You Want to Save The Record", vbYesNo) = vbYes) Then adorset.Move 0 adorset.Update MsgBox "Record Saved" Call rsEmpC Call constateC Unload Me End If End Sub one of the funniest thing is that if we press debug and run in regular base the record will be saved in to the table please help me
VIEWS ON THIS POST

983

Posted on:

Thursday 29th November 2012
View Replies!

Reverse Connection?

Hallo every1!! I want to create in vb6 a prog tha contains a client and a server, but i need server connect to the client and not client to server. Does any1 can give me some help or info i Know that i m going to create this with the Winshock tool. Thanx in advance. PS. Do you know how can i create a program that when you give to it some configurations to create a new exe with these details.(like Trojans horses).Thanx again.
VIEWS ON THIS POST

90

Posted on:

Thursday 29th November 2012
View Replies!

Help With BASIC Please

Hi I'm wondering how I would go about learning advanced BASIC I'm currently learning using Ibasic learning edition and that just teaches simple things
VIEWS ON THIS POST

57

Posted on:

Thursday 29th November 2012
View Replies!

SEARCH BUTTON

3. ALSO I HAVE A SEARCH FUNCTION WHERE THE USER IS ALLOWED TO CHOOSE THE INFO OF THE PERSON HE WANTS TO VIEW BY DOING A NAME AND COUNTRY SEARCH....HOW CAN I CALL THE INFO FROM THE WKSHEET AND DISPLAY THE APPROPRIATE INFO IN A USERFORM SAY IN A COMBOBOX
VIEWS ON THIS POST

72

Posted on:

Thursday 29th November 2012
View Replies!

1st letter conversion

hey, does someone here knows how to convert the 1st letter of the 1st word in a textbox\t example: "dream" then "Dream"...
VIEWS ON THIS POST

175

Posted on:

Thursday 29th November 2012
View Replies!

Shell Game Application

I am suppose to modify my orginal code for this shell game in this manner: - After the user selects a shell but before the hidden pearl is displayed, remove(hide) one of the other two shells that does not contain the pearl. - Use an input box to ask the user if he/she wants to keep the orginal guess or choose the remaining shell as the new guess. - Display the result in a message box. -------------------------------------------------------------------------------- Private Sub Form_Load() imgPEARLS(0).Picture = LoadPicture("H:\Mistretta -Java\BH Stuff\heycoolapearl.jpg") imgPEARLS(1).Picture = LoadPicture("H:\Mistretta -Java\BH Stuff\heycoolapearl.jpg") imgPEARLS(2).Picture = LoadPicture("H:\Mistretta -Java\BH Stuff\heycoolapearl.jpg") imgSHELLS(0).Picture = LoadPicture("H:\Mistretta -Java\BH Stuff\heycoolashell.jpg") imgSHELLS(1).Picture = LoadPicture("H:\Mistretta -Java\BH Stuff\heycoolashell.jpg") imgSHELLS(2).Picture = LoadPicture("H:\Mistretta -Java\BH Stuff\heycoolashell.jpg") Dim intIndex As Integer Randomize For intIndex = imgPEARLS.LBound To imgPEARLS.UBound imgPEARLS(intIndex).Visible = False Next intIndex End Sub Private Sub imgSHELLS_Click(Index As Integer) Dim intShellWithPearl As Integer intShellWithPearl = Int((imgPEARLS.UBound - imgPEARLS.LBound + 1) * Rnd _ + imgPEARLS.LBound) imgPEARLS(intShellWithPearl).Visible = True If intShellWithPearl = Index Then MsgBox "You win!" Else MsgBox "You lose..." End If imgPEARLS(intShellWithPearl).Visible = False End Sub -------------------------------------------------------------------------------- That's the code before I tried changing it to satify those requirements. I understand the 2nd and 3rd requirement but the first has me confused. Help please.
VIEWS ON THIS POST

157

Posted on:

Thursday 29th November 2012
View Replies!

what is visual basic?

what is visual basic \t what does it do\t what is for\t what is it's use who created it\t
VIEWS ON THIS POST

369

Posted on:

Thursday 29th November 2012
View Replies!

Edit The Pop Up Window

How would you edit the pop up window Lets say you enter the code for a " World" window to pop up, and i wanted to edit the window, how would i do it
VIEWS ON THIS POST

76

Posted on:

Thursday 29th November 2012
View Replies!

MSXML2.XMLHTTP Cookie

Well this is odd.. I have an object that has type MSXML2.XMLHTTP, with that I send information to a direct link by parameters. From that I get uniqueCodes from the site that vary every time I refresh the link. Problem is (This code, being run on server-side) when this code runs it returns the exact some uniqueCode from the site over and over and over again (Unless it's the following day). So, is the server storing any cookies Am I not closing the object (MSXML2.XMLHTTP) correctly At the moment I use Set WebRequest = Nothing but this does not work at all If I need to elaborate more, or send more of the code, feel free to ask
VIEWS ON THIS POST

280

Posted on:

Friday 30th November 2012
View Replies!

calculator

i want a sample of vb program calculator , romnicksanchez, on 1 Oct, 2008 - 07:24 PM, said:i want a sample of vb program calculator
VIEWS ON THIS POST

70

Posted on:

Friday 30th November 2012
View Replies!

homework for vb pennies calculator

I saw someone post something similar, however I don't know that code so I'm not going to use it Option Strict On Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click 'variable dim Dim shtDollars As Integer Dim sngDollars As UShort Dim shtQuarters As Integer Dim sngQuarters As UShort Dim shtDimes As Integer Dim sngDimes As UShort Dim shtNickles As Integer Dim sngNickles As Integer 'constant Const valDollars As Single = 100 Const valQuarters As Single = 25 Const valDimes As Single = 10 Const valNickles As Single = 5 'input data sngDollars = CUShort(txtPennies.Text) 'for Dollars shtDollars = CInt(sngDollars \ 100) sngDollars = CUShort(CUShort(txtPennies.Text) \ 100) lblDollars.Text = Convert.ToString(shtDollars) 'for quarters shtQuarters = CInt(sngQuarters \ 25) sngQuarters = CUShort(CUShort(txtPennies.Text) \ 25) lblQuarters.Text = Convert.ToString(shtQuarters) shtDollars = CInt((CDbl(txtPennies.Text) Mod 25)) 'for dimes shtDimes = CInt(sngDimes \ 10) sngDimes = CUShort(CUShort(txtPennies.Text) \ 10) lblDimes.Text = Convert.ToString(shtDimes) shtDimes = CInt((CDbl(txtPennies.Text) Mod 10)) 'for nickles shtNickles = CInt(sngNickles \ 5) sngNickles = CUShort(CUShort(txtPennies.Text) \ 5) lblNickles.Text = Convert.ToString(shtNickles) shtNickles = CInt((CDbl(txtPennies.Text) Mod 5)) lblNickles.Text = CStr(CInt(((CDbl(txtPennies.Text) Mod 5)))) my nickles is the same as dimes when i hit calulate. i tried using convert.tostring( ) but that doesn't work. any suggestions
VIEWS ON THIS POST

126

Posted on:

Friday 30th November 2012
View Replies!

Speeding up data transfer in Access Tables

Ok...so I have a code that imports text to a table and transfers it to another table...I'm curious if anyone would be able to tell me what's more efficient. As of now I transfer data directly from table to another, one row at a time. It's quick but I think I can make it quicker. If I dimmed each value as a string and transferred those strings, would that speed it up Examples below; This is how it currently looks rsappts.movefirst do until rsnew.eof rsappts.fields("date")=rsnew.fields("appt date") rsappts.fields("time")=rsnew.fields("appt time") rsnew.movenext loop If I were to do it this way, would the process speed up or slow down sdate=rsnew.fields("appt date") stime=rsnew.fields("appt time") rsappts.fields("date")=sdate rsappts.fields("time")=stime I've tried both and they seem to be similar in speed but I am going to be doing a code soon that is similar and has to work with 100+ cols in my table. Any input is appreciated!
VIEWS ON THIS POST

131

Posted on:

Friday 30th November 2012
View Replies!

Connecting vb & oracle database

how can i connect vb with oracle database
VIEWS ON THIS POST

123

Posted on:

Friday 30th November 2012
View Replies!

mishmash in textbox from file

hi my open dialog is correct, but in textbox is mishmash Private Sub Command1_Click() Dim filelocation As String ' show open box CommonDialog1.ShowOpen filelocation = CommonDialog1.FileName ' input files into text1.text Open filelocation For Input As #1 Do Until EOF(1) Input #1, Data Text1.Text = Text1.Text + Data + vbNewLine EOF (1) Loop Close #1 end sub but in textbox i see mishmash slechtakotykvorelsojkovaTiserova in place of kotyk vorel sojkova Tiserova please some help
VIEWS ON THIS POST

158

Posted on:

Friday 30th November 2012
View Replies!

Changing a Com port No.

I am trying something new for me. Up to now I have only used one Form and do not know how to use two. I do have a book but\t\t\t\t\t\t\t\t What I want to do is make the Comport No. in the code below variable so that when the Program starts I am asked which Port No. I rquire ans this is written to a variable which i can call in the main program. I have the feeling i can only do this with an additional form and a textbox and a text question, or with push buttons and predetermined port numbers. I would like to use any port number upto say 20. Can someone please answer the following questions. Do I have to use an extra form If not how do I incorperate the port number entry into the existing program If I do need a form how do I go about this. I do realiSubze that I need to show my existing work, and it is there but I have no idea how to start. I have listed the code I have below. The first code list only shows the relevent part i.e. the Commport = Comport 'Option Explicit Dim Newdata As String 'each imcoming packet is assembled here Private Sub Form_Load() Form1.Caption = "OE8PCK Digital Wattmeter" With MSComm1 .CommPort = Comport .Handshaking = 2 - comRTS .RThreshold = 1 .RTSEnable = True .Settings = "9600,n,8,1" .SThreshold = 1 .PortOpen = True ' Leave all other settings as default values. End With OutputDisplay.Text = "Infobox" + vbCr + vbLf InformationDisplay.Text = "Databox" + vbCr + vbLf Newdata = "" 'initialize to empty End Option Explicit 'form2 = 1 Private Sub Form_Load() Form2.Caption = "OE8PCK Digital Wattmeter" Dim Comport As Integer End Sub Private Sub Option1_Click() Comport = 1 End Sub Private Sub Option2_Click() Comport = 2 End Sub Private Sub Option3_Click() Comport = 3 End Sub Private Sub Option4_Click() Comport = 4 End Sub Private Sub Option5_Click() Comport = 5 End Sub Public Sub CloseWindow() Unload Form2 Load Form1 Form1.Show End Sub This post has been edited by oe8pck: 08 July 2009 - 07:50 AM
VIEWS ON THIS POST

66

Posted on:

Friday 30th November 2012
View Replies!

Recurs or using array of an class

exuse me for the question but what do you think is better to do a recurs function or use a arry of classes to avoid recurs i mean in treath of stack overlow to use the arry will it make any diference if i dinamicly change how many items the arry got ty for your repleys
VIEWS ON THIS POST

155

Posted on:

Friday 30th November 2012
View Replies!

learn basic

: I need you help I am just begin to study visual basic and i want to know several thing on the module first: a function to calculate the factorial of a given number second: a function to calculate sum of the squares third:a function to check if a number is prime I hope you can help me on these and i
VIEWS ON THIS POST

112

Posted on:

Friday 30th November 2012
View Replies!

vb 6 & networking

i have a E-book library system and i want to use it in network .... all the clients to access the data base from a server computer .. pleas help
VIEWS ON THIS POST

248

Posted on:

Friday 30th November 2012
View Replies!

VB6 Exception error

An unhandled win32 exception occured in VB6.EXE(1652).Just-In-Time debugging this exception failed with the following erroe:No installed debugger has Just-in-Time debugging enabled.In Visual Studio, Just-In-Time debugging can be enabled from Tools/Debugging/Just-In-Time.
VIEWS ON THIS POST

153

Posted on:

Friday 30th November 2012
View Replies!

Writing matrix calculations in vb6

Am developing an visual basic 6.0 application to solve least squares adjustment problems. Actually am stuck some where because i dont know how to load the matrices from text or excel file. also i cant do the inverse and multiplication calculation of a matrices. could anyone help me out with this
VIEWS ON THIS POST

269

Posted on:

Friday 30th November 2012
View Replies!

printing texts from form using vB.6

i want to print the contents of many things such as labels and texts and combo please help me as soon as you could
VIEWS ON THIS POST

143

Posted on:

Friday 30th November 2012
View Replies!

form control ordering - picturebox

I am having a problem with ordering my form's controls. I am unable to change the order that my picturebox appears on the form as I would like to have it displayed behind all the other controls and neither right mouse clicking and pressing send to back at design time or using the picture1.ZOrder code during runtime works. Considering that the picturebox actually has a ZOrder suggests to me that you should be able to change the order of this control but I don't know why the conventional methods aren't working, any ideas
VIEWS ON THIS POST

194

Posted on:

Friday 30th November 2012
View Replies!

read, then multipy, then write...

Good afternoon, I've written the code to read the file, and then write the file (same info). It works fine, but I need to increase the amounts from file1 by 10%. File 1 is called "payrates.txt" and file 2 is called "updated2.txt". I've done conversions and multiplications using input boxes, but never from a file. I've referenced a book, VB Reloaded, and can't find any information. I've also searched the web looking through countless Visual Basic tutorials and the msdn site, only to find the same info. None on reading, multiplying, then writing. I put in a message box to verify some info, that is not needed. I also tried to code the calculations, but failed. That code is there, just commented out so you can see my attempts. Can someone advise Thank you, Option Explicit On Option Strict On Public Class MainForm Structure Product Public number As String Public pay As String End Structure Private Sub exitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles exitButton.Click Me.Close() End Sub Private Sub increaseButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles increaseButton.Click Dim path As String = "C:\Copy of Pay Solution\Pay Project\" Dim text As String = My.Computer.FileSystem.ReadText(path & "payrates.txt") 'Dim isConverted As Boolean 'Dim increase As Integer 'MsgBox(text) For Each word As String In My.Computer.FileSystem.ReadText(path & "payrates.txt") 'increase = Convert.ToDecimal(value as string) 'increase = text * 1.1D 'text.Replace(text, text * 1.1D) 'isConverted = Decimal.TryParse(.text, increase) My.Computer.FileSystem.WriteText _ ("C:\Copy of Pay Solution\Pay Project\updated2.txt", text, False) Next End Sub End Class
VIEWS ON THIS POST

120

Posted on:

Friday 30th November 2012
View Replies!

analog clock

Option Explicit Const T As Double = 57.29577951 Private Sub Form_Load() Me.Height = 2048 Me.Width = 2048 End Sub Private Sub Form_Resize() Me.ScaleHeight = 100 Me.ScaleWidth = 100 End Sub Private Sub Timer1_Timer() Dim H As Long, M As Long, S As Long 'time units Dim Hd As Double, Md As Double, Sd As Double 'Degrees Dim Hr As Double, Mr As Double, Sr As Double 'Radians Me.Cls H = Hour(Time): M = Minute(Time): S = Second(Time) If H >= 12 Then H = H - 12 Hd = H * 30 Hd = Hd + M / 2 Md = M * 6 Sd = S * 6 Hd = Hd - 90: Md = Md - 90: Sd = Sd - 90 If Hd < 0 Then Hd = Hd + 360 If Md < 0 Then Md = Md + 360 If Sd < 0 Then Sd = Sd + 360 Hr = Hd / T: Mr = Md / T: Sr = Sd / T Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.5 * Cos(Hr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.5 * Sin(Hr))), vbBlack Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.6 * Cos(Mr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.6 * Sin(Mr))), vbBlue Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.7 * Cos(Sr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.7 * Sin(Sr))), vbRed End Sub *** MOD EDIT: Added code tags. Please *** This post has been edited by JackOfTrades: 29 September 2009 - 06:40 AM
VIEWS ON THIS POST

175

Posted on:

Friday 30th November 2012
View Replies!

Saving Outlook Express Mail as HTML

I want to save my Outlook Express emails in to HTML format in My Documents file then copy them over to an external disk drive. I know that this can be accomplished if I do them one at a time, but I have hundreds of them and I need some type of macro or VB program that will go through each of my folders and save them to my My Documents folder in the HTML format. From there I can copy and transfer them to the external hard drive. William D. Lee 919-266-2377 919-819-1444 william.d.lee@verizonbusiness.com
VIEWS ON THIS POST

201

Posted on:

Friday 30th November 2012
View Replies!

How can I enter in numbers of Text Boxes

, I am beginner in VB and when I placed numbers of Text boxes in a single form and Pressed the Enter button. The Cursor did not moved to next Text boxes. Please help me to solve this problem.
VIEWS ON THIS POST

164

Posted on:

Friday 30th November 2012
View Replies!

Send MsgBox to back

I want to send a message box to the back or disable it so other applications can be used without closing the window.
VIEWS ON THIS POST

74

Posted on:

Friday 30th November 2012
View Replies!

Blackjack Help

Apologies if this have been covered I have no code to show before you ask as im just trying to figure out in my head how to go about this Basically i have to create a Blackjack program, and i want to use card images instead of just showing numbers , i have all 52 card images There will be a total of 10 (5 per player) Picture or Image boxes where a card be place when the player presses "Hit me" command button What i want to know, is how would i make it select a random image from the 52 cards, WITHOUT repeating them same card twice This has been driving me mad the past few days so any input will be appreciated
VIEWS ON THIS POST

101

Posted on:

Friday 30th November 2012
View Replies!

Timer

i would like something to happen every 5 seconds so could i put a timer on and say Private sub Timer1_Tick(ByVal sender as system.Object, Byval e as system.EventArgs) Handles Timer1.Tick timer1.Interbal = 5000 ' then i want to say basicly every tick do something Does anyone know how to do it end sub thnx john
VIEWS ON THIS POST

72

Posted on:

Friday 30th November 2012
View Replies!

statistics on values in list box

I am working on a program where I have the user enter a course grade in a text box, and then the grade is added to a listbox. I know I can use the list.count to get the total number of grades in the list box. I also need to find the lowest, highest and average grade in the entries. I also need to assign a letter grade to each numeric grade and print the numbers of grades that are in each letter category. Can this be done in a listbox I have not been able to find any references to doing this, so any assistance would be appreciated. , Don't worry about how I added the data to the listbox, it is of no importance. I just did that to load some sample data, I'm too lazy to type it in each time. The important part is retrieving the information from the listbox which hopefully I explained well enough. What is strgrade, I see you using it but I don't see it defined anywhere Next thing I noticed is your storing the values in a String array. I am making the assumption that grades are entered as 0 - 4, 0 being an F and 4 being an A. If this is the case then you need to store them in a Integer array. You will need to convert them as you retrieve them from the listbox. Otherwise if you sort it as a String array it will not sort in the manner that you would expect and you will get inaccurate results.
VIEWS ON THIS POST

133

Posted on:

Friday 30th November 2012
View Replies!

Efficiently scanning strings for numeric characters

Have you ever considered using regular expressions for this I am not sure if you are using .NET or VB 6, but both support the use of regular expressions (.NET has it built in and VB 6 needs the vbscript library). The idea with regular expressions is that it look for patterns and creates matches. For instance... If I had the string "Area 51 - Page 3" I could throw a regular expression of [0-9]+ against it and it would result in an array of matches. This array would have two elements... one match would be "51" and the second would be "3". Then once you have your matches, all you would have to do is compare element 2 (the number 3) with element 2 of another string (lets say it was 4) and you would know which match is changing. To give you an idea of how this works, you can try the following website... Regular Expression Library At the bottom you will see two boxes, the first will say "Source" and the second will say "Pattern". In the source box type Area 51 - Page 3 and in the pattern box type [0-9]+ and hits submit. Then scroll down to the bottom and you will see a place where it says "Matches" and shows you the two numbers from the string. Once you try this out, I am sure your problems will dissolve like button on a hot skillet. Let us know if you have any further questions. "At DIC we be regular expression loving code ninjas!" This post has been edited by Martyr2: 18 November 2007 - 01:32 PM
VIEWS ON THIS POST

420

Posted on:

Friday 30th November 2012
View Replies!

Help with calendar control

hi Louisda16th, we are discuss calendar control few days back.. ok i am trying like below steps and attached my dll. 1. i am installed Microsoft office 2003. 2. in that mscal.ocx registered. 3. i am creating dll below attachment. 4.i am taking new project. 5.maskedit box and command button added. 6.click in command button then calender display but not now 7.mask edit value must be click date.. i am writing code like.. Dim d As ramdll.Class1 Private Sub Command1_Click() Set d = Nothing Set d = New ramdll.Class1 d.obj = maskeditbox d.dispaly End Sub but it is not working.. pls check and how to call d.obj = maskeditbox and in dll we r creting calendar control.. ok if any thing else give me.. plese correct dll file.. i dont no how to write dll files.. i thing some functions missing.. ok bye Attached File(s) vbdllcrewation.zip (9.11K) Number of downloads: 70
VIEWS ON THIS POST

103

Posted on:

Friday 30th November 2012
View Replies!

Negotiatepostion?

, In the Menu Editor there's a Listbox with the Title NegotiatePostion that can accept the values 0,1,2,3 which stand for None,Left,Middle,Right Respectively. I havent been able to figure what this does though. What is NegotiatePostion used for
VIEWS ON THIS POST

131

Posted on:

Friday 30th November 2012
View Replies!

"Enter MS JET OLE DB Initialization Information" ERROR VB6

. I developed a program that creates Data Reports using this way : http://www.vbtutor.n...6/lesson40.html It worked fine until recently I tried to run the application and it gives this error : I enter all the data the way it is shown in the picture above, and when I click OK I get this error : Please help me.... [edit: duplicate post. closed.] This post has been edited by BobRodes: 31 August 2012 - 05:43 PM
VIEWS ON THIS POST

179

Posted on:

Sunday 2nd December 2012
View Replies!

VB6 Runtime Error -2147217900 (80040e14)

Im getting a runtime error when trying to write to a database. Error code -2147217900 (80040e14) Syntax error in INSERT INTO statement. Im not sure if the coding is correct, any help or suggestions would be much appreciated. When I press the debug button the line highlighted is - conn.Execute insertsql Here is my code Private Sub cmdOrder_Click() Dim insertsql As String insertsql = " INSERT INTO Order ( Cust_ID, OrderDate ) Values ('" + txtCustID.Text + "' , '" + Format$(Now, "mm/dd/yyyy") + "' )" Set conn = New ADODB.Connection conn.ConnectionString = conString conn.Open conn.Execute insertsql conn.Close frmCreateOrder.Show End Sub
VIEWS ON THIS POST

96

Posted on:

Sunday 2nd December 2012
View Replies!

Changing homepage in webbrowser made by vb6

I made a webbrowser in vb6 I'm wondering how to Change homepage of Web browser This post has been edited by modi123_1: 01 May 2011 - 10:49 AM Reason for edit:: removed unnessecary code tags
VIEWS ON THIS POST

276

Posted on:

Sunday 2nd December 2012
View Replies!

Create Visual basic code for a joke and its punchline

I just need help at the begining because i don't really have a clue on how about to do this. I am trying to make a Visual Basic program that shows the punchline after the reader presses the punchline button. The joke is "{How many programmers does it take to change a light bulb) the punchline button is used to see the punchline and is "None. Thats a hardware problem"
VIEWS ON THIS POST

409

Posted on:

Monday 3rd December 2012
View Replies!

InBetween Type of Function

! So I have a quick question if anyone can help. I'm creating a function to identify a date value and fix accordingly. The date value could be an appointment if in one column or a BirthDate if in another column. I could write two separate functions to accomplish what I want but in the interest of being difficult and learning something new, I'm trying to write one. I'd like to identify a range of numbers. Let me try to explain Format: MM/DD/YY -- and I'm trying to change to MM/DD/YYYY Public Function FixDate() As String Dim M As String Dim D As String Dim Y As String Public CurDate As String ' Assumes curdate will be set by the module or sub to = the record with the date to check/fix If InStr(1, CurDate, "/") Then If Len(CurDate) = 8 Then 'M/D/YYYY or MM/DD/YY If Mid(CurDate, 2, 1) = "/" Then 'M/D/YYYY M = "0" & Left(CurDate, 1) D = "0" & Mid(CurDate, 3, 1) Y = Right(CurDate, 4) CurDate = M & "/" & D & "/" & Y ElseIf Mid(CurDate, 3, 1) = "/" Then 'MM/DD/YY M = Left(CurDate, 2) D = Mid(CurDate, 4, 2) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Here -- If the range is between 09 and 15 then I want to preceed with "20" but if it's earlier than 09 I want to preceed with "19" Y = Right(CurDate, 2) CurDate = M & "/" & D & "/" & Y End If 'Mid(CurDate) End If 'Len(CurDate)=8 End If 'Instr(CurDate,"./") I would imagine something like if right(curdate,2) IsBetween 09 and 15 then but I know that's not a function. Is there something similar As always, THANKS IN ADVANCE!! This post has been edited by guyfromri: 22 June 2010 - 06:24 PM
VIEWS ON THIS POST

93

Posted on:

Monday 3rd December 2012
View Replies!

textbox.setfocus

, exuse me for the stupid question but i try to set the focus on a text box in form load and error show up the code is Private Sub Form_Load() If O.BarCode = 1 Then txtBar.Text = "" txtBar.SetFocus End If End Sub in line txtBar.SetFocus give error: Run-time error '5': Invalid procedure call of argument why is this happening. help me pls ty in advance This post has been edited by NoBrain: 23 July 2009 - 07:25 AM
VIEWS ON THIS POST

129

Posted on:

Sunday 23rd December 2012
View Replies!

Generating Random Questions from SQL database (Using VB 6.0)

hi friends! I'm a senior IT student from the Philippines...we are currently conducting our Thesis entitled Computer Aided INstruction for Computer Repair Concepts..This is actually an application drag-and-drop program... We're still on the first stage...We are working on the quiz module right now.. My problem is we were not able to generate questions randomly from our database which is SQL..We can actually retrieve data from the database in sequence..Kindly help us modify our code for our main concern...which will allow the program to generate random questions from the database, we are using option buttons for the choices.(optional--->>will be able to choose the correct answer and compute for the score...). By the way, we are using VB 6.0. Hoping for your response as soon as possible! thank you so much! Below is our code for the Quiz.Kindly check this out..tnx Option Explicit Dim lessnum As Integer Sub S_LOAD_con() Dim rsless As New ADODB.Recordset Dim strsql As String strsql = "select quiznum, quizquestion, choice1,choice2,choice3,choice4 from quizmaintenance" rsless.Open strsql, conn lblquiznum.Caption = rsless!quiznum txtQuestion.Text = rsless!quizquestion optChoice(0).Caption = rsless!choice1 optChoice(1).Caption = rsless!choice2 optChoice(2).Caption = rsless!choice3 optChoice(3).Caption = rsless!choice4 rsless.Close End Sub Private Sub cmdOK_Click() Dim rsless As New ADODB.Recordset Dim strsql As String lessnum = lessnum + 1 strsql = "select quiznum, quizquestion, choice1,choice2,choice3,choice4 from quizmaintenance" & _ " where quiznum = '" & lessnum & " ' " rsless.Open strsql, conn If rsless.EOF = False Then lblquiznum.Caption = rsless!quiznum txtQuestion.Text = rsless!quizquestion optChoice(0).Caption = rsless!choice1 optChoice(1).Caption = rsless!choice2 optChoice(2).Caption = rsless!choice3 optChoice(3).Caption = rsless!choice4 Else MsgBox "Youve Finish The Quiz", vbOkOnly cmdOK.Enabled = False Exit Sub End If rsless.Close End Sub Private Sub Form_Load() lessnum = 1 S_LOAD_con End Sub Mod Edit: Please use code tags when posting your code. Code tags are used like so =>
VIEWS ON THIS POST

128

Posted on:

Sunday 23rd December 2012
View Replies!

Invalid Procedure Call or Argument

Good Morning. When I run the below at different PCs, some of them have error, some of them don't have any error. The error is = Invalid Procedure Call or Argument For cycle = 1 To Int(len_enc / 6) For intbyte = 1 To 6 sal_read = Ebcdic(Mid(enc_var, chrtoread, 1)) pw_read = Asc(Mid(newvalp, intbyte, 1)) EOr_Read = Int(sal_read) Xor Int(pw_read) EOrPass = EOrPass + Chr(EOr_Read) chrtoread = chrtoread + 1 Next Next Kindly help.
VIEWS ON THIS POST

89

Posted on:

Sunday 23rd December 2012
View Replies!

calculate time

dreamincoders, pls help in my little prob, im making an apllication, it run softly but i hav a difficulty in calculating the time used.. can anyone check my code then tell me where i got wrong.. sub calculate() tmptime = timevalue(rec.fields("TimeIN").value) - timevalue(rec.fields("timeOUT").value hrdiff= hour(tmptime) * 3600 mindiff=minute(tmptime) * 60 secdiff = second(tmptime) totalhr = (hrdiff+mindiff+secdiff)/3600 msgbox "totalhr" please help me.. tnx
VIEWS ON THIS POST

62

Posted on:

Monday 24th December 2012
View Replies!