|
Hello,
In VB6 I can create instance of com server using early binding like this:
Public Srv As Lib.Server
Set Srv = Lib.Server
How to destroy it explicitly? How to call IUnknown::Release(); method explicitly from VB6?
Please help.
Regards,
Leonid
|
|
|
|
|
I think you set Srv to equal nothing, or whatevre you guys call NULL.
Christian Graus - C++ MVP
|
|
|
|
|
Is there a way to prevent a folder from being opened in the system, instead of creating a new user and setting permissions?
Mark Thibodeaux
|
|
|
|
|
You can mark it as hidden or system, but you can't stop it, no.
Christian Graus - C++ MVP
|
|
|
|
|
I am trying to iterate through a dataset as follows:
For Each row As DataRow In ds.Tables("TrxContents").Rows<br />
Me.ListBox1.Items.Add(row("Product"))<br />
Next row
Why is it only using the last row in my table to fillup the listbox? I'm just getting a list of the same (last) record.
Before running this code, the dataset is used to poplate a datagrid. Is it the positioning of the record pointer having just filled the datagrid? If so, how do I reset the record pointer?
|
|
|
|
|
What you have should work correctly. Have you stepped through in the debugger to see what the value of row("Product") is in each iteration?
Mike Lasseter
|
|
|
|
|
Thanks for your reply. No, I haven't stepped through it yet.
I am away from my development PC at the moment, so I can't test it - but if I did as you say, wouldn't it reveal what I'm seeing in my listbox?
|
|
|
|
|
Probably so, but if you see all the values of row("Product") have the same value in the loop this means to me that you have changed the values somewhere before this code executes (or the query from the database was incorrect).
Mike Lasseter
|
|
|
|
|
Thanks for your reply.
I introduced a messagebox - just to see the data before it gets put into the listbox - and it is the same as I'm seeing in the listbox.
The code, from where I put the data into a DataGrid, to where I introduce the For ... Next loop that I'm struggling with is:
Dim ds As New DataSet<br />
ds = New DataSet<br />
<br />
ds.Tables.Add(tblDataTable)<br />
Me.grdDataGrid.SetDataBinding(ds, "TrxContents")<br />
<br />
For Each row As DataRow In ds.Tables("TrxContents").Rows<br />
Me.ListBox1.Items.Add(row("Product"))<br />
Next row
Curiously, it is filling the listbox with the same number of entries as is in my DataTable - even though the data is always from the last row.
I don't want to ...
Me.ListBox1.DisplayMember = "Product"<br />
Me.ListBox1.DataSource = ds.Tables("TrxContents")
... because this will completely fill the listbox with a copy of the datatable, which isn't ultimately what I want to do (I want to apply some conditions to decide what to put in the listbox - I just want to test the syntax at this point).
|
|
|
|
|
hi everyone, i need some help with an assignment i am doing. I need someone to teach me how to make a parent and child form and how to make the two interract with each other, when using variables, structures and assigning objects please explain what is being done when i put all this into a form.. i am using visual basic 6.0 on my schools computers. it is important that you teach me and not just tell me because i must understand what is going on so i can replicate it in the future. Thankyou for your help.
The assignment is fairly straight forward, i am ust putting extra things in to score extra marks, i have to calculate the price of an item from a list box and allocate a currency to perform a conversion rate. I want the parent form to look like the print screens with the images on them and the chold form to use all the variables from the parent form as well as a new set of variables to calculate the total price and allow for another set of items to be bought.. images of my source code are posted as well. at the moment i have made the form stretch to accomodate for buying new items, but it doesnt show in the schools screens due to their resolution. this is why i thought of a prent child form. i have also uploaded my source code in a notepad file. if maybe you could add to it and tell me how i can do this child parent form thing that would be great. Thankyou
Source Code
http://www.uploading.com/files/GA2WMP0U/source_code.txt.html
Form
Source Code
|
|
|
|
|
Tj. wrote: it is important that you teach me and not just tell me because i must understand what is going on so i can replicate it in the future.
You get my 5, just for saying that, instead of just asking for a solution.
Sadly, I can't help you. It's a shame you're learning VB6, VB.NET Express Edition is free, and VB6 is long dead ( that is, it's no longer supported, I admit that some backwards looking companies still use it ).
Christian Graus - C++ MVP
|
|
|
|
|
OK, you took a good post and f'ed it up by posting a ton of links to pictures of your form and code. You also used a site that won't let anyone see the pictures without joining the site. Bad, bad, bad.
All you have to do is post the parts of the code you're having problem with. I know I'm not going to click on 15 different links to see parts of the code in an attempt to diagnose it.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Tj. wrote: i have made the form stretch to accomodate for buying new items, but it doesnt show in the schools screens due to their resolution. this is why i thought of a prent child form.
Instead of using parent/child forms, have you considered using a tab control with two or more tab pages? (I don't work with VB 6.0, so I can't give you specifics)
Roy.
|
|
|
|
|
Hi,
I was wondering if someone could tell me a way to get a match in a string based on wildcards.
For example:
myString = D:\tes folder\tes subfolder\test file.txt
mySearch = fol*te*.tx*
How can I get a match of mySearch in myString?
Thanks
|
|
|
|
|
You can use a Regex object with the pattern "fol.*te.*\.tx.*" to check for a match.
Use ".*" for an equivalent of "*". It matches any charater (".") zero or more times ("*").
Note that the period is written as "\.". It has to be escaped as the period has a special meaning in a pattern. If you put together a pattern from strings that aren't known beforehand, you can use the Regex.Escape method to escape any characters that needs escaping.
---
b { font-weight: normal; }
|
|
|
|
|
And if you're new to RegEx, there's a program called Expresso, which is available via a CP article, or generally on the web, that's very useful to help learn how they work.
Christian Graus - C++ MVP
|
|
|
|
|
Thanks.
Your suggestions are very much appreciated.
Regards,
Zenu
|
|
|
|
|
Hi All,
I need to loop through a listbox and get all the selected items. Everywhere I searched they reccommend:
Dim item as ListItem
for each item in MyListBox
if item.selected
...
end if
next
However, .NET tells me that ListItem is not a defined type.
Thanks for any help
Yoshi
|
|
|
|
|
For i as int16 = 0 to lstBox.SelectedItems.count - 1
msgbox(lstBox.SelectedItems(i).ToString)
Next
or
For Each sItem as String In lstBox.SelectedItems
msgbox(sItem)
Next
|
|
|
|
|
I keep getting this error message when trying to insert files into sql database: Unclosed quotation mark before the character string ". Line 1: Incorrect syntax near '82'.
I have tried so many things to try and fix this problem.
Here is some code that I have to insert the file:
Dim Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data Feeds\Current\Honda\OEM;Extended Properties=""Text;HDR=No;FMT=FixedLength"""
Dim SQLstr As String = "SELECT * FROM FULL_MC.dat"
Dim da As New OleDb.OleDbDataAdapter(SQLstr, Conn)
For Each row In dtTable.Rows
sSuggestedretailprice = Replace(row("suggestedretailprice"), "*", "")
If IsNumeric(row("dealernetpricedollars").ToString) Then
FormatCost = Format(CSng(row("dealernetpricedollars")), "c").ToString()
Else
ErrorLog(row("dealernetpricedollars").ToString & " Not Valid Dealer Cost for partnumber " & row("PartNumber").ToString())
End If
If IsNumeric(row("suggestedretailprice").ToString) Then
FormatMSRP = Format(CSng(sSuggestedretailprice), "c").ToString()
Else
ErrorLog(row("suggestedretailprice").ToString & " Not Valid Dealer MSRP for partnumber " & row("PartNumber").ToString())
End If
If InvalidCharacterCheck(row("PartNumber").ToString) Then
ErrorLog("Not Valid partnumber: " & row("PartNumber").ToString())
Else
CheckforProducts = ProductExist(row("PartNumber").ToString(), "1")
If CheckforProducts.Rows.Count > 0 Then
UpdateProduct(RemoveQuotes(row("PartNumber").ToString()), "0", row("mostforwardpartnumber").ToString(), row("supercededate").ToString(), RemoveQuotes(row("PartDesc").ToString()), "0", "0", "0", "0", "0", "1", FormatCost, FormatMSRP)
Else
InsertProducts(RemoveQuotes(row("PartNumber").ToString()), "0", row("mostforwardpartnumber").ToString(), row("supercededate").ToString(), RemoveQuotes(row("PartDesc").ToString()), "0", "0", "0", "0", "0", "1", FormatCost, FormatMSRP)
End If
End If
Next row
|
|
|
|
|
I guess that your 'RemoveQuotes' method is not working. Your first step should be to step in to UpdateProduct, and see what is being passed in.
There's obviosly an error in your SQL, so you need to see the SQL string.
Christian Graus - C++ MVP
|
|
|
|
|
What specific brand of database are you using? They handle apostrophes in different ways.
What does the RemoveQuotes method do?
What does the InsertProducts method do?
As you get that kind of error, I assume that you assemble the SQL query youself? Have you considered using parameterised queries instead?
---
b { font-weight: normal; }
|
|
|
|
|
Or, better yet, a stored proc ? :P
Christian Graus - C++ MVP
|
|
|
|
|
![Rose | [Rose]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/rose.gif) Hi
Thanks for any one try to help me
How can i show a form inside another form >>
jooooo
|
|
|
|
|
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim oFrm As New Form3
oFrm.TopLevel = False
oFrm.Show()
Me.Controls.Add(oFrm)
end sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
