Visual Basic

vijay2583 wrote:

I prepared an exe file for my application and installed in another system. When i executed my application in that system it given me error as it doesn't find database. I have given the Datasource as "Data Source=D:\Dotnet\SurveyApp\SurveyApp\SurveyData.mdb".

Can any one suggest me what i have to do to solve this

vijay2583 wrote:

I have another doubt i.e is it necessary that ms access should be installed the syystem where i installed my application?

Structure Ink<br />
Dim Weight As String<br />
Dim InkID As String<br />
Dim InkName As String<br />
End Structure

Structure Ink<br />
Dim Weight As String<br />
Dim InkID As Integer  (this is what i have changed )<br />
Dim InkName As String<br />
End Structure

kigali wrote:

hey i wanna compare two dates in VB.NET ,for these 2 dates i ve used the monthTimer Picker

<br />
'Declare vars<br />
   Private CurX As Double<br />
   Private CurY As Double<br />
<br />
 Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove<br />
        <br />
        If e.Button = MouseButtons.Left Then 'use mouse_left_button<br />
            Dim pt As Point<br />
            pt.X = Me.Left + (e.X - CurX)<br />
            pt.Y = Me.Top + (e.Y - CurY)<br />
            Me.Location = pt<br />
            Me.Refresh()<br />
        End If<br />
<br />
    End Sub<br />
<br />
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown<br />
        CurX = e.X<br />
        CurY = e.Y<br />
    End Sub<br />

    Private Sub SetPoint()<br />
        If hdMousedown = True Then hdMousedown = False Else hdMousedown = True<br />
        pt = Me.PointToClient(Control.MousePosition)<br />
    End Sub<br />
<br />
    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseDown<br />
        SetPoint()<br />
    End Sub<br />
<br />
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseUp<br />
        SetPoint()<br />
    End Sub<br />
<br />
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseMove<br />
        If hdMousedown = True Then<br />
            Me.Location = New Point(Control.MousePosition.X - pt.X, Control.MousePosition.Y - pt.Y)<br />
        End If<br />
    End Sub