Visual Basic

Re: Compare the structure for 2 sql server databases

10-Apr-15 8:36

dilkonika wrote:
I need only some steps , with words , not with code.

Then I must have misread. Looked to me like a post that contained the steps got the answer "how to do this with code in vb.net."

Get some sleep and try again tomorrow. If any of the steps are too vague, simply ask for more explanation.

FWIW, I'd start by Googleing for the SQL-command to use to restore a backup. After that, probably executing that as a NonQuery. Then, Googeling for "sys.objects", or how to get a list of all objects in Sql Server. If you Google hard enough you'll even find a copy of a poster that contains all the relations between those system tables Smile | :)

Then I'd be making a list of all the objects in DB A, and probably store it in a new database (DB C). Then I'd be making a list of all the objects in DB B, and store that result as a table too. Then all that is left is comparing those two lists, and displaying the difference. I'd probably do that by trying to JOIN those lists, displaying the result in a datagridview.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

dilkonika10-Apr-15 9:36

Re: Compare the structure for 2 sql server databases

10-Apr-15 9:36

sorry , but in my opinion you should not respond with " Googleing".
If all the things are clear in google , then why you keep open this forum ?

Eddy Vluggen10-Apr-15 10:10

Re: Compare the structure for 2 sql server databases

10-Apr-15 10:10

dilkonika wrote:
If all the things are clear in google

Google is not "documentation", it is a search-machine. You can easily look up what the command is, or you buy a book with all the commands and go through the pages to find all switches.

dilkonika wrote:
then why you keep open this forum ?

I don't! I'm just someone who signed up here and became a member, just like you! There's no employees here that are paid to get you your answers, there's only passers-by that might just be friendly enough to help.

If you want to know why, well, go ahead and read about it in the help-section. I'll gladly help with any question. Some basic pointers if required to get started, specific help with errors, I can do. Finding alternative solutions, sure.

..but you will have to write your own code, that is not our job Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

dilkonika10-Apr-15 10:16

Re: Compare the structure for 2 sql server databases

10-Apr-15 10:16

And who ask to you to write my code ?
I ask for steps.
And a step is not " Go to goolge and search about this ....."

when I know the steps , I have provided my code and asked for help.
For example look at one of my recent question :
http://www.codeproject.com/Messages/5036045/Make-all-the-controls-inside-a-Groupbox-unusable-w.aspx[^]

Eddy Vluggen10-Apr-15 10:27

Re: Compare the structure for 2 sql server databases

10-Apr-15 10:27

dilkonika wrote:
And who ask to you to write my code ? I ask for steps. And a step is not
" Go to goolge and search about this ....."

What is a step in your opinion?

dilkonika wrote:
For example look at one of my recent question

Looks a lot better than this one, don't it? Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

dilkonika10-Apr-15 12:35

Re: Compare the structure for 2 sql server databases

10-Apr-15 12:35

If a have the problem " how can I add 2 numbers entered by user" The steps are :

read the first number using inputbox
make the same thing with other number
add 2 numbers.

and if my recent question looks better , please respond to it because no one give a response. Because I think is a question given only by code , and not everyone understand.

Eddy Vluggen11-Apr-15 8:49

vb.net 2010 pass value to function

11-Apr-15 8:49

If I had an answer to the other question, I would have posted it.

Your first step;
https://msdn.microsoft.com/en-us/library/ms186858.aspx[^]

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

dcof9-Apr-15 13:04

dcof

9-Apr-15 13:04

In a vb.net 2010 application, I want to make a minor change to an existing application. I want to pass the value of 'SchoolNum' into the sql listed below but I am getting an error message. I do not know what the error message is since the object is not accessible

The following is the code of where the call is coming from:

Letter is an object that is passed between different parts of the application.

Dim SchoolNum As String = '332'

_dtDetail = SelectDetail(Letter, SchoolNum)

The following is the function that is executed.

"Public Function SelectDetail(ByVal Letter As Letter, ByVal SchoolNum As String) As DataTable"
     Public Function SelectDetail(ByVal Letter As Letter, ByVal SchoolNum As String) As DataTable
        Dim _dt As DataTable = New DataTable()
        Dim SchoolNumber As String = SchoolNum
  Const sql As String = "SELECT d.LINK,d.absdt  " _
                            & ",CAST(ROUND(SUM([ABSCNT]), 2) AS NUMERIC(24,2)) AS absentCount " _                             & "FROM ADetails d INNER JOIN AASTU s ON d.link = s.link  " _
                            & "INNER JOIN AASCH sch ON d.schoolnum = sch.schoolnum  " _
                            & "WHERE d.STULINK = @link " _
                            & "AND d.schoolnum =   + SchoolNum " _
                            & "GROUP BY d.LINK,d.absdt  " _
                            & "ORDER BY d.ABSDT ; "

       Using con As SqlConnection = DB.OpenConnectionS()
            Using da As SqlDataAdapter = New SqlDataAdapter(sql, con)

               Try
                    da.SelectCommand.Parameters.Add("@link", SqlDbType.Int).Value = Letter.Link
                    da.Fill(_dt)
                Catch ex As Exception

               End Try

           End Using
        End Using

       Return _dt
    End Function
   #End Region

Thus can you show me the code where I can pass in a string value called SchoolNum into the function called 'SelectDetail' so the sql will execute successfully?

Re: vb.net 2010 pass value to function

Richard MacCutchan9-Apr-15 21:53

Richard MacCutchan

9-Apr-15 21:53

What is the error message, and what line of code does it refer to? What is it about the function call that you do not understand? The parameters are quite clearly specified above.

Re: vb.net 2010 pass value to function

Richard Deeming10-Apr-15 3:39

Richard Deeming

10-Apr-15 3:39

Don't use string concatenation to pass the parameter - you'll leave your code vulnerable to SQL Injection[^].

Instead, pass the parameter in the Parameters collection, in the same way as the Letter.Link parameter:

VB.NET

Const sql As String = "SELECT d.LINK,d.absdt  " _
   & ",CAST(ROUND(SUM([ABSCNT]), 2) AS NUMERIC(24,2)) AS absentCount " _
   & "FROM ADetails d INNER JOIN AASTU s ON d.link = s.link  " _
   & "INNER JOIN AASCH sch ON d.schoolnum = sch.schoolnum  " _
   & "WHERE d.STULINK = @link " _                         
   & "AND d.schoolnum = @SchoolNum " _
   & "GROUP BY d.LINK,d.absdt  " _
   & "ORDER BY d.ABSDT ; "

Using con As SqlConnection = DB.OpenConnectionS()
   Using da As SqlDataAdapter = New SqlDataAdapter(sql, con)
      da.SelectCommand.Parameters.Add("@link", SqlDbType.Int).Value = Letter.Link  
      da.SelectCommand.Parameters.AddWithValue("@SchoolNum", SchoolNum)
      da.Fill(_dt)
   End Using
End Using

You should also remove the Try..Catch block, which is swallowing the exception, making it virtually impossible to debug the error.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Re: vb.net 2010 pass value to function

dcof10-Apr-15 4:12

dcof

10-Apr-15 4:12

Thanks that solved the issue!

VB6 TextBox truncates text in IE 11 Compatibility Mode

Bill Cumming9-Apr-15 5:29

Bill Cumming

9-Apr-15 5:29

I'm maintaining code that has a VB6 TextBox as an ActiveX control running in an ASP .Net 2.x web app. For a host of reasons the web page has to run in Compatibility Mode or the ActiveX controls won't run in IE 10 + 11. But for this particular control I see the text in the multiline TextBox truncated to only the first character (and even that is slightly chopped off) at certain zoom factors (including 100%) in IE 10 and 11 in Compatibility mode. Runs fine in IE 9 and earlier. If I zoom the page it redraws fine at all zoom factors. But if I refresh the page, it fails again.

This gets more bizarre. The truncation is not just the text but the background fill as well. Only the upper left approx 10x10 px redraws.

I have tried to force the element to redraw itself using (see http://stackoverflow.com/questions/8840580/force-dom-redraw-refresh-on-chrome-mac):
var item = document.getElementById('myItem');
var sVal = item.style.display;
item.style.display = 'none';
item.style.display = sVal;

This works but ONLY if I use this code within my onKeyDown routine. It DOESN'T work if I call it in the window::onload routine. WTH?

I also tried setting item.runtimeStyle.visibility to 'hidden' and back to 'visible', but that didn't work at all.

Any suggestions on where I should look or what I should try?

Bill Cumming

modified 10-Apr-15 17:23pm.

Re: VB6 TextBox truncates text in IE 11 Compatibility Mode

Richard Deeming9-Apr-15 7:08

Richard Deeming

9-Apr-15 7:08

Why are you using an ActiveX control from VB6? What features does it give you that the built-in <asp:TextBox> / <input type="text" /> / <textarea> elements don't have?

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Re: VB6 TextBox truncates text in IE 11 Compatibility Mode

Bill Cumming9-Apr-15 7:15

Bill Cumming

9-Apr-15 7:15

The quick answer is cuz it's old code and the developers are long gone. Dunno if they knew about it.

Alas I have had this legacy project dropped in my lap. I don't know VB, ASP .Net or JavaScript, (I'm a C# kinda guy) so I'm clueless to know where to look in the plumbing between them all to know what to check.

I don't fully understand what extra behavior the ActiveX gave them - the events I see it handling are nothing special. Your suggestion sounds reasonable to me so I'll look into it. I would still like to know why it's failing though....

Thanks for the suggestion

Bill Cumming

WM that has to do with pressing the enter key and TAB key.

dilkonika8-Apr-15 13:29

Re: WM that has to do with pressing the enter key and TAB key.

8-Apr-15 13:29

Hello !
In this list of windows Messages : http://www.pinvoke.net/default.aspx/Constants/WM.html[^]
which is the message that has to do with pressing the Enter key and the TAB key?
I try with WM_KEYDOWN , but it seems that the enter and the tab key are not handled.
Thank you !

CHill608-Apr-15 13:44

Re: WM that has to do with pressing the enter key and TAB key.

8-Apr-15 13:44

It's been a while since I did ought like this but the WM_CHAR message should contain the key that actually went "down" I think

dilkonika8-Apr-15 13:48

Re: WM that has to do with pressing the enter key and TAB key.

8-Apr-15 13:48

I try the WM_CHAR too , but doesn't work for TAB and Enter.

CHill608-Apr-15 13:58

Re: WM that has to do with pressing the enter key and TAB key.

8-Apr-15 13:58

Er.. yes it does... how are you checking for those keys

dilkonika8-Apr-15 15:35

Re: WM that has to do with pressing the enter key and TAB key.

8-Apr-15 15:35

Protected Overrides Sub WndProc(ByRef m As Message)
            If m.Msg = WM_CHAR Then
                Return
            End If
            MyBase.WndProc(m)
        End Sub
    End Class

all the other keys are blocked , but if TAB or Enter key is pressed then MyBase.WNDProc(m) is executed.

CHill608-Apr-15 23:41

Re: WM that has to do with pressing the enter key and TAB key.

8-Apr-15 23:41

This will capture all of the keys using the ProcessCmdKey override rather than WndProc

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        Const WM_KEYDOWN As Integer = &H100

        If ((msg.Msg = WM_KEYDOWN)) Then
            Select Case (keyData)
                Case Keys.Tab
                    Me.Label1.Text = "Tab Key Captured"
                Case Keys.Enter
                    Me.Label1.Text = "Enter Key Captured"
                Case Keys.Return
                    Me.Label1.Text = "Return Key Captured"
                Case Else
                    Me.Label1.Text = keyData.ToString
            End Select
        End If

        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

But I really don't understand your problem as this also works for me.

Protected Overrides Sub WndProc(ByRef m As Message)
    Const WM_CHAR = &H102
    If m.Msg = WM_CHAR Then
        Return
    End If
    MyBase.WndProc(m)
End Sub

dilkonika9-Apr-15 6:34

Re: WM that has to do with pressing the enter key and TAB key.

9-Apr-15 6:34

Thank you !
The problem with my code is that all other keys are blocked for the control , except the TAB key and Enter key.
If you have test my code , you should see that for the control , all the other keys are blocked inside the IF . But for Tab key and Enter key , the IF condition is always false , and the standart WNDProc is executed.

dilkonika9-Apr-15 7:21

Re: WM that has to do with pressing the enter key and TAB key.

9-Apr-15 7:21

sorry but I can't use your function ProcessCMD.
The reason is that I'm usng NativeWindow , and when I try to use your function , I get an error
'ProcessCmdKey' is not a member of 'System.Windows.Forms.NativeWindow'.
What can I do ?
This is my whole class that actually I'm using :

Class NW
        Inherits NativeWindow
        Public Sub New(hwnd As IntPtr)
            AssignHandle(hwnd)
        End Sub
        Const WM_NCHITTEST As Integer = &H84
        Const WM_CHAR As Integer = &H102
        Protected Overrides Sub WndProc(ByRef m As Message)
            If m.Msg = WM_NCHITTEST OrElse m.Msg = WM_CHAR Then
                Return
            End If
            MyBase.WndProc(m)
        End Sub

<pre>
End Class</pre>

CHill609-Apr-15 10:49