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
|
|
|
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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 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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
[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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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 \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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
how can i connect vb with oracle database |
|
VIEWS ON THIS POST
123
|
|
Posted on:
Friday 30th November 2012
|
View Replies!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
:
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
, 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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
,
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!
|
|
|
|
|
|
|
.
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
! 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!
|
|
|
|
|
|
|
,
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
|
|
|
|
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!
|
|
|
