|
Many, many thanks!!!!![Rose | [Rose]](https://codeproject.freetls.fastly.net/script/Forums/Images/rose.gif)
It's (almost) tha same code snippet I have played with, but I insisted to open HKEY_LOCAL_MACHINE\Enum (as in APIGuide's example), subkey that doesn't exist in WinXP, and when I noticed that, I forgot to restore some other unsuccesfull hacks
best regards,
stefan b.
|
|
|
|
|
Hi,
I know it quite simple but how can I declare constants that should be used in my all vb library.
Thx.
|
|
|
|
|
Move them all into a module and delare them as 'Public Const'.
|
|
|
|
|
I have a string which should have either the substring ID in it, or the substring ID_NUMBER (it looks like
s = abc;adf;ID;ghj;ID_NUMBER;jjj
if at least one of these values is there, then I want to continue. But if neither is there, I want to exit the function. I've done:
If Not InStr(s, "ID") Or Not InStr(s, "ID_NUMBER") Then
MakeDB = -1
Exit Function
End If
but I think I'm wrong. 
Thanks,
ns
|
|
|
|
|
ns wrote:
If Not InStr(s, "ID") Or Not InStr(s, "ID_NUMBER") Then
If it doesn't find "ID" then it isn't going to find "ID_NUMBER". I think that Or is wrong anyway but it's not even necessary, If Not InStr(s, "ID") Then would suffice.
As a side note, I don't personally trust VBs handling of intesgers in boolean expressions. I'd be tempted to add a > 0 to be sure.
Paul
|
|
|
|
|
Thanks very much. I didnt see your point at first then it dawned on me ....duh 
Appreciate your help !
Thanks,
ns
|
|
|
|
|
Paul Riley wrote:
As a side note, I don't personally trust VBs handling of intesgers in boolean expressions. I'd be tempted to add a > 0 to be sure.
VB will *handle* them correctly, however sometimes it is best to litterally check the value of what is being returned. I agree.
Nick Parker
The goal of Computer Science is to build something that will last at least until we've finished building it. - Unknown
|
|
|
|
|
Nick Parker wrote:
VB will *handle* them correctly, however sometimes it is best to litterally check the value of what is being returned. I agree.
I guess this is what comes of using many different languages that all act differently, you get to the point where you don't trust any of them and end up being as specific as possible at all times. C(++) has left me using parentheses absolutely everywhere  .
This is all a good thing, in my humblest opinion. More precise coding is more readable coding.
Contrary to popular opinion, it is possible to code VB well 
Paul
|
|
|
|
|
Paul Riley wrote:
Contrary to popular opinion, it is possible to code VB well
Fully agreed, I suppose we should watch how we talk about VB here in C++ country though. 
Nick Parker
The goal of Computer Science is to build something that will last at least until we've finished building it. - Unknown
|
|
|
|
|
plz can anybody tell me how to implement progress bar or searching icon for a sub call or procedure call.
thnx
--goodbye
|
|
|
|
|
hi all,
when i used FindFirstFile() i got the file name as ".",for the first
FindNextFile() call i got the name as ".." and for the third i got the correct one..how can i avoid the first two cases..
|
|
|
|
|
File_Name = Dir$(File_Path, vbDirectory)
Do While File_Name <> ""
If File_Name <> "." And File_Name <> ".." Then
.....
Your statements go here
.....
End If
Loop
This way i avoided the first two cases
Thanks & Regards,
Bhaskar.G
|
|
|
|
|
i think if the query is like
sCategory = "SELECT CATEGORY.CATEGORY FROM CATEGORY ORDER BY CATEGORY.CATEGORY"
in this the return type is a string and I could bind the output to a textbox and to a combobox.
now if the query is like
sCategory = "SELECT CATEGORY.* FROM CATEGORY"
then how to view the results ??
I think Datagrid should be used....well not sure
plz tell me how to bind and get the output in a datagrid ....
and do tell me how to get a value from a particular cell to use it in another query.
==thnx
waiting for a reply
|
|
|
|
|
In this example I am using the datadapter, as you can bind the whole resultset to the grid in one command, with the datareader you have to loop through the resultset.
Dim oConnection As SqlClient.SqlConnection = New SqlClient.SqlConnection()
Dim oCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand()
Dim oDataTableResources As Data.DataTable = New Data.DataTable()
Dim oDataTableSites As Data.DataTable = New Data.DataTable()
Dim oDataAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter()
Dim sSiteName As String
Dim sResourceName As String
Const iDayLength As Integer = 86400
sSQL = "Select * from Category"
gsConnectString = " Initial Catalog=" & UCase(Trim(Me.txtDB.Text)) & _
";Data Source=" & UCase(Trim(Me.txtSVR.Text)) & _
";User ID=" & UCase(Trim(Me.txtUID.Text)) & _
";Password=" & Trim(Me.txtPWD.Text) & ";"
oConnection.ConnectionString = gsConnectString
Try
oConnection.Open()
Catch o As System.Exception
MsgBox(o.Message, MsgBoxStyle.Critical, gsMessageBoxHeader)
Me.Cursor = Cursors.Default
Exit Sub
End Try
Try
oCommand.Connection = oConnection
oCommand.CommandText = sSQL
oDataAdapter.SelectCommand = oCommand
'fill the data adapter
oDataAdapter.Fill(oDataTableResources)
'bind to the datagrid
dbgrdDataGrid.DataSource = oDataTableResources
dbgrdDataGrid.ParentRowsVisible = False
Catch o As System.Exception
MsgBox(o.Message)
Me.Cursor = Cursors.Default
End Try
I do not have any code of getting a specific cell from the grid. I am sure you will be able to find samples on the web.
YASP
|
|
|
|
|
runtime error "class does not support..."
"Class does not support automation or does not support expected interface"
I've double checked that the correct dll is being referenced, so thats not the problem, plus it works fine on my machine. On a win98 and a win2k that I've tried so far I get the above error.
Any ideas? I installed the dll with PDW so all files should be present on the users machines.....
Thanks,
ns
|
|
|
|
|
hmmm.... Is the .dll registered, that is different than just being present.
If not try this at the command prompt:
C:\[location of .dll]\ <code>regsvr32 myComponent.dll</code>
Nick Parker
The goal of Computer Science is to build something that will last at least until we've finished building it. - Unknown
|
|
|
|
|
It is registered because I'm building it on my machine locally...
Thanks,
ns
|
|
|
|
|
ns wrote:
"Class does not support automation or does not support expected interface"
Bizarrely, this usually means that the build version of the DLL is different from the build version expected by the program.
If you have a test program for a DLL that you've rebuilt, you need to rebuild the program too.
Paul
|
|
|
|
|
Really I am rebuilding each time, and I know its connnected to the new dll because I'll put in identifying msgboxes in the new dll. But thanks for the answer....
Thanks,
ns
|
|
|
|
|
No problem.
I still think you'll find it's something along these lines. I had a bizarre fault once with an InstallShield Automation DLL.
I wrote a couple of programs using v7.0.1. When I upgraded to v7.0.2, the austomation programs stopped working; the two DLLs were byte-for-byte identical except for the version number. I tried rebuilding with no luck.
Eventually, I switched the DLL back to v7.0.1 and everything worked fine.
When I later upgraded to 7.0.3, the programs rebuilt and worked fine.
Go figure.
Paul
|
|
|
|
|
This is a dll that I wrote though. It gets into the dll, executes one step of the loop, then the error pops up. I have a progress bar in the calling app thats getting updated bythe dll, so thats why I know its gone one step...because the bar has one little block in it...
Thanks,
ns
|
|
|
|
|
Very bizarre. Sorry, you're out of my depth
Paul
|
|
|
|
|
see my latest post --maybe it'll be clear to you exactly whats happening...
Thanks,
ns
|
|
|
|
|
Dim Conn1 As New ADODB.Connection
Dim Cmd1 As New ADODB.Command
' Dim Errs1 As Errors
Dim Rs1 As New ADODB.Recordset
Dim adoField As ADODB.Field
MsgBox "in pop"
AccessConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + dataBaseName
Conn1.ConnectionString = AccessConnect
Conn1.Open
MsgBox 1 'fires
Cmd1.ActiveConnection = Conn1
MsgBox 2 'doesnt fire
Cmd1.CommandText = "SELECT * FROM tblTest"
I packaged the dll with PDW so I dont know whats missing....
My references are ado 2.7 library, and MMS extension 2.7 for dds and security. These went along in the cab I think (I saw the adox in PDW list)
Thanks,
ns
|
|
|
|
|
No idea.
I would have done this differently:
Dim Cmd1 As New ADODB.Command
AccessConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + dataBaseName
Cmd1.ActiveConnection = AccessConnect
Cmd1.CommandText = "SELECT * FROM tblTest"
' blah blah blah
Set Cmd1.ActiveConnection = Nothing purely because I'm lazy and this does all the work (opening connections) for you. However, as far as I can see, you should be able to do it that way.
Here's a strange idea... have you tried
Set Conn1.ConnectionString = AccessConnect
?
Paul
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
