|
I have a visual basic 6 application that needs some updating for a project moving from SQL 7 to SQL 2000. The application is an executable that users create shortcuts to on their desktops. The exe file resides on the same server as the sql 2000 database it needs to access. Previously users created an ODBC connection on their own Windows 2000 Professional workstations, and the application that resides on the server used a simple connection string of ...
oconn.open "DSN=MOL;UID=sa;" ( yeah I know this is bad, I inherited it this way )
... but now the server has been upgraded from NT4 to Server 2003, and the database has gone
from SQL7 to SQL2000. I have been experimenting blindly with new connection strings, and
am currently trying ...
oconn.open "Integrated Security=SSPI;Initial Catalog=MOL;Data Source=server_name_here;"
The error I get when I run this vb exe on my own workstation with an ODBC connection setup
to use SQL authentication (using a user/pass that is setup in SQL) is ...
"Login failed for user '(null)'. Reason: Not associated with a trusted SQL Server connection.
Being a newbie to VB and SQL, and given the fact that I inherited this app to try and fix it, I am wondering if this approach is totally wrong? There are roughly 10 users who need to create a shortcut to this VB exe file that resides on the same server as the database, and the appliction is used to make updates to the database. Thanks for any suggestions.
|
|
|
|
|
|
I have tried all of the options displayed on these links, and all seem to result with the same
error. I am wondering if something with the SQL setup itself is blocking connections? We have
turned off the use of Named Pipes in SQL 2000. I have tried with both having my own ODBC
connection setup (using SQL authentication and having the user/pass setup that is the db user we need to use), and without any ODBC driver at all on my own desktop. I am kind of out of ideas at this point.
Thanks!
|
|
|
|
|
Usually ocurrs if using Windows Authentication on the server, and attempting to use SQL authentication to get in....
Win Auth uses Domain login, whereas SQL uses uid/pwd - are you SURE you're using mixed mode authentication?
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
Hello,
I am using vb.net and trying to connect to an access database. I get this error which i have never seen can someone help me out. It is only doing this for this database it connects fine to other databases i have tried.
error: Microsoft Data link Error
unable to connect to database
Could not open table 'MsysAccounts' in the workgroup information file.
Thankyou,
Santana
|
|
|
|
|
Does anyone know how I can autoupdate my application?
Kind regards,
Ruben Noorderijk
|
|
|
|
|
Here is the source used for updating programs on our Intranet. There is update detection code in each executable. When that executable detects that there are updates available, it notifies the user. When the user says "Update," the program launches the updater and closes.
This isn't the cleanest or most secure code, but it works.
Imports System.IO
Imports System.Net
Public Class frmMain
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))
Me.Button1 = New System.Windows.Forms.Button
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Enabled = False
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button1.Location = New System.Drawing.Point(360, 8)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 32)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Launch"
'
'RichTextBox1
'
Me.RichTextBox1.Location = New System.Drawing.Point(8, 48)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(424, 224)
Me.RichTextBox1.TabIndex = 3
Me.RichTextBox1.Text = ""
'
'ProgressBar1
'
Me.ProgressBar1.Location = New System.Drawing.Point(8, 8)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(344, 32)
Me.ProgressBar1.TabIndex = 4
'
'frmMain
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(442, 280)
Me.ControlBox = False
Me.Controls.Add(Me.ProgressBar1)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.Button1)
Me.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMain"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Updating Software..."
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub CopyFromInternet(ByVal Source As String, ByVal Destination As String, Optional ByVal Size As Long = 0)
Dim wc As New WebClient
' Does the file exist?
Dim str As Stream
Dim outstr As Stream
Dim bw As BinaryWriter
Dim br As BinaryReader
Try
str = wc.OpenRead(Source)
If wc.ResponseHeaders.Item("Content-Type") = "text/html" Then
If wc.ResponseHeaders.Item("Content-Location").IndexOf("404") > 0 Then
Throw New FileNotFoundException("The file '" & Source & "' was not found.")
End If
End If
Finally
str.Close()
End Try
Debug.WriteLine("Destination: " & Destination)
' Download the file
If Size = 0 Then
wc.DownloadFile(Source, Destination)
Else
str = wc.OpenRead(Source)
br = New BinaryReader(str)
outstr = New FileStream(Destination, FileMode.Create)
bw = New BinaryWriter(outstr)
For x As Integer = 1 To Math.Floor(Size / 4096)
bw.Write(br.ReadBytes(4096))
Next
bw.Write(br.ReadBytes(Size Mod 4096))
bw.Close()
br.Close()
outstr.Close()
str.Close()
End If
wc.Dispose()
End Sub
Private Sub RtfWrite(ByVal TextColor As Color, ByVal Text As String)
RichTextBox1.SelectionColor = TextColor
RichTextBox1.AppendText(Text)
Application.DoEvents()
End Sub
Private Sub RtfWriteLine(ByVal TextColor As Color, ByVal Text As String)
RtfWrite(TextColor, Text & ControlChars.CrLf)
End Sub
Private ReadOnly DEBUG_TEXT As Color = Color.Gray
Private ReadOnly NORMAL_TEXT As Color = Color.Black
Private ReadOnly ERROR_TEXT As Color = Color.Red
Private LaunchPath As String
Private BadInstall As Boolean = False
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim params() As String = Environment.GetCommandLineArgs
If params.GetUpperBound(0) <> 3 Then ' Wrong parameter count
MsgBox("This program was launched incorrectly. Please contact support.", MsgBoxStyle.OKOnly, "Error AutoUpdating Application")
Application.Exit()
Exit Sub ' Used because in release mode, the application will continue past this point.
End If
LaunchPath = params(3)
'Application.EnableVisualStyles()
Me.Show()
Application.DoEvents()
' Get our temp folder
Dim temppath As String = Path.GetTempFileName
If File.Exists(temppath) Then File.Delete(temppath)
Directory.CreateDirectory(temppath)
Dim sr As StreamReader
Try
RtfWrite(NORMAL_TEXT, "Retrieving update information...")
CopyFromInternet(params(1), temppath & "\updateinfo.txt")
RtfWriteLine(NORMAL_TEXT, "done.")
sr = New StreamReader(temppath & "\updateinfo.txt")
ProgressBar1.Value = 0
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = sr.BaseStream.Length + 2 ' In case the last line doesn't have a CRLF
While sr.Peek <> -1
Dim s As String = sr.ReadLine
ProgressBar1.Value += s.Length + 2
s = s.Trim
Dim process As Boolean = True
If s.StartsWith("'") Then process = False
If s.Length = 0 Then process = False
If s.IndexOf(",") = -1 Then process = False
If process Then
Dim fparams() As String = s.Split(",")
If fparams.GetUpperBound(0) < 1 Or fparams.GetUpperBound(0) > 2 Then
Throw New ArgumentException("The update file was not properly formed.")
End If
RtfWrite(NORMAL_TEXT, "Retrieving " & fparams(1) & "...")
If fparams.GetUpperBound(0) = 1 Then
CopyFromInternet(fparams(0), temppath & "\" & fparams(1))
Else
CopyFromInternet(fparams(0), temppath & "\" & fparams(1), CLng(fparams(2)))
End If
RtfWriteLine(NORMAL_TEXT, "done.")
End If
End While
ProgressBar1.Value = 0
Dim di As New DirectoryInfo(temppath)
ProgressBar1.Maximum = di.GetFiles.GetUpperBound(0) + 1
If Not Directory.Exists(params(2)) Then
Directory.CreateDirectory(params(2))
End If
RtfWrite(NORMAL_TEXT, "Installing update to " & params(2) & "...")
Try
For Each f As FileInfo In di.GetFiles
Dim CopyTo As String = params(2) & "\" & f.Name
If File.Exists(CopyTo) Then
File.SetAttributes(CopyTo, FileAttributes.Archive)
End If
f.CopyTo(CopyTo, True)
ProgressBar1.Value += 1
Application.DoEvents()
Next
RtfWriteLine(NORMAL_TEXT, "done.")
Catch ex As Exception
RtfWriteLine(ERROR_TEXT, "ERROR!")
RtfWriteLine(ERROR_TEXT, "DO NOT USE THIS PROGRAM UNTIL IT IS REINSTALLED!")
RtfWriteLine(ERROR_TEXT, "One or more of the files necessary to use the program did not install properly.")
RtfWriteLine(ERROR_TEXT, "Please contact support immediately.")
BadInstall = True
Button1.Text = "Close"
End Try
Catch ex As Exception
RtfWriteLine(NORMAL_TEXT, "")
RtfWriteLine(ERROR_TEXT, "ERROR: " & ex.Message)
RtfWriteLine(ERROR_TEXT, ex.StackTrace)
Finally
' Clean up temp files
If Not sr Is Nothing Then sr.Close()
If Directory.Exists(temppath) Then
Directory.Delete(temppath, True)
End If
Button1.Enabled = True
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not BadInstall Then
Dim objProcess As New System.Diagnostics.Process
objProcess.StartInfo.FileName = LaunchPath
objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
objProcess.Start()
End If
Application.Exit()
End Sub
End Class
Module InPoint
Sub Main()
Application.EnableVisualStyles()
Application.DoEvents()
Dim f As New frmMain
f.ShowDialog()
End Sub
End Module
|
|
|
|
|
In MDI applications, it is a common occurance for the user to open several different forms. However, even if one form is closed, the "offset" used to place the subsequent forms is remembered, so each form is gradually shifted down and to the right until it shifts partially or fully outside of the MDI client area.
I'd like to ensure that the MDI clients are always completely within the MDI client area upon first being opened.
I have come up with a hack involving the OnVisibleChanged event and two helper functions (listed below), but is there a more graceful way of doing this?
<code>
' In each form
Protected Overrides Sub OnVisibleChanged(ByVal e As System.EventArgs)
EnsureInsideMDIArea(Me)
End Sub
' Helper functions in a module
Public Function GetMDIClientRect(ByVal frm As Form) As Rectangle
Dim pr As Rectangle = Rectangle.Empty
For Each c As Control In frm.Controls
If TypeOf c Is MdiClient Then pr = c.ClientRectangle
Next
Return pr
End Function
Public Sub EnsureInsideMDIArea(ByVal frm As Form)
' Ignore if not an MDI client
If Not (frm.MdiParent Is Nothing) Then
' Get parent rect
Dim pr As Rectangle = GetMDIClientRect(frm.MdiParent)
Dim r, b As Integer
r = frm.Size.Width + frm.Left
b = frm.Size.Height + frm.Top
If r > pr.Right Or b > pr.Bottom Then
frm.Top = 0
frm.Left = 0
End If
End If
End Sub
</code>
|
|
|
|
|
Graceful is in the eye of the beholder. If what you wrote works for you, great!
Another method, though, would be to put this kind of code entirely in the MDI Parent and when you create the new child form, you can get it's size and make sure that it is inside the MDI Parent's client window without iterating through all the controls...
' In MDI Parent
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
Dim newChild As New frmChild
newChild.MdiParent = Me
' You must show the form before it will receive its Top and Left values. If you send
' the new form to EnsureChildInClientArea first, its Top and Left will always be 0,0.
newChild.Show()
EnsureChildInClientArea(newChild)
End Sub
Private Sub EnsureChildInClientArea(ByRef frmChild As Form)
Dim r, b As Integer
r = frmChild.Width + frmChild.Left
b = frmChild.Height + frmChild.Top
If r > Me.ClientSize.Width Or b > Me.ClientSize.Height Then
frmChild.Top = 0
frmChild.Left = 0
End If
End Sub
RageInTheMachine9532
|
|
|
|
|
That would almost work. We'd need an Application.DoEvents after the newChild.Show because the top/left are not set until the new form is actually visible (very frustrating trying to figure THAT out...), and we'd actually need to check the MdiClient size, not just the ClientSize, or else status bars and what not would not be taken into account.
The biggest problem I have with the current solution is that when the form is created, it shows at the original location for 1/60th of a second, and the flicker looks bad.
|
|
|
|
|
It was quick and dirty, but it worked. No intensive testing on it though...
It was just an idea! 
RageInTheMachine9532
|
|
|
|
|
When I build a program my computer give the message
The program '[336] How-To Multithreading.exe' has exited with code 0 (0x0)
Is it an error and if it is how can I manage it?
|
|
|
|
|
endriraco wrote:
The program '[336] How-To Multithreading.exe' has exited with code 0 (0x0)
Is it an error and if it is how can I manage it?
No, this is simply a message warning you that your program exited normally.
It can be useful, e.g, when you make a program that runs for a long time without no visible output.
Due to technical difficulties my previous signature, "I see dump people" will be off until further notice. Too many people were thinking I was talking about them... 
|
|
|
|
|
I have to build a simulation of chess table in VB.Net.Anybody knows anything about this kind of algorithms?Please tell me where can I read about that.
|
|
|
|
|
|
I have to build a simulation of chess table in VB.Net.Anybody knows anything about this kind of algorithms?Please tell me where can I read about that.
|
|
|
|
|
Am trying to create a setup program for a small database driven program and am hoping to reduce the size of the package by NOT including the msvbvm60.dll. It would enable me to email the setup package rather than multiple diskettes or CD. Is there a way this can be done?
kre
|
|
|
|
|
There might be a way to do it, but it's likely that your app won't run if you do. This dll is the Visual Basic Virtual Machine, introduced in VB6, and included in Windows 2000 SP4 and Windows 2003 Server. It was also included in Back Office Server and SQL Server, so if your target machines are running these products already, you might get away with it. You can check here[^] for other dlls that might be unnecessary, though.
Some people think of it as a six-pack; I consider it more of a support group.
|
|
|
|
|
I had thought to make use of the available ftp sites for this dll if it was not already on a target machine. But I can't seem to remove it without the Wizard disallowing it.
much thanks
k
k
|
|
|
|
|
The Package and Deployment Wizard's runtime (setup1.exe) is written in Visual Basic, and therefore requires msvbvm60.dll. You can't exclude it.
These days I would recommend filing the PDW in a bit-bucket, and using Visual Studio Installer[^] instead. Or anything else.
Stability. What an interesting concept. -- Chris Maunder
|
|
|
|
|
If msvbvm60.dll is already on a target system, setup1.exe would run wouldn't it? It sounds to me that VB will not allow it. I can exclude the "VB runtime and OLE automation" but it would be unmanageable to have to sort this bundle out and make sure they are all there beforehand. I thought it would be simpler to exclude just the one dll.
Ah well, thanks for your advice. I'll have to think of some other way.
k
k
|
|
|
|
|
How do you get a users default email client and open it from a VB .NET windows desktop application? Note this is not for a web application.
|
|
|
|
|
An easy way to do it is to Shell execute "mailto:someone@somewhere.com", just like you would do in a web page link...
RageInTheMachine9532
|
|
|
|
|
|
Hi,
Is there any programs or code that i can used to convert Word 2000 or Word 2002 automatically to word97?? I don't want to open every file and then save them in lower version.
Thanks!!
regards...Jeff
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
