|
web
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
VB .Net (VisualStudio 2005) and the SQL Server SMO Object questioncorrect one. Several months ago, I took the official Microsoft 2733B course to upgrade my skills from SQL 2000 to SQL 2005 and one of the neat things the course did was show us how to create an SMO object which backs up a database at the click of a button. Now that we're finally moving to SQL Server 2005 at work, I went to whip up this little program following the instructions at work, but I'm having a problem. When I create this project from scratch, it gives me the error: Name "DatabaseList" is not declared. This is really strange as when I pull up the sample solution from the CD we got, everything is almost exact the same, including the IMPORTS. Can someone help me figure out what I'm missing that VS thinks "DatabaseList" is a variable instead of a real object? Form is simple, 1 textbox and 1 button. Code is listed below: '##### Add imports statements here ##### Imports Microsoft.SqlServer.Management.Smo Imports Microsoft.SqlServer.Management.Common Public Class DBBackupForm '##### Add variable declarations here†Dim myServer As New Server() Dim conn As ServerConnection Private Sub BackupDatabaseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupDatabaseButton.Click ' If no database is selected, exit this event handler If DatabaseList.SelectedIndex = -1 Then Exit Sub '##### Add backup code here ##### Dim dbName As String = DatabaseList.SelectedItem.ToString Dim MyBackup As New Backup Dim ProcessDate As Date ProcessDate = Now() Dim BackupTime As String BackupTime = ProcessDate.ToString("YYYY") & ProcessDate.ToString("MM") _ & ProcessDate.ToString("DD") & ProcessDate.ToString("HH") _ & ProcessDate.ToString("MM") MyBackup.Action = BackupActionType.Database MyBackup.BackupSetName = dbName & "Backup" MyBackup.Database = dbName Dim MyDevice As BackupDeviceItem = New BackupDeviceItem( _ "\\MyServerName\SQL_BAK\" & dbName & BackupTime & ".BAK", DeviceType.File) MyBackup.Devices.Add(MyDevice) MyBackup.SqlBackup(myServer) MessageBox.Show(dbName & " backed up in the SQL_BAK folder with the following FileName: " _ & CStr("\\MyServerName\SQL_BAK\" & dbName & BackupTime & ".BAK")) End Sub Private Sub DatabaseListTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatabaseListTextBox.TextChanged '##### Add connection code here ##### conn = myServer.ConnectionContext conn.ServerInstance = "localhost" conn.Connect() '##### Add list database code here ##### Dim db As Database For Each db In myServer.Databases DatabaseList.Items.Add(db.Name) Next End Sub End Class ------------------------------ Thanks for any help anyone can give me. Catadmin -- MCDBA, MCSA Random Thoughts: If a person is Microsoft Certified, does that mean that Microsoft pays the bills for the funny white jackets that tie in the back??? @=) Hello Catadmin,
That's what ya get for copy n pastin stuff without understanding it. First, you say there is only one textbox and one button on your form. Fine.. then what is DatabaseList?? I see you trying to mess with DatabaseList.SelectedIndex.. Neither the textbox nor the button have this property.. a combobox does (as do other list-based controls). Next, I see a TextChanged event handler for something called DatabaseListTextBox.. which I assume is the afore mentioned textbox. My guess is you make your UI with a button and a textbox.. did a lil copy paste action because yer too damn lazy to be bothered doing something right.. got the name of the control wrong.. and in fact got the control type wrong.. and now yer pissin and moanin to us, wasting our time. Quit bein a lazy bastard. -Boo Show quoteHide quote > I was told to post this in one of the dotnet groups. I hope this is > the correct one. > > Several months ago, I took the official Microsoft 2733B course to > upgrade my skills from SQL 2000 to SQL 2005 and one of the neat things > the course did was show us how to create an SMO object which backs up > a database at the click of a button. Now that we're finally moving to > SQL Server 2005 at work, I went to whip up this little program > following the instructions at work, but I'm having a problem. > > When I create this project from scratch, it gives me the error: Name > "DatabaseList" is not declared. This is really strange as when I pull > up the sample solution from the CD we got, everything is almost exact > the same, including the IMPORTS. Can someone help me figure out what > I'm missing that VS thinks "DatabaseList" is a variable instead of a > real object? Form is simple, 1 textbox and 1 button. Code is listed > below: > > '##### Add imports statements here ##### > Imports Microsoft.SqlServer.Management.Smo > Imports Microsoft.SqlServer.Management.Common > Public Class DBBackupForm > > '##### Add variable declarations here†> Dim myServer As New Server() > Dim conn As ServerConnection > Private Sub BackupDatabaseButton_Click(ByVal sender As > System.Object, > ByVal e As System.EventArgs) Handles BackupDatabaseButton.Click > ' If no database is selected, exit this event handler > If DatabaseList.SelectedIndex = -1 Then Exit Sub > '##### Add backup code here ##### > Dim dbName As String = DatabaseList.SelectedItem.ToString > Dim MyBackup As New Backup > Dim ProcessDate As Date > ProcessDate = Now() > Dim BackupTime As String > BackupTime = ProcessDate.ToString("YYYY") & > ProcessDate.ToString("MM") _ > & ProcessDate.ToString("DD") & ProcessDate.ToString("HH") _ > & ProcessDate.ToString("MM") > MyBackup.Action = BackupActionType.Database > MyBackup.BackupSetName = dbName & "Backup" > MyBackup.Database = dbName > Dim MyDevice As BackupDeviceItem = New BackupDeviceItem( _ > "\\MyServerName\SQL_BAK\" & dbName & BackupTime & ".BAK", > DeviceType.File) > MyBackup.Devices.Add(MyDevice) > > MyBackup.SqlBackup(myServer) > > MessageBox.Show(dbName & " backed up in the SQL_BAK folder > with the > following FileName: " _ > & CStr("\\MyServerName\SQL_BAK\" & dbName & BackupTime & > ".BAK")) > End Sub > Private Sub DatabaseListTextBox_TextChanged(ByVal sender As > System.Object, ByVal e As System.EventArgs) Handles > DatabaseListTextBox.TextChanged > > '##### Add connection code here ##### > conn = myServer.ConnectionContext > conn.ServerInstance = "localhost" > conn.Connect() > '##### Add list database code here ##### > Dim db As Database > For Each db In myServer.Databases > DatabaseList.Items.Add(db.Name) > Next > End Sub > End Class > ------------------------------ > > Thanks for any help anyone can give me. > > Catadmin >
Unicode conversion
Net.WebRequest - Close Connection try Catch for empty textfield Please explain the difference between close, dispose, = nothing on sqlClient. Returning an array from a function? Passing System.Enum as a parameter type... Help! VB Express & Excel automation ? First Report in VB2005 - Print Preview moving controls with in an image Fade out problem on a form with irregular backgroud image |
|||||||||||||||||||||||