Visual Basic

Re: how to use a downloaded C# sourcefile in a vb.net 2008 project?

3-Jun-09 4:56

1. Add the file to your project:
In the solution explorer,
right Click on your project,
select add --> existing item.
Find the dll file and add it.

2. Add a reference to the dll
in the solution explorer,
double click on My Project,
select the references tab.
click add.
select the browse tab
Find the dll file and click ok

aeroaster3-Jun-09 16:00

aeroaster

3-Jun-09 16:00

Thank you,i got it.but how can i declare function to use a function in DLL ?

Re: how to use a downloaded C# sourcefile in a vb.net 2008 project?

Kschuler4-Jun-09 2:52

4-Jun-09 2:52

Once the dll has been referenced, you need to create an instance of it and then you can call any exposed methods or functions it conatins. For example, if your DLL is named MyLibrary and has a function called MyFunction that takes two string parameters. This is how you would call it and use it:

Dim objLib as New MyLibrary<br />
Dim str as String<br />
str = objLib.MyFunction("Hello", "World")

deleteing from database

chrispowell123453-Jun-09 4:26

chrispowell12345

3-Jun-09 4:26

Hi guys,

I'm working in VBexpress2008 using the sql server compact that comes with it. I'm trying to delete a row from a listbox out of a table using this code:

Private Sub Deleteip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Deleteip.Click
DataSet.IP.Rows(IPlistbox.SelectedIndex).Delete()
DataSet.IP.AcceptChanges()
IPTableAdapter.Update(DataSet.IP)
End Sub

it all seems to work fine, deleteing it from the dataset, no errors when running the tableadapter.update but when i go back into it they are there again!

any suggestions would be appreciated, thanks

Chris

riced3-Jun-09 4:55

riced

3-Jun-09 4:55

A possible answer might be that when you re-run the code it is copying the database from the original into the bin\debug folder.
This happens when you run in debug so that the testing does not trash the original database.

Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis

Jon_Boy3-Jun-09 5:01

Jon_Boy

3-Jun-09 5:01

Does your table adapter have a delete statement defined within the dataset?

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Dave Kreskowiak3-Jun-09 5:45

3-Jun-09 5:45

The problem is that you called AcceptChanges before you called Update. This tells the DataSet that the modifications that it is holding should now be considered synced up with the database. now that you've essentially wiped out all the changes, when you call Upgdate, the DataAdpater doesn't see any changes to make to the backing database, so nothing changes. When you go run your code again, you see the database exactly how it was when you ran it the last time.

A guide to posting questions on CodeProject[^]

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

Jon_Boy3-Jun-09 6:27

Jon_Boy

3-Jun-09 6:27

doh! Yuppers!

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

chrispowell123453-Jun-09 22:12

chrispowell12345

3-Jun-09 22:12

Wow thanks for the reponse. I think I was going wrong as I was under the impresion that when you mark the row for deletion the acceptchanges removes it from the dataset then the update syncsthe source with the dataset. now I know! and yes, the tableadapter doesn't have a valid delete command.

thanks alot!

chris

Dave Kreskowiak4-Jun-09 1:22

4-Jun-09 1:22

Tha'ts why we have documentation on nearly every class, method and property in the .NET Framework. Just looking at a method name and trying to guess at what it does isn't doing you any favors.

A guide to posting questions on CodeProject[^]

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

Transaction deadlock crash + vb.net 2008

chrispowell123454-Jun-09 2:18

chrispowell12345

4-Jun-09 2:18

very true, but that was the impression I got from the documentation! Oh well, still very new to this. Here's how I fixed it for peoples reference:

Private Sub Deleteip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Deleteip.Click
Dim item, port As Integer
Dim ip As String
item = IPlistbox.SelectedIndex
ip = DataSet.IP.Item(item).IPaddress
port = DataSet.IP.Item(item).Port
DataSet.IP.Rows(IPlistbox.SelectedIndex).Delete()
DataSet.IP.AcceptChanges()
IPTableAdapter.DeleteQuery(ip, port)
End Sub

Pankaj Garg3-Jun-09 3:41

Pankaj Garg

3-Jun-09 3:41

Hi,

In am doing the simultaneouly two imports. Which export the data from excel to sql server.
There are some common tables, which are being approached by both these imports. and results in deadlock
Transaction (Process ID 53) was deadlocked on resources with another process and has been chosen as the deadlock victim. Rerun the transaction.

In the sql profiler, i have seen that a couple of queries are taking time, which are using common tables in imports. I have optimized it also.

Can you provide me any suggestion?

Thanks

Re: Transaction deadlock crash + vb.net 2008

Kschuler3-Jun-09 4:59

Re: Transaction deadlock crash + vb.net 2008

3-Jun-09 4:59

Um...Don't do the imports simultaneously?

Do some kind of check to make sure the files not being used by another process before doing the import.

Dave Kreskowiak3-Jun-09 5:40

Any suggestions or guidelines with using Class Modules in VBA for MS Word / Excel

3-Jun-09 5:40

This would tell me that you can't do the imports simultaneously since they both add/modify to the same table(s).
You don't have a choice but to do them sequentially.

A guide to posting questions on CodeProject[^]

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

psionic20093-Jun-09 0:27

psionic2009

3-Jun-09 0:27

Hi there,

This would be my first post that is basically asking/requesting points of view from various Bloggers/experts from this site whom I welcome to comment on coding principles rather than talking about code specific. Big Grin | :-D

Some background information to introduce this subject, basically I am working on a project that simplifies automating a summary form in MS Word that involves in several processes along the way. It has text forms fields and few check boxes that is associated to several bookmarks.

I can use VBA code to collect information from these bookmarks and make control structure decisions given input from users. I have a drop down lists that I will have to use MS Access instead of an array code to fill them up as I was shocked to find VBA telling me that 25 continuation lines is the maximum when I wanted to fill an array for over 120 items. bummer! WTF | :WTF:

Anyway, I know about object oriented programming and have seen the benefits, especially from books on Word / Excel VBA suggesting a Class Module using examples of employees with time sheet objects.

Trouble is, I couldn't confidently use it but I wanted to so I can organise the forms like objects and put the results into a collection like Word / Excel organises data. I tend to be cautious as I used to write code like I would write COBOL structured programming (I used to do this mind you!)

I would use those examples provided from books to develop my own patch of code that achieves a sort of re-factoring about approximately 40 lines of VBA module code when the user clicks the button that starts the module.

Let's give a fictional example that give you an idea or essence of my module project at work to show you what I mean and I wanted to re-factor these ideas from this CommandButton1 module into a Class Module that simplifies duplicate code.

Please forgive me for lacking any comments in the code.

Here are my questions - What's the best approach in converting this into a VBA class module?

What guidelines would people offer from their experience into turning modules into class modules?

This code works when a button on the form is pressed after entering information into three fields in Word.

<br />
Sub CommandButton1_Click()<br />
Dim objA as Document<br />
Dim strB as String<br />
Dim strC as String<br />
Dim strD as String<br />
Dim blnB as Boolan<br />
Dim blnC as Boolan<br />
Dim blnD as Boolan<br />
<br />
Set objA = ActiveDocument<br />
<br />
blnB = false<br />
blnC = false<br />
blnD = false<br />
<br />
strB = objA.FormField("FieldA").Result<br />
<br />
if strB = "Somebody" then<br />
blnB = True<br />
<br />
strC = objA.FormField("FieldB").Result<br />
<br />
if strC = "Anybody" then<br />
blnC = True<br />
<br />
strD = objA.FormField("FieldC").Result<br />
<br />
if StrD = "Otherbody" then<br />
blnD = True<br />
<br />
If blnB then<br />
  if blnC then<br />
     if blnD then<br />
       Save this file<br />
     else<br />
       Msgbox "Error entering Field C"<br />
     end if<br />
  else  <br />
    msgbox "Error enter Field B"<br />
  end if<br />
else<br />
  msgbox "Error enter Field A"<br />
end if<br />
  <br />
End Sub<br />

Regards, Psionic

problem in sending a mail through CDO configuration using macro in Excel

haijimsonjose2-Jun-09 23:25

haijimsonjose

2-Jun-09 23:25

<pre>
Hello ...

Problem :
problem regarding sending mail through CDO using Excel macro
For some attempts i sucussful sent mails with attachment but suddenly it droped. I dont know what was the problem but I think none of the errors were observed during the process.
More over I am not able to find mail in my inbox to which i had configured in the macro.

My system configuration is   -         Win XP Sp3 o/s &amp; working on Office 2003

Excel VBA Code is as follows....

Option Explicit

Private Sub CommandButton1_Click()

Dim objMsg As Object
Dim objConf As Object
Dim objFlds As Object
Dim strBody As String

Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2 'Must use this to use Delivery Notification
Const cdoAnonymous = 0
Const cdoBasic = 1 ' clear text
Const cdoNTLM = 2 'NTLM
'Delivery Status Notifications
Const cdoDSNDefault = 0 'None
Const cdoDSNNever = 1 'None
Const cdoDSNFailure = 2 'Failure
Const cdoDSNSuccess = 4 'Success
Const cdoDSNDelay = 8 'Delay
Const cdoDSNSuccessFailOrDelay = 14 'Success, failure or delay

Set objMsg = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")

objConf.Load -1
Set objFlds = objConf.Fields
With objFlds
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
   .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587 '465
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mailserver4macro@gmail.com"
   .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "jose309930"
   .Update
End With

strBody = "This is a sample message." & vbCrLf
strBody = strBody & "It was sent using CDO." & vbCrLf

With objMsg
   Set .Configuration = objConf
   .To = "hai_jimson_jose@yahoo.com"
   .From = "mailserver4macro@gmail.com"
   .Subject = "Hai jimson!!   This is a CDO test message"
   .TextBody = strBody
   'use .HTMLBody to send HTML email.
   '.Addattachment "c:\temp\Scripty.zip"
   .Fields("urn:schemas:mailheader:disposition-notification-to") = "mailserver4macro@gmail.com"
   .Fields("urn:schemas:mailheader:return-receipt-to") = "mailserver4macro@gmail.com"
   .DSNOptions = cdoDSNSuccessFailOrDelay
   '.Fields.Update
   .Send
End With
End Sub
</pre>

Re: problem in sending a mail through CDO configuration using macro in Excel

EliottA3-Jun-09 3:17

EliottA

3-Jun-09 3:17

Ew.

Check out the CodeProject forum Guidelines[^]

Where does the custom Outlook Commandbar come from?

Sonhospa2-Jun-09 22:26

Sonhospa

2-Jun-09 22:26

Hello everybody,

I hope someone can help me with a weird kind of home-made newbie problem...

I've been trying around with different solutions to create Outlook-Add-Ins (with VB Express only), which lead to installing various samples and testing them. Some had to be registered manually, with *.reg files as well as with regsvr32, others with regasm. Having found a way that works for my purpose, I tried to go back to my clean Outlook and found that I must have missed to uninstall any of the samples - Outlook shows a custom "MyBar" command with a "My Button" commandbutton, and I'm just unable to trace its origin $Shucks | :-\$ .

Resetting the standard bar in Outlook doesn't help, the custom bar is installed at each startup. And searching the registry didn't lead to any new insights since the different ...\outlook\AddIns keys seem to be all empty already. Also, there is no relevant reference or add-in listed in Outlook.

Does anyone of you know how Confused | :confused:

I can find out where that button came from? From where would Outlook load that UOO (= unidentified outlook object Cool | :cool:

)?

Thank you in advance,
Michael

Re: Where does the custom Outlook Commandbar come from?

Dave Kreskowiak3-Jun-09 3:19

Re: Where does the custom Outlook Commandbar come from?

3-Jun-09 3:19

In Outlook 2003, and I think 2007, it's under Tools -> Trust Center -> Add-ins tab.

A guide to posting questions on CodeProject[^]

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

Sonhospa3-Jun-09 4:04

Sonhospa

3-Jun-09 4:04

Hi Dave,

unfortunately I'm using Outlook XP in German... but I guess what you mean would be Tools --> Options --> Extended --> COM Add-Ins, where I had expected to find the path to a dll myself. But too sad: There's nothing there as well as in the References and Add-Ins of the VBIDE.

Meanwhile I found the responsible sample project, and it's an OLDER Microsoft KB sample written in C++:
COMADDIN.EXE (http://support.microsoft.com/download/support/mslfiles/COMADDIN.EXE)

Having no clue about C++ I obviously managed to compile the code (more or less by chance), and I'm afraid the sample produced any registry (or other?) system entries which outlook happens to load without showing it as an add-in... Maybe it's also important that the sample was made for OL2000.

Are you able to read C++ and have a look at the sample? I'm still optimistic that there must be a way to remove the "MyBar", but the task is just far beyond my limits WTF | :WTF:

Hoping for your help,
sincerely
Michael

Re: Where does the custom Outlook Commandbar come from?

Dave Kreskowiak3-Jun-09 12:37

How to create Digital Sign For My Application

3-Jun-09 12:37

You might want to try the C++ forum for that.

A guide to posting questions on CodeProject[^]

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

Anubhava Dimri2-Jun-09 20:42

Anubhava Dimri

2-Jun-09 20:42

Hi All,
How Can I Create digital sign for my application?

Need help.

Thanks

If you can think then I Can.

Re: How to create Digital Sign For My Application

Christian Graus2-Jun-09 21:29

Christian Graus

2-Jun-09 21:29

What do you mean ?

Christian Graus

Driven to the arms of OSX by Vista.

Please read this[^] if you don't like the answer I gave to your question.

"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.

Re: How to create Digital Sign For My Application

Anubhava Dimri2-Jun-09 21:37

Anubhava Dimri

2-Jun-09 21:37

In vista Microsoft Defender shows my application is shows
Digitally Signed By: NOT SIGNED

Microsoft application shows it
Digitally Signed By: Microsoft Windows Verification PCA

so how to set digital sign for my application.

If you can think then I Can.

Re: How to create Digital Sign For My Application

Kschuler3-Jun-09 3:18