|
I found that the problem is the following Sub that is run when the main form is loaded :
Public Sub DoPrecompile()
For Each an As System.Reflection.AssemblyName In System.Reflection.Assembly.GetEntryAssembly().GetReferencedAssemblies()
Dim asmb As System.Reflection.Assembly = System.Reflection.Assembly.Load(an)
If Not asmb.GlobalAssemblyCache Then
For Each type As Type In asmb.GetTypes()
If Not type.IsInterface AndAlso Not type.IsGenericTypeDefinition Then
Dim ci As System.Reflection.ConstructorInfo = type.GetConstructor(System.Reflection.BindingFlags.[Static] Or System.Reflection.BindingFlags.[Public] Or System.Reflection.BindingFlags.NonPublic, Nothing, type.EmptyTypes, Nothing)
If ci = Nothing Then
For Each method As System.Reflection.MethodInfo In type.GetMethods(System.Reflection.BindingFlags.DeclaredOnly Or System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.[Public] Or System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.[Static])
If Not method.IsAbstract AndAlso Not method.IsGenericMethodDefinition AndAlso Not method.ContainsGenericParameters Then
System.Runtime.CompilerServices.RuntimeHelpers.PrepareMethod(method.MethodHandle)
End If
Next
For Each prop As PropertyInfo In type.GetProperties(BindingFlags.DeclaredOnly Or BindingFlags.NonPublic Or BindingFlags.[Public] Or BindingFlags.Instance Or BindingFlags.[Static])
For Each accessor As MethodInfo In prop.GetAccessors(True)
If Not accessor.IsAbstract AndAlso Not accessor.IsGenericMethodDefinition AndAlso Not accessor.ContainsGenericParameters Then
System.Runtime.CompilerServices.RuntimeHelpers.PrepareMethod(accessor.MethodHandle)
End If
Next
Next
End If
End If
Next
End If
Next
End Sub
If I remove this Sub everything is ok.
But on the computer where I have created the application everything works ok even with this Sub.
On another computer I have this error message.
|
|
|
|
|
You have not shown where the error occurs so it's difficult to guess. However it is quite possible that on the computer where the error occurs the version of the DLL in question is not the latest.
|
|
|
|
|
I'm copying a table from word then pasting the copied table in an Excel file.
Here is a code sample:
tbl.Range.Copy()
oSheet.Activate()
rng = oSheet.Range("A1")
rng.Activate()
rng.PasteSpecial(Excel.XlPasteType.xlPasteAll)
But when I do this, the table is pasted as a picture.
can anyone please help me with this?
|
|
|
|
|
Try using xlPasteValues rather than xlPasteAll
=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================
|
|
|
|
|
it works, i got the value but the table format is broken leading for the values to be apart. and also, i also need to copy the formats like alignment and attributes(bold, italics, etc...)
|
|
|
|
|
I added one line of code to copy cell E19 is ws1 to the next available row in column F in ws4. Everything is working except for pasting in column F on ws4. When I start using this, I need it to be in cell F18. Can you please help? Code below.
Dim ws1 As Worksheet, ws4 As Worksheet
Set ws1 = Sheets("Sheet1")
Set ws4 = Sheets("Sheet4")
With ws4
lMaxRows = .Cells(Rows.Count, "B").End(xlUp).Row
.Range("B" & lMaxRows + 1) = ws1.Range("D10").Value
lMaxRows = .Cells(Rows.Count, "C").End(xlUp).Row
.Range("C" & lMaxRows + 1) = ws1.Range("E22").Value
lMaxRows = .Cells(Rows.Count, "D").End(xlUp).Row
.Range("D" & lMaxRows + 1) = ws1.Range("D12").Value
lMaxRows = .Cells(Rows.Count, "E").End(xlUp).Row
.Range("E" & lMaxRows + 1) = ws1.Range("D14").Value
lMaxRows = .Cells(Rows.Count, "F").End(xlUp).Row
.Range("F" & lMaxRows + 1) = ws1.Range("E19").Value
End With
|
|
|
|
|
As per our current set up we are not passing any user id to connect but due to security concerns now we need to pass user id to connect to queue manager.Code is written in VB6.I have set MQSERVER variable with manager name and port name. Rest all the details are passing through code.
Actually application is running under "uprabc" but "bagabc" is the user id which authorised to connect.
SO i passed "bagabc" as alternate user id but i am getting 2035 error and as per logs uprabc id is getting passed. Please help in understanding where i am making a mistake or any step i missed.
Below is the code(using CMQB library for connection):
Private Function IBAAGMQConnect() As String
Dim CompCode As Long
Dim Reason As Long
Dim od As MQOD
Dim CnoCD As MQCNOCD
Dim QMgrName As String * MQ_Q_MGR_NAME_LENGTH
QMgrName = QManagerName
MQCONN QMgrName, gHcon, CompCode, Reason
If CompCode <> MQCC_OK Then
IBAAGMQConnect = "IBAAG MQ: Connection to Queue Manager failed. Reason: " & Reason & " Mgr Name is " & QMgrName
Exit Function
Else
IBAAGMQConnect = "0000"
End If
End Function
Private Function IBAAGMQOpen(FQueueName As String) As String
Dim CompCode As Long
Dim Reason As Long
Dim O_options As Long
Dim od As MQOD
If gHcon Then
MQOD_DEFAULTS od
od.ObjectName = FQueueName
od.ObjectQMgrName = QManagerName
od.AlternateUserId = AlternateUsedId
O_options = MQOO_OUTPUT + MQOO_INPUT_SHARED + MQOO_ALTERNATE_USER_AUTHORITY
MQOPEN gHcon, od, O_options, gHobj, CompCode, Reason
If CompCode <> MQCC_OK Then
Select Case Reason
Case Is = 2085
IBAAGMQOpen = "IBAAG MQ: Opening of " & Trim(FQueueName) & " failed. " & "ReasonCode = (2085) - MQRC_UNKNOWN_OBJECT_NAME: Check the spelling of the Queue name, which is Case-Sensitive."
Case Is = 2087
IBAAGMQOpen = "IBAAG MQ: Opening of " & Trim(FQueueName) & " failed. " & "ReasonCode = (2087) - MQRC_REMOTE_Q_MGR: Check the spelling of the Queue name, which is Case-Sensitive."
End Select
Exit Function
Else
IBAAGMQOpen = "0000"
End If
Else
IBAAGMQOpen = "IBAAG MQ: Opening of " & Trim(FQueueName) & " failed. " & Reason
End If
End Function
|
|
|
|
|
Here is my scenario
I have a Main Form and that form has 3 Menus
for each menu item I have a dialogbox (another form really)
in the main form I have the following sub
'To be called by a docking form (during its activation).
Public Sub SetCurrentDialog(dlg As Form)
m_curr_dlg = dlg
End Sub
for each of the menus I have the following
Private Sub Menu1_ItemClick(sender As Object, e As ItemClickEventArgs) Handles Menu1.ItemClick
SetCurrentDialog(Dilaog1)
Dialog1.ShowDialog(Me)
End Sub
Private Sub Menu2_ItemClick(sender As Object, e As ItemClickEventArgs) Handles Menu2.ItemClick
SetCurrentDialog(Dilaog2)
Dialog2.ShowDialog(Me)
End Sub
Private Sub Menu3_ItemClick(sender As Object, e As ItemClickEventArgs) Handles Menu3.ItemClick
SetCurrentDialog(Dilaog3)
Dialog3.ShowDialog(Me)
End Sub
in each of the Dialogs I have a Public Function as
Public Function ClientMouseUp()
'Do special MouseUp
End Function
on the MianForm I also have a PicturBox which I want to return information to the dialog
so I have
Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
m_curr_dlg.ClientMouseUp()
End Sub
But in the PictureBox1_MouseUp I get the following error
Error 39 'ClientMouseUp' is not a member of 'System.Windows.Forms.Form'.
Can anyone show me the errors of my ways?
|
|
|
|
|
typo?
SetCurrentDialog(Dilaog1)
or
SetCurrentDialog(Dialog1)
|
|
|
|
|
|
You need an Interface with the function ClientMouseUp, and all of your dialogs need to implement it.
|
|
|
|
|
I do not understand what you mean by interface.
I am trying to convert old VB6 code, which is why I am having the issue.
I am new to VB.net.
I am sorry in advance if I am asking a stupid question
|
|
|
|
|
This is now solved.
I can walk the code through and watch the data populate but nothing other than the headings are displayed. I am not sure what is different with this compared to others that have been done and i have even compared code and they all work the same so there must be something i am over looking.
Dim nUserID As Long
Dim sToday As String
Dim sUser As String
Dim sSQL As String
Dim li As ListItem
Me.lvMain.ListItems.Clear
Set dbGlob = OpenDatabase(GenPath & "WORORDGB.MDB")
sToday = sDate
Select Case UCase(sType)
Case "ALL"
sSQL = "SELECT * FROM [Accum] WHERE [Type] = 'LABOR' AND [Closed]= 0 AND [WOCounter] <> 0 ORDER BY [Date],[UserID],[Start],[WOCounter]"
Set rsCal = dbGlob.OpenRecordset(sSQL)
rsCal.MoveLast
rsCal.MoveFirst
Case "WO"
Set rsCal = dbGlob.OpenRecordset("SELECT * FROM [Accum] WHERE [Type] = 'LABOR' AND [Closed]= 0 AND [WOCounter] = " & CInt(Trim(Me.cmbWOID.Text)) & " ORDER BY [Date],[UserID],[Start],[WOCounter]")
rsCal.MoveLast
rsCal.MoveFirst
Case "WR"
Set rsCal = dbGlob.OpenRecordset("SELECT * FROM [Accum] WHERE [Type] = 'LABOR' AND [Closed]= 0 AND [WOCounter] <> 0 AND [UserID]=" & CLng(Me.cmbuserID.Text) & " ORDER BY [Date],[UserID],[Start],[WOCounter]")
rsCal.MoveLast
rsCal.MoveFirst
Case "WRWO"
Set rsCal = dbGlob.OpenRecordset("SELECT * FROM [Accum] WHERE [Type] = 'LABOR' AND [Closed]= 0 AND [WOCounter] = " & CInt(Trim(Me.cmbWOID.Text)) & " AND [UserID]=" & CLng(Me.cmbuserID.Text) & " ORDER BY [Date],[UserID],[Start],[WOCounter]")
rsCal.MoveLast
rsCal.MoveFirst
End Select
With Me.lvMain
If rsCal.RecordCount = 0 Then
Set li = .ListItems.Add(1, "ID" & rsUser.Fields("ID").Value, "Empty", , 4)
Exit Sub
End If
For X = 1 To rsCal.RecordCount
If IsNull(rsCal.Fields("UserID").Value) Then
sUser = rsCal.Fields("Desc").Value
Else
For Y = 0 To cmbUser.ListCount - 1
If CLng(rsCal.Fields("UserID").Value) = CLng(cmbuserID.List(Y)) Then
sUser = cmbUser.List(Y)
Exit For
End If
Next Y
End If
Set li = .ListItems.Add(X, "ID" & rsCal.Fields("Counter").Value, sUser, , 2)
li.SubItems(1) = Format(rsCal.Fields("Date").Value, "mm/dd/yyyy")
li.SubItems(2) = Format(rsCal.Fields("Start").Value, "hh:mm ampm")
li.SubItems(3) = Format(rsCal.Fields("End").Value, "hh:mm ampm")
li.SubItems(4) = Val(rsCal.Fields("Quantity").Value)
li.SubItems(5) = rsCal.Fields("WOCounter").Value
rsCal.MoveNext
Next X
End With
modified 30-May-14 15:34pm.
|
|
|
|
|
Initial suggestion: divide and conquer. Is is the listview or the data?
Try building your listview using other data; say, the numbers 1 to 10 and see what happens.
Also, try writing the database data to a text field, a file or the console window. Enjoy you're getting data when NOT in debug mode.
If they both work independently, then we can look at it again.
Having said that, VB 6 is no longer supported; consider moving to .NET. There are free versions available for download (VB.NET Express).
|
|
|
|
|
Thanks I am sorry i thought i deleted this thread. I did resolve the problem.
And yes I am migrating the complete application to newer code base using VS2013.
Thanks again
|
|
|
|
|
Hi everyone
I have the following to extract data from a SQL database and write it to an Excel table. I would likte to change the loop so that the data is copied to Excel per column rather than single field (to speed up th import):
'Create the connection string
sConnString = "Provider=SQLOLEDB.1;Data Source=SRV002982;" & _
"Initial Catalog=HFMDSmartFDM_QMR211;" & _
"Password=password;Persist Security Info=True;User ID=User"
'Create the Connection and Recordset objects
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
'Open the connection and execute
conn.Open sConnString
Set rs = conn.Execute(CommandString)
'Check data
If Not rs.EOF Then
nRow = nRow + 1
'Transfer result to WS
Do While Not rs.EOF
For Each elem In rs.Fields
nCol = nCol + 1
ws.Cells(nRow, nCol) = elem
Next
rs.movenext
Loop
End If
There are reasons I can't just splash the entire table. I need to import column by column. Any help is greatly appreciated
|
|
|
|
|
Member 10666698 wrote: Do While Not rs.EOF
That's how a reader works; a record at a time. One line per iteration, not a column.
What you want can be easily achieved by changing the query you execute, returning only one column (as opposed to all of them, as it prolly does now). Also probably means re-executing the query for each column, unless you save it in a temporary location, in which case you'd be worrying about concurrency.
Alternatively, you could find a lighter export-format. (Like write it out as a CSV)
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
Writing by column will have the effect of SLOWING your process as Eddy has said.
I would define whether it is the query or the writing to excel that is the costly process.
Optimising the query can be done in the database.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Hi guys,
thanks for your replies. What you are saying makes sense. I stronlgy supsect that writing to Excel is what is slowing down the process. Can you recommend a more efficient way of doing this, i.e. writing to an array first? I will run some tests in the meantime
|
|
|
|
|
Hi
runnning performance tests confirms what you suspected: writing to Excel is slow. In the loop I have soemthing on the lines of
ws(row, col) = elem
I have to write to an existing Excel template so CSV is not an option. Perhaps it would be faster to store to an array first and then write everything to Excel. I will test and get back after
|
|
|
|
|
Writing to excel is always a dog if you do it by cell, I have not tried writing an array but it would probably work.
Here is an idea, try copy paste - DataGridView Copy and Paste[^] you could construct the data structure to mimic the copy array, select a cell and paste the content. I have no idea how it will perform 
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Thanks, I used an array and it works for my purposes (i.e. write to array, copy array to Excel). Only other solution I can think of is separate queries per column
|
|
|
|
|
Which version of Excel are you targetting? If it supports the .xlsx format, then you might want to open that file and see how Excel stores it's data. If you don't like the idea of mucking around in the file, then try finding a tool that let's you interact with the data without requiring Excel.
Try a few ideas in a console-app and time them 
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
My Excel version supports xlsx. I will try a few options and report back once I have some results. Storing data in an array presents a significant time improvement though
|
|
|
|
|
Hi, Iam using VS2010, while generating RDLC report, Iam using IIf statement for calculations.
But I found a typical problem which is very different.
Because from the Code.Functions for calculation, simply it's working fine, when I give the
below command directly
=Code.AddMyNet(Sum(ReportItems!itm_value.Value))
But I wish to give like the below command, It's giving error "local report processing"
=IIf((ReportItems!Textbox15.Value ="CARRY FORWARDED "), Code.AddMyNet(Sum(ReportItems!itm_value.Value)), Nothing)
Actually Function AddMyNet() used to calculate the pagewise running value total.
And hence any guidances will be helpful
Thanks & Regards
Paramu
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
