|
dilkonika wrote: should I iterate through all the item with a for loop
Yup. Or use LINQ, which also iterates the collection;
Module Module1
Public Structure Mystruct
Property id As Integer
Property name As String
Property value As Integer
End Structure
Dim lst As New List(Of Mystruct)
Sub Main()
lst.Add(New Mystruct() With {.id = 1, .name = "hello", .value = 2})
lst.Add(New Mystruct() With {.id = 5, .name = "test", .value = 5})
lst.Add(New Mystruct() With {.id = 5, .name = "world", .value = 9})
Dim lstFound As List(Of Mystruct) = lst.Where(Function(i As Mystruct) i.id = 5 AndAlso i.value < 7).ToList()
For Each item As Mystruct In lstFound
Console.WriteLine(item.name)
Next
Console.ReadKey()
End Sub
End Module
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
Hi everybody
I have a trouble, that I don´t know how to solve. I´m trying to connect to database across internet, but my connection String don´t work.
I have use the same sintax that Connection String
http://www.connectionstrings.com/define-sql-server-network-protocol/[^]
I try to connect with Telnet and it´s working fine: Telnet 188.79.118.xxx 1433
This is my code
Dim Connection,Recordset,query,Reg
Set Connection = CreateObject("ADODB.Connection")
Set Recordset = CreateObject("ADODB.Recordset")
Connection.Open "Provider=SQLOLEDB; Data Source=188.79.118.xxx,1433\INST;Network Library=DBMSSOCN;Initial Catalog= DataBase ; User Id= sa; Password=xxxx"
query = "Select * From Alarmas"
Recordset.Open query,Connection,1,1
Reg = Recordset.RecordCount
msgbox Reg
Recordset.Close
Set Recordset=Nothing
Connection.Close
Set Connection=Nothing
This give me the following error
DBNETLIB ConnectionOpen (Invalid Connection())Conexion no valida
Codigo 80004005
Any suggestion will be gratefull.
Thanks Advanced.
|
|
|
|
|
Problem is that most providers do not allow direct access to the database from the internet.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Thank you very much for you reply
Do you have any suggestion?
|
|
|
|
|
There are some options;
Host your own - get a public IP, set up a PC and install a database-server. You'll be cursing a lot though, since there's a lot of strange folk out there trying to log in to anything they find.
Create webservices. The same providers often provide webspace and a server-side language; most often PHP, sometimes ASP.NET. Write a webservice to do a ExecuteNonQuery and ExecuteReader. (This would also allow for some authentication and protection of the database)
Go for a (paid) cloud.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Thank you so much for your suggestion.
|
|
|
|
|
Not much help, as it hardly solves your problem.
If you can then it prolly does pay to take the long route. Host your own server, host your own webservices (never give away database-access) and you essentially have a secure and private cloud.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Since you can telnet to that IP address and port, I'd rather think that the user 'sa' may not be configured for remote connections. Create a different user and try again.
And:
Data Source=188.79.118.xxx,1433\INST
ought to be changed to
Data Source=188.79.118.xxx:1433\INST
(i.e. the ',' replaced by a ':').
|
|
|
|
|
Thank you so much for your reply Bernhard.
I try with this settings, but still I can´t connect.
So, I have been talking with Mr. Eddy Vluggen and everything seem to be correctly. Then his suggestion was change default port 1433 to another, like 8080 - 8181, and righ now it´s working perfectly. If someone has the same problem, can try it.
Thank you very much both of you!!!
|
|
|
|
|
Hello !
I have this structure , and a list:
Public Structure tabinfo
Public tb As String
Public fld As String
Public name As String
Public tp As integer
End Structure
......
Dim lst as List(of tabinfo)
I try to fill the lst and after bind the Listbox to lst :
lst.Add(New tabinfo() With {.tb = "a", .fld = "nr", .name = "Number", .tp = 1})
listBox1.DataSource = lst
listBox1.DataTextField = "name"
listBox1.DataValueField = "fld"
listBox1.DataBind()
..But on runtime , I have 1 item in listbox , but is empty ( Since "name" is the display field i expect the string "Number" should be displayed ) .
What's wrong ?
Thank you !
|
|
|
|
|
I thought the display field is listbox1.DisplayField.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Good day friends! I developed a simple program that write to and read from text file. I made the program become installable and installed it in my system. When I right clicked on a text file in my device local disk, and chosed open with, and selected my application exe, the program loads but the textbox was empty. Please, my request is, how can I add a functionality that will capture the textfile content and display it on the textbox when I used the open with command from the windows explorer? Please help. Thanks in advance!!!
|
|
|
|
|
Without seeing your code it's hard to help.
Are you parsing the command line properly and reading the file content?
|
|
|
|
|
VB6 is dead. It is no longer sold, supported nor maintained. No new code should be written in VB6.
VB.NET is available for FREE, has lots of examples on the most tasks that we're confronted with and has a huge userbase.
Once you have done that, I'll gladly help you in consuming the startup parameter. Your application (in whatever language) gets the path to the text-file as its first argument. Meaning you'd simply look into the command-line-arguments from your application.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Eddy Vluggen wrote: VB6 is dead. It is no longer sold, supported nor maintained. No new code should be written in VB6.
Never! Never surrender!! 
In all seriousness, Office still has VBA so it is very much still alive.
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
RyanDev wrote: Never! Never surrender!!
You write your essay in Linear B[^], go ahead. But don't come complaining that there's no spelling-checker, nor anyone willing to use it.
RyanDev wrote: In all seriousness, Office still has VBA so it is very much still alive.
VBA != VB6 != VBS* != eVB (embedded VB, on the first versions of CE)
VBA may be alive, VB6 is dead.
VB6's passed on! This IDE is no more! It has ceased to be! It's expired and gone to meet 'is maker! It's a stiff! Bereft of life, 'e rests in peace! [...] VB6's kicked the bucket, VB6's shuffled off 'is mortal coil, run down the curtain and joined the bleedin' choir invisibile!!
THIS IS AN EX-LANGUAGE!!**
* based on the same COM-component, but different environments
**freely paraphrased Monthy Python 'ere
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Actually, VBA is a subset of VB6 but you could still do all the same things. They really are the same thing.
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
Also means that the support is limited to that subset. Compile me a vbs without an IDE, build me an AdventureWorks interface using VBS. You could, but please do, and then build a business around that.
The flowers on its grave have withered and died by now. Meaning only banks and governments will probably use it. Aw, and hospitals.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
vbOK. 
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
OutOfRangeException
Either 0 or non-zero is expected.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Eddy Vluggen wrote: Either 0 or non-zero is expected.
VB doesn't know what 0 is.
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
Probably true 
|
|
|
|
|
I really wanted to do this with vb.net. But the problem here is that, am unable to solve the problem with my vb.net which is "error running project, could not load file or one of its dependencies. The project was expected to contain an assembly." After so much struggle and researched, formatting, uninstall and restall, and yet no positive result, I decided to use vb6 and netbean for developing desktop applications. So any help will be welcome.
|
|
|
|
|
Really, the best thing to do is scrap the VB6 code and just rewrite it by hand in VB.NET and ADO.NET.
Copying and pasting the VB6 code just gets you into trouble in VB.NET. The two languages are semantically similar but function very differently. VB.NET has huge advantages over VB6 because of OOP and the .NET Framework.
|
|
|
|
|
Otekpo Emmanuel wrote: I really wanted to do this with vb.net
Ah. Sooo, if I help you to build this in VB.NET succesfully, you'd be equally happy?
Otekpo Emmanuel wrote: So any help will be welcome.
You've got the VB.NET IDE installed?
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
