|
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.
|
|
|
|
|
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.
|
|
|
|
|
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 />
<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 />
} <br />
}<br />
}<br />
<br />
In this I have registerd the DLL with /codebase switch while using regasm.exe too.
Regards,
Lenus.
|
|
|
|
|
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.
|
|
|
|
|
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.
|
|
|
|
|
|
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 
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
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.
|
|
|
|
|
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
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 />
|
|
|
|
|
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 )
|
|
|
|
|
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 
|
|
|
|
|
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.
|
|
|
|
|
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 
please help me
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
Sorry, you call Update on the DataAdpater or TableAdatper that was used to fill the DataSet/DataTable.
|
|
|
|
|
I need help on making a program, I need to create a project to compute your checking account balance.
Form Includes radio buttons to indicate the type of transaction: deposit, check, or service charge. A text box will allow the user to enter the amout of the transaction. Display the new balance in a Read Only text box or label. Calculate the balance by adding deposits, and subtracting service charge and checks. Include buttons for Calculate, clear and exit.
Add validation to it by display a message box if the new balance would be a negative number. If there is not enough money to cover a check, do not deduct the check amout. Instead, display a message box with the message "Insufficient Funds" deduct a service charge of $10.
Can anyone help me on this program.
|
|
|
|
|
antlex wrote: I need help on making a program, I need to create a project to compute your checking account balance.
What have you done so far?
You're not going to get the whole program written for you - read forum rule no.2. If you have no idea how to start, I suggest you buy a beginner's book on VB.NET and work your way through it. Then post again if you have specific programming questions.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
Sure - here's your help. Do your own homework. If I did it for you, then what would you have learned ? Why do people think this is the way to pass a computer science course ?
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 )
|
|
|
|
|
I am haveing a problem with inserting data in to database and i am using vb.net 2005 this what i have done
Dim ds As New DataSet<br />
Dim da As OleDb.OleDbDataAdapter<br />
Dim sql As String<br />
<br />
sql = "SELECT * FROM Books"<br />
da = New OleDb.OleDbDataAdapter(sql, MyConn)<br />
Dim cb As New OleDb.OleDbCommandBuilder(da)<br />
Dim dsNewRow As DataRow<br />
<br />
i am getting error in bottom bold line it says "Object reference not set to an instance of an object."<br />
<big>dsNewRow = ds.Tables("Books").NewRow()</big><br />
<br />
dsNewRow.Item("Title") = txtQ.Text<br />
dsNewRow.Item("Year") = "1990"<br />
dsNewRow.Item("Pages") = "500"<br />
dsNewRow.Item("ISBN") = "111-999-8989"<br />
dsNewRow.Item("URL") = "www.dk.com"<br />
dsNewRow.Item("Picrure") = "www.dk.co.uk"<br />
ds.Tables("Books").Rows.Add(dsNewRow)<br />
<br />
da.Update(ds, "Books")
i have also try this but still i am having a same problem
(VB 2005 Express Edition users: don't forget to add the references! Click Project > Add References. Locate System.Data.dll and System.Xml.dll on the NET tab. Select these items and click OK. Then add Imports System.Data at the very top of your code window.)
any help 
thanks
have a nice day
|
|
|
|
|
Have you tried stepping through your code with the debugger to identify the source of the problem? I suggest you familiarize yourself with the concept of debugging if you are not sure what it is.
Unless I am missing something, it doesn't appear as if your DataSet object is assigned any tables. Therefore any attempt to reference a table called 'Books' will throw an error.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
pmarfleet wrote: it doesn't appear as if your DataSet object is assigned any tables
He's only declared ds, but has not done anything with it...
"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus
|
|
|
|
|
Precisely my point. It does surprise me when people ask questions like this, i.e. where the source of the problem can quickly be found by simply stepping through the code.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
