Re: Restart System when printing Report in VB.net - Visual Basic Discussion Boards

First Prev Next

Re: Interface FORTRAN90 to VisualBasic - DLL

DQNOK19-Nov-07 12:55

DQNOK

19-Nov-07 12:55

I think Luc has it nailed.

Module Global1
Declare Sub Square Lib "c:\FORTDLL\Debug\FORTDLL.dll" (ByVal a As Single)
End Module

should almost undoubtedly be

Module Global1
Declare Sub Square Lib "c:\FORTDLL\Debug\FORTDLL.dll" (ByRef a As Single)
End Module

since Fortran defaults to passing its args by reference rather than by value (as C does).

I'd like to know if this works for you. I need to convert some fortran functions into DLLs, and yours is a good template for me to use if it works.

Let us know.

David
---------
Empirical studies indicate that 20% of the people drink 80% of the beer. With C++ developers, the rule is that 80% of the developers understand at most 20% of the language. It is not the same 20% for different people, so don't count on them to understand each other's code.
http://yosefk.com/c++fqa/picture.html#fqa-6.6
---------

Re: Interface FORTRAN90 to VisualBasic - DLL

Sergio2santos19-Nov-07 14:21

Sergio2santos

19-Nov-07 14:21

Hi! Yes it works perfectly. However I have not been able to pass characters and strings from Fortran90 to VisualBasic6. No luck on this one.
Here it is an upgraded version of the code.

Fortran code
SUBROUTINE square(a)
!MS$ATTRIBUTES DLLEXPORT, ALIAS:'Square'::Square
real*4 a
a = a*a
END SUBROUTINE

SUBROUTINE caracter(s)
!MS$ATTRIBUTES DLLEXPORT, ALIAS:'CARACTER'::CARACTER
character(2) s
s = 'T'
END SUBROUTINE

SUBROUTINE arraytest(arr)
!MS$ATTRIBUTES DLLEXPORT, ALIAS:'ARRAYTEST'::ARRAYTEST
real*4 arr(3,7)
integer i,j
do i=1,3
do j=1,7
arr(i,j) = 11*i+j-1*i
end do
end do
END SUBROUTINE

SUBROUTINE Simarray(arrs)
!MS$ATTRIBUTES DLLEXPORT, ALIAS:'SIMARRAY'::SIMARRAY
real*4 arrs(10)
integer i
arrs(1)=1
do i=2,10
arrs(i) = arrs(i-1)+1
end do
END SUBROUTINE

Visual Basic code
Vb-Fort.vb
Public Class FortranLab

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Single
a = 10
Call Square(a)
TextBox1.Text = Str$(a)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i, j As Integer
Static arr(0 To 3, 0 To 7) As Single
Call ARRAYTEST(arr(1, 1))
For i% = 1 To 3
For j% = 1 To 7
TextBox1.Text = Str$(arr(i%, j%)) + TextBox1.Text
Next j%
Next i%
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
Static arr(0 To 10) As Single
Call SIMARRAY(arr(1))
For i% = 1 To 10
TextBox1.Text = Str$(arr(i%)) + TextBox1.Text
Next i%
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = " "
End Sub
End Class

Golobal1.bas
Module Global1
Declare Sub ARRAYTEST Lib "c:\FORTDLL\Debug\FORTDLL.dll" (ByRef MyArray As Single)
Declare Sub SIMARRAY Lib "c:\FORTDLL\Debug\FORTDLL.dll" (ByRef MyArray As Single)
Declare Sub Square Lib "c:\FORTDLL\Debug\FORTDLL.dll" (ByRef a As Single)
End Module

Re: Interface FORTRAN90 to VisualBasic - DLL

DQNOK20-Nov-07 3:55

DQNOK

20-Nov-07 3:55

Thanks a lot.

I have to use Compaq Visual Fortran, so I'm guessing the characters
!MS$ATTRIBUTES DLLEXPORT, ALIAS:'SIMARRAY'::SIMARRAY
may not work in my situation. I'll just have to try it, and do some research.

After using Fortran in college, when I was introduced to C, I immediately fell in love with it for it's simple elegance and consistency. Strings are just arrays of characters, and behave like any other array. In Fortran, strings are a native type, with their own set of unique operators. While I have not researched this greatly, my guess is that the Fortran90 standard merely specifies how those operators are to work, and not how a string's data is laid out internally. Thus, it would be completely up to the compiler implementor how to internally lay out string data. Thus, attempting to pass a string back and forth to VB is a lost cause UNLESS the compiler implementor has an interface specifically for this. What I'm saying is, try to find a chapter in a book about PowerStation on building DLLs (or some other suitable reference, perhaps their help system). Surely it would contain the info you need. I'm currently looking for the same thing for my compiler, and am reading their online help.

[2008] Make a Documents.FixedPage from an XML literal?

Duncan Edwards Jones17-Nov-07 0:33

Duncan Edwards Jones

17-Nov-07 0:33

Inspired by Beth Massi's excellent blog[^] post on generating Excel data using
an XML literal:

I am trying to generate XPS documents the same way.

The code I have is:-

    Public Function SeatingAppointmentPage(ByVal ClientName As String, _<br />
                                           ByVal Address1 As String, _<br />
                                           ByVal Address2 As String, _<br />
                                           ByVal Address3 As String, _<br />
                                           ByVal Address4 As String, _<br />
                                           ByVal AppointmentDate As Date, _<br />
                                           ByVal Signatory As String) As <br />
XElement<br />
<br />
        Dim _seatingAppointmentPage As XElement = <FixedPage Width="816" <br />
Height="1056" xmlns="http://schemas.microsoft.com/xps/2005/06" <br />
xml:lang="und"><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="166.56" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="185.44" <br />
Indices="94;8,88;49;68;80,90;72;8,88;96;3;3" UnicodeString=<%= ClientName <br />
%>/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="204.32" <br />
Indices="94;8,88;36,69;71;71;85;72;86,57;86;3;20;8;96;3" UnicodeString=<%= <br />
Address1 %>/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="223.2" <br />
Indices="94;8,88;36,69;71;71;85;72;86,57;86;21;8;96;3" UnicodeString=<%= <br />
Address2 %>/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="242.08" <br />
Indices="94;8,88;36,69;71;71;85;72;86,57;86;3;22;8;96;3" UnicodeString=<%= <br />
Address3 %>/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="260.96" <br />
Indices="94;8,88;36,69;71;71;85;72;86,57;86;3;23;8;96;3" UnicodeString=<%= <br />
Address4 %>/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="279.84" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="298.72" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="317.6" Indices="94;8,88;39;68;87;72;8;96;3" <br />
UnicodeString=<%= Date.Now %>/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="336.48" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="355.36" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="374.24" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="393.12" <br />
Indices="39;72;68;85,40;3;94;8,88;49;68;80;72;8;96;3;3" UnicodeString=<%= <br />
"Dear " & ClientName %>/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="411.52" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="429.92" <br />
Indices="36;81;3,29;68;83;83,57;82;76;81;87;80,85;72;81;87;3,29;75;68;86;3;69,57;72;72;81,57;3;68;85;85;68;81;74,55;72,57;71;3;73,29;82;85,34;3;92,49;82;88;3,29;87;82;3;86,51;72;72;3,29;94;8,88;48;72;80,85;69;72;85;3;50;73,29;3,29;54;87;68;73,30;73,29;8;96;3,27;68;87,29;3" <br />
UnicodeString="An appointment has been arranged for you to see {%Member Of <br />
Staff%} at "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="457.6" <br />
Indices="40;53;51;48,84;182;86,49;3;54,68;72;68;87,29;76;81,55;74;3;56;81;76;87;3;76,23;81;3;54;68,57;81;71;92,49;80,85;82;88;81;87,29;3;82;81;29,29;3" <br />
UnicodeString="ERPM's Seating Unit in Sandymount on: "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="485.76" Indices="3,301;3" UnicodeString="  "/><br />
                                                      <Glyphs <br />
Fill="#ffff0000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="247.2" OriginY="485.76" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ffff0000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="514.08" Indices="3,301;3" UnicodeString="  "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="247.2" OriginY="514.08" <br />
Indices="94;8,88;36,69;83;83;82;76;81;87;80;72;81,62;87;3,27;39;68;87,34;72;8,88;96;3" <br />
UnicodeString=<%= AppointmentDate %>/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="542.4" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="199.2" OriginY="542.4" Indices="3,301;3" UnicodeString="  "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="570.24" <br />
Indices="38;68;81;3,29;92,49;82;88;3,29;83;79;72;68;86,51;72;3;87;72;79,23;72;83;75,57;82;81;72,57;3;80,84;72;3;87,29;82;3;70;82;81,57;73,29;76;85;80;3;87;75;76,23;86;3;68;83;83,57;82;76;81;87;80,85;72;81;87,29;17;3" <br />
UnicodeString="Can you please telephone me to confirm this appointment. "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="597.92" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="625.6" <br />
Indices="56;81;71;72,57;85;3,27;87;75,57;72;3;43;72;68,57;79;87,27;75,57;3;9;3;54;68,57;73,29;72;87;92,49;3,29;51;85;82;70;72;71;88,57;85;72;86;15;3;90,71;72,57;3;81;82;90;3,27;85;72;84;88;72;86,51;87;3;87;75;68,57;87;3;68;79,23;79;3;70;75;68;76;85;86;3;68;85,34;72;3" <br />
UnicodeString="Under the Health & Safety Procedures, we now request that <br />
all chairs are "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="653.28" <br />
Indices="70;79;72;68;81,57;72;71;3;83,57;85;76,21;82,57;85;3,27;87;82,57;3;68;86;86;72;86,51;86;80,84;72;81;87,29;3;18;3;73,29;76;87;87,29;76;81,55;74,55;15,29;3;68;86;3;90;82,55;85;78;3;70;68;81,57;81;82;87;3,29;69;72;3,29;70;68;85;85;76,21;72;71,57;3;82;88,57;87;3;82;81;3,29;71;76;85;87;92,49;3" <br />
UnicodeString="cleaned prior to assessment / fitting, as work cannot be <br />
carried out on dirty "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="680.96" <br />
Indices="70;75;68;76,23;85;86;17;3;3;3;58,100;72;3;90,71;82;88,57;79;71;3;69;72,57;3;74,55;85;68;87;72;73,30;88;79;3;76;73,29;3;92,49;82;88,57;3;90,71;82;88,57;79;71,55;3,29;70;82;80,84;83;79,23;92,49;3;90,71;76;87;75;3;87,29;75;76;86;3;85;72;84,55;88;72,57;86;87;17;3" <br />
UnicodeString="chairs.   We would be grateful if you would comply with this <br />
request. "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="708.64" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="736.8" <br />
Indices="60,66;82;88;85;86;3;86,57;76;81;70;72;85,40;72;79;92,53;15;3" <br />
UnicodeString="Yours sincerely, "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="755.68" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="774.56" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="793.44" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="812.32" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="831.2" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="850.08" Indices="3" UnicodeString=" "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="868.96" <br />
Indices="66;66;66,57;66;66;66,57;66;66;66,57;66;66;66,57;66;66;66;66,57;66;66;66,57;66;3" <br />
UnicodeString="____________________ "/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="887.84" <br />
Indices="94;8,88;54;76,29;74;81;68;87;82;85;92,53;8,88;96;3" <br />
UnicodeString=<%= Signatory %>/><br />
                                                      <Glyphs <br />
Fill="#ff000000" FontRenderingEmSize="15.9697" StyleSimulations="None" <br />
OriginX="151.2" OriginY="906.72" Indices="3" UnicodeString=" "/><br />
                                                  </FixedPage><br />
<br />
        Return _seatingAppointmentPage<br />
    End Function

However I'd like to turn this into a function that returns a
System.Windows.Documents.FixedPage instead of an XElement - any ideas?

'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd

How to search a PDF document

midnightshifting16-Nov-07 21:19

midnightshifting

16-Nov-07 21:19

Can anyone point me to a free or open source framework or api that will allow me to scan a pdf document(s) searching for a phrase.

thanks in advance

Re: How to search a PDF document

DigiOz Multimedia17-Nov-07 4:55

DigiOz Multimedia

17-Nov-07 4:55

I recommend iTextSharp, which is an open source PDF read and write library. Here is the link:

http://sourceforge.net/projects/itextsharp/[^]

Pete Soheil
DigiOz Multimedia
http://www.digioz.com

Restart System when printing Report in VB.net

mashouri16-Nov-07 19:51

mashouri

16-Nov-07 19:51

Hi I have a Problem in VB.net 2003 and Crystal Reports .
When I run my Application and Preview a Report and want to print it ,after press Print Button ,my computer restarts.

this problem is about some type of Printers ;
for Exaple : hp LaserJet 3020
but not about hp LaserJet 1200

please help me.
Tanks.

Re: Restart System when printing Report in VB.net

DigiOz Multimedia17-Nov-07 4:51

DigiOz Multimedia

17-Nov-07 4:51

Sounds like you have a driver conflict on your system. Go to:

START > CONTROL PANEL > ADMINISTRATIVE TOOLS > COMPUTER MANAGEMENT > DEVICE MANAGER

Check to see if there is any hardware conflict with any devices. My guess is your HP 3020 has a driver conflict. Have you tried uninstalling the device, unplug it, reinstall drivers and re-plug it in?

Pete Soheil
DigiOz Multimedia
http://www.digioz.com

Handling Valuemember of Combox placed in a grid

infotools16-Nov-07 19:04

infotools

16-Nov-07 19:04

With the help from Code Project site I have been successful in placeing various controls in grid. Now it has two three shortcomings (!) as of now.

1. If I use datatable as datasource to combobox placed in datagrid, assign "Name" and "Id" as Display and Value member respectively, In "SelectedValueChange" event it returns "Name" as Displaymember and "Id" as Valuemember instead of actual values.

The combobox shows proper values of "Name".

2. I tried to assign values of datagrid cell to datatable row element as follows but it did not work...

table.rows(1).Itemarray(1) = dgGrid(CurrentRowIndex,3)

above line is indicative, actual code has proper names for table, grid, etc. also put in a loop to iterate.

any solution to these issues are welcome.

thanks,

Madhav

Re: Handling Valuemember of Combox placed in a grid

deathbat20-Nov-07 13:37

deathbat

20-Nov-07 13:37

for problem one can you paste your code your should have somthing like

ComboBox.DisplayMember = "table.colum"
ComboBox.ValueMember = "table.colum2"

Private Sub ComboBox_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox.SelectedValueChanged
TextBox.Text = ComboBox2.SelectedValue
End Sub

this should give you whatever record is in colum2 when colum one is selected
make sure you spell the table and colum values right or it WILL give you just the text a good trick is if you are setting programically get the values by setting in designer first then just copy and paste

Re: Handling Valuemember of Combox placed in a grid

infotools23-Nov-07 22:26

infotools

23-Nov-07 22:26

Thanks a lot.

We misssed on SelectedValue property. It's working fine now. Smile | :)

thanks,

Madhav

Reassigning a control's parent

The ANZAC16-Nov-07 18:45

The ANZAC

16-Nov-07 18:45

I am developing a custom component in the form of a specialized panel. To this panel i have added another panel. When a user adds a control to the specialized panel i want it to capture this action and place the new control in the panel i have already in my control. I have therefore, overrident the OnControlAdded Sub and added the following:

MyBase.OnControlAdded(e)
For Each c As Control In Me.Controls
    If c.Tag = "BottomPanel" Then
        c.controls.add(e.control)
    End If
Next

However when i tell it to do this i get an error from visual studio itself saying, "'child' is not a child of this parent."

Please check out my articles:
The ANZAC's articles

Re: Reassigning a control's parent

Christian Graus16-Nov-07 20:28

Christian Graus

16-Nov-07 20:28

Reckon you need to use a for loop ( not for each ) so you can remove items from the existing controls collection, on the basis that I doubt a control can exist in two at the same time.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Connecting to SQL

tellytub16-Nov-07 17:58

tellytub

16-Nov-07 17:58

Hi all,

(1) I have a problem connecting to SQL. My problem is as screencapped below:
http://img250.imageshack.us/my.php?image=c11xc6.jpg[^] >> http://img524.imageshack.us/my.php?image=c1oh4.jpg[^]

When the result should look like this (with the tables filled with the ones from the database):
http://img250.imageshack.us/my.php?image=pk1008200304vr0.gif[^]

But for mine, the tables are basically empty.

(2) I clicked on 'Test Connection' and it returns test connection being successful.

But my Server Explorer look like this: http://img250.imageshack.us/my.php?image=prtscde7.jpg[^]

instead of like that: http://img134.imageshack.us/my.php?image=pk1008200301kx6.gif[^]

Did I missed out something?

I followed http://www.developer.com/db/article.php/3092741[^]

Any help would be appreciated. Thanks.

-- modified at 1:13 Saturday 17th November, 2007

Re: Connecting to SQL

Abhijit Jana16-Nov-07 21:31

Abhijit Jana

16-Nov-07 21:31

i have seen all the image that you have send , u thing you are getting error for Select Query, some "Object not found" error is coming , can you check the query again that wheather the table name correct or not !!!

Best Regards
-----------------
Abhijit Jana
View My CodeProject Articles

"Success is Journey it's not a destination"

saving table

cj433116-Nov-07 10:29

cj4331

16-Nov-07 10:29

I load an excel spreadsheet via oledb driver into a datatable. I fill in some blank fields. Now I want to save the changes. I tried using a commandbuilder and issuing myExcelAdapter.Update(myExcelDt) but I got an error that it couldn't generate an update command for a table with out a key field. No new records were added and none were deleted. I just want to overwrite or update the spreadsheet with the copy in the datatable as it has some fields that were blank filled in now. How is the best way to accomplish this?

Re: saving table

cj433119-Nov-07 9:59

cj4331

19-Nov-07 9:59

It would seem if I want to update a record I will have to do it with a custom sql command for each record I want to update. As there is no key fields in the excel table I have no idea how to specify and update command either. I guess that is why the command builder couldn't come up with anything. I thought about deleting all the records in the excel database and writing back all the modified records from the datatable but then I read that the jet engine would not allow me to delete records from an excel db so I didn't even bother to try. My only choice now as far as I can see is remote control of excel or building another excel table and adding the records to that. I do not wish to do remote control of excel. It all would have been so much easier if I could have stayed connected to the excel spreadsheet read the record looked up the necessary data and written changes to the records then done a skip to get the next record and repeat. Sigh | :sigh:

Retriving source code from a exe file which was developed in visual basic 6

S.Haris16-Nov-07 9:45

S.Haris

16-Nov-07 9:45

hi I lost my source code which was on my thumd drive now is it possible to get the source code from the exe file which is only pcs left from my project on my desktop. If so can someone please help
Thank you Confused | :confused:

steve Haris

Re: Retriving source code from a exe file which was developed in visual basic 6

DigiOz Multimedia16-Nov-07 15:33

DigiOz Multimedia

16-Nov-07 15:33

You can NOT retrieve the source code from a Visual Basic 6 application, because it is converted into machine language (unlike .NET EXE which is reversable since it is interpreted by the CLR). The most you can get out of a VB 6 application is what they call a semi-decompile, which is the actual form elements (like textbox, combo, etc) using an application such as this one:

http://www.decompiler-vb.net/[^]

Pete Soheil
DigiOz Multimedia
http://www.digioz.com

Re: Retriving source code from a exe file which was developed in visual basic 6

S.Haris17-Nov-07 5:07

S.Haris

17-Nov-07 5:07

if I had an app which was developed in vb.net and does similar function would i be able to get the source code out of it like actuall function etc.... I was able to get the funtions name and stuff but not the way the function was written ??
if so could you please shade some light in how to archive that goal
thanks

Re: Retriving source code from a exe file which was developed in visual basic 6

DigiOz Multimedia17-Nov-07 6:40

DigiOz Multimedia

17-Nov-07 6:40

S.Haris wrote:
if I had an app which was developed in vb.net and does similar function would i be able to get the source code out of it like actuall function etc.... I was able to get the funtions name and stuff but not the way the function was written ??
if so could you please shade some light in how to archive that goal
thanks

Hi,

Assuming that the .NET application has not been Obfuscated, you can get all the code, including functions, classes and form elements (100% of the code) back. One of my favorite .NET decompilers is Dis#, which will can give you back C# or VB.NET code out of .NET exe or dll (depending on which one you choose). It can be downloaded here:

http://www.netdecompiler.com/[^]

Pete Soheil
DigiOz Multimedia
http://www.digioz.com

Re: Retriving source code from a exe file which was developed in visual basic 6

S.Haris17-Nov-07 7:40

S.Haris

17-Nov-07 7:40

as far as i know i dont think its been Obfuscated but on second hand how could i bee sure thats it has not been is there any way to tell
if so can you please shade some light I I dont mean to be a compelet Leacher... Sorry If I am being one...

Re: Retriving source code from a exe file which was developed in visual basic 6

DigiOz Multimedia17-Nov-07 9:10

DigiOz Multimedia

17-Nov-07 9:10

S.Haris wrote:
as far as i know i dont think its been Obfuscated but on second hand how could i bee sure thats it has not been is there any way to tell

Download the trial version of Dis# software and try to open it. If it opens it without a problem it means its not Obfuscated.

Pete Soheil
DigiOz Multimedia
http://www.digioz.com

Re: Retriving source code from a exe file which was developed in visual basic 6 [modified]

Michael Davey 117-Nov-07 17:57

Michael Davey 1

17-Nov-07 17:57

You could always try using the suggested tool and see if it successfully completes and produces usable code..

Michael Davey

biproject.com rss and blog news in a more palatable format!

Re: Retriving source code from a exe file which was developed in visual basic 6

Michael Davey 117-Nov-07 17:59

Michael Davey 1

17-Nov-07 17:59

Apologies.. didn't see that the conversation had gone over the page!

Michael Davey

biproject.com rss and blog news in a more palatable format!

Last Visit: 31-Dec-99 18:00 Last Update: 10-Jun-24 0:29

Refresh

ᐊ Prev 1...1998 1999 2000 200120022003 2004 2005 2006 2007 Next ᐅ

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.