Visual Basic

1. Read the question carefully
   
2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar
   
3. If a question is poorly phrased then either ask for clarification, ignore it, or mark it down. Insults are not welcome
   
4. If the question is inappropriate then click the 'vote to remove message' button
   

1. Choose the correct forum for your message. Posting a VB.NET question in the C++ forum will end in tears.
   
   
2. Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
   
   
3. Keep the subject line brief, but descriptive. eg "File Serialization problem"
   
   
4. Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
   
   
5. Be careful when including code that you haven't made a typo. Typing mistakes can become the focal point instead of the actual question you asked.
   
   
6. Do not remove or empty a message if others have replied. Keep the thread intact and available for others to search and read. If your problem was answered then edit your message and add "[Solved]" to the subject line of the original post, and cast an approval vote to the one or several answers that really helped you.
   
   
7. If you are posting source code with your question, place it inside <pre></pre> tags. We advise you also check the "Encode HTML tags when pasting" checkbox before pasting anything inside the PRE block, and make sure "Ignore HTML tags in this message" check box is unchecked.
   
   
8. Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
   
   
9. Please do not post links to your question in one forum from another, unrelated forum (such as the lounge). It will be deleted.
   
   
10. Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
    
    
11. If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.
    
    
12. No advertising or soliciting.
    
    
13. We reserve the right to move your posts to a more appropriate forum or to delete anything deemed inappropriate or illegal.

Dim connCatapult As New OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=CATAPULT;Initial Catalog=Catapult;Integrated Security=SSPI")
        Dim daCatapult As New OleDb.OleDbDataAdapter("Select TestUserLoginDetails.UserName,  TestUserLoginDetails.Password FROM TestUserLoginDetails", connCatapult)
        Dim dsLoginData As New DataSet()

        Dim strUsername As String = Login1.UserName
        Dim strPassword As String = Login1.Password

        daCatapult.Fill(dsLoginData, "TestUserLoginDetails")
        'connCatapult.Open()

        '**********This is all that i'm trying to do*****************
        Dim strDbUserName As String
        strDbUserName = ????????????????????
        '********************************************************

strDbUserName = dsLoginData.Tables(0).Rows(0).Item("UserName")

Public Shared WithEvents theOpcServer As OPCAutomation.OPCServer = Nothing
Public Shared WtihEvents theOpcGroup As OPCAutomation.OPCGroup

Public Shared theOpcServer As OPCAutomation.OPCServer = Nothing
Public Shared theOpcGroup As OPCAutomation.OPCGroup

Public Shared theOpcServer As OPCAutomation.OPCServer = Nothing

Public Shared Sub OpcServerEventHandler(sender as Object, e as EventArgs)

If theOpcServer IsNot Nothing Then
	RemoveHandler theOpcServer.OpcServerEvent, AddressOf OpcServerEventHandler
End If
theOpcServer = New OPCAutomation.OPCServer()
AddHandler theOpcServer.OpcServerEvent, AddressOf OpcServerEventHandler

vmars316 wrote:

but all i get back is a "0", telling me that all is well.

'Set Range to end of document
            Dim where As Range
            Set where = ActiveDocument.Range(ActiveDocument.Range.End - 1, ActiveDocument.Range.End - 1)
            
            'Insert table with 100 rows and 2 cols
            Set tablewith_different_styles = ActiveDocument.Tables.Add(where, 100, 2, _
                DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)
            
            
            'Loop 100 times for each Font
            i = 0
            g = 1
            Do While i < 5
                Do While g < 21

                    'Got to table row i, col 1
                    tablewith_different_styles.Cell((i * 20) + g, 1).Select
                
                    
                    'Set random font
                    Selection.Font.Name = FontNames(g + 20)
                    'Save random font
                    Name_Font = Selection.Font.Name
                    'reset font for next output
                    Selection.Font.Name = "Courier New"
                    Selection.Font.Size = 9
                    'Insert font name and iterate to next line
                    Selection.TypeText Text:=Name_Font
                    Selection.MoveRight Unit:=wdCell
                    
                    'set font and size
                    Selection.Font.Name = FontNames(g)
                    Selection.Font.Size = 9
                    Selection.TypeText Text:="My Formatted Text in every Row."
                
                    g = g + 1
                Loop
                g = 1
                i = i + 1
            Loop