Click here to Skip to main content
15,913,027 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: VB password help Pin
arranmc1823-Nov-07 8:18
arranmc1823-Nov-07 8:18 
GeneralRe: VB password help Pin
AliAmjad3-Nov-07 8:52
AliAmjad3-Nov-07 8:52 
AnswerRe: VB password help Pin
Paul Conrad3-Nov-07 5:28
professionalPaul Conrad3-Nov-07 5:28 
AnswerRe: VB password help Pin
Dan Suthar4-Nov-07 5:29
professionalDan Suthar4-Nov-07 5:29 
QuestionPropertyBag Pin
danasegaranea3-Nov-07 1:53
danasegaranea3-Nov-07 1:53 
QuestionManintain session Pin
~V~3-Nov-07 1:37
~V~3-Nov-07 1:37 
AnswerRe: Manintain session Pin
pmarfleet3-Nov-07 6:46
pmarfleet3-Nov-07 6:46 
Questiongetting sql server-2005 backups from vb.net 2005 Pin
kishore lkumar2-Nov-07 20:35
kishore lkumar2-Nov-07 20:35 
hello,
my name is sai kishore.Im working on a application which will ask the user for the backup,if he wish to take a backup,it must allow.im doing this application in vb.net 2005.
im unable to get the code for this.please help me,
my code is as follows

Private Sub cmdYes_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdYes.Click
'Dim ProcessId As Integer
Dim ProcessId As Object
Dim hProcess As Integer
Dim ExitCode As Integer
Dim LogFileName As String
Dim Process_handle As Integer
Dim path As String

'Dim vntretval As Variant
On Error GoTo localerror
'Check for User Name
'To check Export File Name.
If txtflname.Text = "" Then
MsgBox("Enter Export File Name.", MsgBoxStyle.Information)
Exit Sub
End If
'UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
'System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
System.Windows.Forms.Cursor.Current = Cursors.Default
path = dirExp.Path
'checks if any file name is entered
'calls the procedure Conn_user;it returns true if connection
'is established
Dim strPwd As String = ""
Dim Usname As String = ""
Dim Uspass As String = ""
Dim strcopy As String = ""
SystemParameters()
If OptData.Checked = True Then
Usname = strsuperuser
Uspass = strSupreUserPassword
ElseIf OptPhoto.Checked = True Then
Usname = strPhotouser
Uspass = strPhotoUserPwd
End If

'ProcessId = Shell(resbckdls.Fields("BACKUP_NAME").Value & " " & Usname & "/" & Uspass & "@" & strUserConnect & " File = '" & lblPath.Text & "' log='" & Mid(lblPath.Text, 1, InStr(1, lblPath.Text, ".") - 1) & ".log'", AppWinStyle.Hide)
ProcessId = Shell("Exp" & " " & Usname & "/" & Uspass & "@" & strUserConnect & " File = '" & lblPath.Text & "' log='" & Mid(lblPath.Text, 1, InStr(1, lblPath.Text, ".") - 1) & ".log'", AppWinStyle.Hide)



hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId)
Timer1.Enabled = True
Timer1.Interval = 100
Picture1.Visible = True
'anmExport.Open App.Path & "\FILECOPY.AVI"
'anmExport.Play
'anmExport.Visible = True
Do
Call GetExitCodeProcess(hProcess, ExitCode)
System.Windows.Forms.Application.DoEvents()
Loop While (ExitCode = STILL_ACTIVE)
Call CloseHandle(hProcess)
'UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
'System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
System.Windows.Forms.Cursor.Current = Cursors.Default
'anmExport.Stop
'anmExport.Visible = False

Dim blnExportTerminatedsuccessfully As Boolean
Dim blnViewsExported As Boolean
Dim blnStoredProceduresExported As Boolean
Dim blnFileSize As Boolean

LogFileName = Mid(lblPath.Text, 1, InStr(1, lblPath.Text, ".") - 1) & ".log"

FileOpen(1, Mid(lblPath.Text, 1, InStr(1, lblPath.Text, ".") - 1) & ".log", OpenMode.Input)


Do While Not EOF(1)
Input(1, strline)

'UPGRADE_WARNING: Couldn't resolve default property of object strline. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
If strline = "Export terminated successfully without warnings." Then
blnExportTerminatedsuccessfully = True
'UPGRADE_WARNING: Couldn't resolve default property of object strline. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
ElseIf strline = ". exporting views" Then
blnViewsExported = True
'UPGRADE_WARNING: Couldn't resolve default property of object strline. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
ElseIf strline = ". exporting stored procedures" Then
blnStoredProceduresExported = True
End If
Loop
FileClose(1)

k.v.s.s.kishore kumar

QuestionLooping through a array of strcutres Pin
Benny_Lava2-Nov-07 19:37
Benny_Lava2-Nov-07 19:37 
AnswerRe: Looping through a array of strcutres Pin
Christian Graus2-Nov-07 21:02
protectorChristian Graus2-Nov-07 21:02 
AnswerRe: Looping through a array of strcutres Pin
MohammadAmiry3-Nov-07 0:15
MohammadAmiry3-Nov-07 0:15 
QuestionIssue with adding data to grid Pin
nishkarsh_k2-Nov-07 16:42
nishkarsh_k2-Nov-07 16:42 
AnswerRe: Issue with adding data to grid Pin
Andy_L_J4-Nov-07 17:06
Andy_L_J4-Nov-07 17:06 
Questionplease help me to find bug for a lotto project Pin
anpm2-Nov-07 14:07
anpm2-Nov-07 14:07 
AnswerRe: please help me to find bug for a lotto project [modified] Pin
Luc Pattyn2-Nov-07 14:18
sitebuilderLuc Pattyn2-Nov-07 14:18 
GeneralRe: please help me to find bug for a lotto project Pin
anpm2-Nov-07 18:38
anpm2-Nov-07 18:38 
QuestionLISTBox Pin
roger68972-Nov-07 10:47
roger68972-Nov-07 10:47 
AnswerRe: LISTBox Pin
Christian Graus2-Nov-07 21:03
protectorChristian Graus2-Nov-07 21:03 
GeneralRe: LISTBox Pin
roger68972-Nov-07 22:20
roger68972-Nov-07 22:20 
GeneralRe: LISTBox Pin
Christian Graus2-Nov-07 22:52
protectorChristian Graus2-Nov-07 22:52 
QuestionWant to inherit one property to another Pin
Brad^2-Nov-07 10:07
Brad^2-Nov-07 10:07 
AnswerRe: Want to inherit one property to another Pin
BrokenS2-Nov-07 11:18
BrokenS2-Nov-07 11:18 
GeneralRe: Want to inherit one property to another Pin
Brad^2-Nov-07 11:21
Brad^2-Nov-07 11:21 
QuestionWeb Service in VB.Net created XML doc Pin
kendo172-Nov-07 9:58
kendo172-Nov-07 9:58 
QuestionHelp with an CR report... Pin
CCG32-Nov-07 9:48
CCG32-Nov-07 9:48 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.