Visual Basic

Re: Deploy Crystal Report in Remote Server

24-Mar-08 4:12

Abdul Rahman Hamidy wrote:
You are the most welcome to assit me in solving this problem.

We'd love to help, but you haven't told us what the problem is, other than "I'm getting an exception." What's the exception message?? Without that, we're just guessing at the hundred of possible exception messages you may be getting.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Kschuler24-Mar-08 4:51

Kschuler

24-Mar-08 4:51

What error message are you getting? Can you give us a sample of the code that is causing the error? We can't help if you don't give us more information.

Calling .NET component from VB6.

SPanicker*23-Mar-08 21:57

SPanicker*

23-Mar-08 21:57

I am trying to work out a simple COM/.NET interop code. In my project in VB, I have created a simple windows application to add two numbers. The functionality of adding is done through the help of a .NET DLL written in C#. I am quite confused by trying various ideas sugggested by people. Can anyone clarify this simply in a step by step fashion?

This my VB code:

<br />
<br />
Private Declare Function method Lib "C:\Documents and Settings\CSfiles\interop\interop\bin\Debug\interop.dll" Alias "interopdll" (ByVal X As Integer, ByVal X As Integer)<br />
<br />
Private Sub Command1_Click()<br />
<br />
Dim a As Integer<br />
Dim obj As Object<br />
<br />
obj = New sample ' I get a compile-time error for undefined user type here.<br />
<br />
a = obj.method(CInt(Text1.Text), CInt(Text2.Text))<br />
Label1.Caption = CStr(a)<br />
<br />
End Sub<br />
<br />

My C#(.NET DLL) Code:

<br />
<br />
using System;<br />
using System.Runtime.InteropServices;<br />
using System.Reflection;<br />
<br />
[assembly: ComVisible(true)]<br />
namespace interop<br />
{<br />
/// <summary><br />
/// Summary description for Class1.<br />
/// </summary><br />
<br />
[ClassInterface(ClassInterfaceType.AutoDual)]<br />
<br />
[GuidAttribute("6CE9C732-CD90-4042-A5F0-CF71DFAC2598")]<br />
<br />
class sample<br />
{<br />
public sample()<br />
{<br />
}<br />
public int c;<br />
<br />
public void method(int a, int b)<br />
{ <br />
c = a+b;<br />
//return c;<br />
} <br />
}<br />
}<br />
<br />

In this I have registerd the DLL with /codebase switch while using regasm.exe too.

Regards,
Lenus.

Re: Calling .NET component from VB6.

Dave Kreskowiak24-Mar-08 4:10

Re: Calling .NET component from VB6.

24-Mar-08 4:10

SPanicker* wrote:
Private Declare Function method Lib "C:\Documents and Settings\CSfiles\interop\interop\bin\Debug\interop.dll" Alias "interopdll" (ByVal X As Integer, ByVal X As Integer)

Private Sub Command1_Click()

You cannot call a .NET dll from VB6 like this. The .NET compilers don't generate the exports needed for VB6 to call library functions like this.

You'll have to partially scrap the VB6 code and rewrite it along with rewriting the C# .DLL.

The .DLL has to be rewritten so that it's functionality it exposed through COM, if it's not already. Then you can add a reference to the COM-registered .DLL in your VB6 project and call the classes and methods through the COM interface.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

SPanicker*24-Mar-08 4:38

SPanicker*

24-Mar-08 4:38

Hi Dave,

Thanks for the info.

Can you just explain this a bit more? Tht is, can you just put the idea across through some demo? Or just provide me with some useful link where I can start up with such a basic tutorial or so?

Regards,
Lenus.

Re: Calling .NET component from VB6.

Dave Kreskowiak26-Mar-08 13:23

Popup Message Box in Windows Service

26-Mar-08 13:23

Exposing .NET Components to COM
[^]

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

vijay_8323-Mar-08 20:15

vijay_83

23-Mar-08 20:15

Hi,

I have to run a windows service in .net in which i have to generate popup message box reminder every one hour. i dont want to run it as a application, as each and every time we have to run it manually daily. i cant find a message box in windows service. can anybody please give me an idea of how to do it in an automatic service so that no manual process should be done. once they switch on the system, the service should start automatically and should generate popups once an hour. Pls help.

Thanks and Regards
Vijayarajan.V Smile | :)

Re: Popup Message Box in Windows Service

Dave Kreskowiak24-Mar-08 4:07

Assemble captured image packets and display

24-Mar-08 4:07

vijay_83 wrote:
I have to run a windows service in .net in which i have to generate popup message box reminder every one hour.

Not possible. Web Services cannot generate any kind of a user interface what-so-ever.

<blockquote class="FQ"><div class="FQA">vijay_83 wrote:</div>once they switch on the system, the service should start automatically and should generate popups once an hour.</blockquote>

This sounds like you're trying to write a Windows Service, not a Web Service.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Dan Worthington23-Mar-08 11:12

Dan Worthington

23-Mar-08 11:12

I currently have a VB6 program to capture packets and can filter by MAC address. There are only monochrome image files of about 15kb in size sent over the line. I am trying to add code to reassemble the data portion of the packets into the original image to display it.
Has anyone had any success coding a packet reassembly program. I'd appreciate any advice, thanks

Re: Assemble captured image packets and display

A Wong24-Mar-08 7:06

A Wong

24-Mar-08 7:06

I've written something similar for school before, but for text message. The hard part is figuring out how to pull the packets and you seem to have the packets pulled in anyhow. It's just a matter of understanding tcp/ip/ethernet protocol to read the correct bits to order the packets and reassemble the message.

It's been a while since that project, but if you have specific problems, you can post it and people will help you.

please i need real help ( iam tiered from it)

asha_s23-Mar-08 8:54

23-Mar-08 8:54

i have 2 problem
the first is:

i am dealing withe database my connection is

Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
"Data Source =" & Application.StartupPath & "\ITDSS.mdb"<br />
    Public con As New OleDbConnection(ConStr)

i am deleting from it and it work smile.gif smile.gif

but after i close my project than i open it and i made run i found that the deleted record in the database ohmy.gif Blush | :O

after i delete i check only the database in the dubg file

how can i make it delete for ever

is the rong in the connection

the code is deleting and inserting will its runing after i close the project and rerun it agen in the database i found the deleted record
also i but the database in the debug fill but i found it in many folder insad my project fill

<br />
  Dim sql As String = "SELECT * FROM [Section]"<br />
        Dim sql2 As String = "SELECT * FROM Slot"<br />
        Dim da As New OleDbDataAdapter(sql, con)<br />
        Dim da2 As New OleDbDataAdapter(sql2, con)<br />
        Dim ds As New DataSet<br />
        Dim ds2 As New DataSet<br />
        da.Fill(ds, "Section")<br />
        da2.Fill(ds2, "Slot")<br />
        Dim InsertCommand1 As New OleDbCommand<br />
        Dim InsertCommand2 As New OleDbCommand<br />
        con.Open()<br />
        InsertCommand1.Parameters.Clear()<br />
        InsertCommand1.Connection = con<br />
        InsertCommand1.CommandText = "DELETE FROM [Section] WHERE SectionID=" & ComboBox105.Text<br />
        InsertCommand1.CommandType = CommandType.Text<br />
        InsertCommand1 = InsertCommand1<br />
        Me.BindingContext(ds, "Section").EndCurrentEdit()<br />
        da.Update(ds, "Section")<br />
        InsertCommand1.ExecuteNonQuery()<br />
<br />
        'to delet all the slot for the deleted section<br />
        InsertCommand2.Connection = con<br />
        InsertCommand2.CommandText = "DELETE  FROM  Slot WHERE SectionID=" & ComboBox105.Text<br />
        InsertCommand2.CommandType = CommandType.Text<br />
        InsertCommand2 = InsertCommand2<br />
        Me.BindingContext(ds2, "Slot").EndCurrentEdit()<br />
        da2.Update(ds2, "Slot")<br />
        InsertCommand2.ExecuteNonQuery()<br />
        con.Close()<br />

i delete from tow table

and this for insert

con.Open()<br />
        Dim sql As String = "SELECT * FROM [Section]"<br />
        Dim sql2 As String = "SELECT * FROM Slot"<br />
        Dim da As New OleDbDataAdapter(sql, con)<br />
        Dim da2 As New OleDbDataAdapter(sql2, con)<br />
        Dim ds As New DataSet<br />
        Dim ds2 As New DataSet<br />
        da.Fill(ds, "Section")<br />
        da2.Fill(ds2, "Slot")<br />
        Dim InsertCommand1 As New OleDbCommand<br />
        Dim InsertCommand2 As New OleDbCommand<br />
<br />
<br />
        '---insrting section to section databace<br />
        InsertCommand1.Parameters.Clear()<br />
        InsertCommand1.Connection = con<br />
        InsertCommand1.CommandText = "INSERT INTO [Section] ([SectionID],[CourseID],[Type],[TeacherID],[joinedSection],[Group],[Capacity]) VALUES (?,?,?,?,?,?,?)"<br />
        InsertCommand1.CommandType = CommandType.Text<br />
        InsertCommand1 = InsertCommand1<br />
        Try<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(CType(TextBox46.Text, Integer)))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(ComboBox99.Text))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(ComboBox102.Text))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(TextBox47.Text))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
            da.InsertCommand = InsertCommand1<br />
            InsertCommand1.ExecuteNonQuery()<br />
        Catch ex As Exception<br />
            MsgBox(ex, , "Alert")<br />
        End Try<br />
        Me.BindingContext(ds, "Section").EndCurrentEdit()<br />
        da.Update(ds, "Section")

sorry about that but also i whant to ask about
can i update using this statment

sectionsforupdate.Tables("Slot").Rows(i).Item(0) = slot<br />
sectionsforupdate.AcceptChanges()<br />

Christian Graus23-Mar-08 11:27

Christian Graus

23-Mar-08 11:27

asha_s wrote:
how can i make it delete for ever

is the rong in the connection

For you to even ask that means you don't understand how databases work. You either connect, or you don't. If you're running the same version of the app ( release or debug ) both times, and your column disappears then reappears, it probably means that your UI is not showing it, but you never deleted it.

asha_s wrote:
Dim sql As String = "SELECT * FROM [Section]"
Dim sql2 As String = "SELECT * FROM Slot"
Dim da As New OleDbDataAdapter(sql, con)
Dim da2 As New OleDbDataAdapter(sql2, con)
Dim ds As New DataSet
Dim ds2 As New DataSet

Your code would be easier to read if your variables had meaningful names.

asha_s wrote:
ComboBox105.Text

You have 105 numbered combo boxes ? How do you know that combo105 is the right one ? This is probably your problem.

You're at least using paramerised queries, but it's still better to have a real data layer, IMO.

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 )

asha_s24-Mar-08 0:09

24-Mar-08 0:09

my connection is

 Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
"Data Source =" & Application.StartupPath & "\ITDSS.mdb"<br />
   Public con As New OleDbConnection(ConStr)

please if you now how i can solve this problem help me

yes i have 105combobox because i am Dealing withe big tables

tell me how can i make the ui connect to the db

please i need your help D'Oh! | :doh:

Dave Kreskowiak24-Mar-08 4:05

24-Mar-08 4:05

asha_s wrote:
i am deleting from it and it work smile.gif smile.gif

but after i close my project than i open it and i made run i found that the deleted record in the database ohmy.gif

after i delete i check only the database in the dubg file

This is problably because the database file in your project is being copied to target build directories (Debug or Release) every time you run or rebuild the project, thereby overwriting the changes you made to the COPIES of database in those folders.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

asha_s24-Mar-08 7:40

24-Mar-08 7:40

thinks it yes the file was a copy and it work now
but i want to ask about updating db can i use this way

If RichTextBox45.Text <> "" Then<br />
           slot = 50405<br />
           sectionsforupdate.Tables("Slot").Rows(i).Item(0) = slot<br />
           i += 1<br />
       End If<br />
       sectionsforupdate.AcceptChanges()<br />
       con.Close()<br />

becuse in table sectionsforupdate many record that have the sectionId
and the primary key is (slot,sectionid)

i want to update all the slot for that section

i bring all the record that have the sectionid and but it in sectionsforupdate without knowing the slotid i want to update the slot

so i but this code but its not working Sigh | :sigh:

please help me

Dave Kreskowiak26-Mar-08 6:47

26-Mar-08 6:47

AcceptChanges doesn't do what your code is implying that you think it does. AcceptChanges tells the dataset that all of the changes it's keeping track of should be permanent, IN THE DATASET - NOT THE DATABASE. Call the Update method to write the changes made to the dataset back to the database.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

asha_s26-Mar-08 7:18

26-Mar-08 7:18

thanks but 'Update' is not a member of 'System.Data.DataSet'.
and i con not use the comand becase i have many slot that have the same sectionid and i retreve all of them and i want to update colum (0) row by row how can i save the changes

please help if you can becuse i stop my project and trying to solve this problem

Dave Kreskowiak26-Mar-08 7:20