|
So what's the error message? Your statement of "Which parameter is exspected instead of:"master..sysdatabases" doesn't make sense. What do you want this to do?
|
|
|
|
|
Hi Dave,
please don't ask about the error message. It is sooo long.(i think that most sql-messages are quite long) 
So far the Try/Catch bloc tells me it's a "SqlException"
My idea was to check if a certain .mdf-file (in this case: MyDatabase.mdf) already exists.
If so, it should be deleted (dpopped) to allow the creation of that file.
(Of course that makes no sense, it's only for training purpose)
I want to learn how to dynamically create a sql-DB with a few tables and its stored procedures.
And of course i can not create a new DB(the same one) each time i lounch my application.
But in the meantime i think it should be possible to solve this problem with "pure" VB instead of a SQL-command.
I will try if i can not solve it with the File.Exists method of the System.IO-namespace. Should work.
I hope you have undestood my intentions now. Of course if you have a suggestion or a better idea, i'm interested.
Anyhow, in the case "File.Exists" would not work, i will post a new question in this forum.
Thanks again for your answer,
Lucchingolo
|
|
|
|
|
Well, the code you found only works with actual SQL Servers. It does not work with Access at all. Access has a completely different method for creating a new database.
|
|
|
|
|
i'm sorry but either you badly misunderstood my question or my english es even worse than i thought.
I AM USING SQL 2008 EXPRESS EDITION, nevertheless the code is not working.
The best i could get until now is an execution without an error. But in the end, i can't find any "new" (created) .mdf-file on my harddisk??? 
Here comes the code.
Imports System.Data.SqlClient
Public Class Form1
Private MyConnection As String
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
MyConnection = "Integrated Security=SSPI;" + "Initial Catalog=;" + "Data Source=.\SQLEXPRESS;" 'mydb
Dim mySQL As String = "IF EXISTS (SELECT * FROM sys.databases WHERE name = 'MyDatabase')" & _
"DROP DATABASE [MyDatabase];CREATE DATABASE [MyDatabase]"
Try
Dim conn As New SqlConnection(MyConnection)
Dim myCmd As New SqlCommand(mySQL, conn)
' Open the connection, execute the command, and close the connection. It is more efficient to
' ExecuteNonQuery when data is not being returned.
If conn.State <> ConnectionState.Open Then conn.Open()
myCmd.ExecuteNonQuery()
conn.Close()
' Data has been successfully submitted
MessageBox.Show("New Database has been ' successfully created !", _
" Database Creation Completed", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch sqlExc As SqlException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
'If mstrConn = MyConnection Then
' ' Couldn't connect to SQL Server. Now try MSDE.
' mstrConn = MY_MSDE_CONNECTION_STRING
' 'Connecting to MSDE
'Else
' ' Unable to connect to SQL Server or MSDE
' MessageBox.Show("SQL Or MSDE Connection Failed", _
' "Connection Failed!", MessageBoxButtons.OK, MessageBoxIcon.Error)
' End
'End If
End Try
End Sub
End Class
Any idea of what's wrong here.
Thank you in anticipation,
Lucchingolo
|
|
|
|
|
Hello All!~
I wanna know...
How to add a new contect menu in CD drive's contect menu?
|
|
|
|
|
Hello All!~
I wanna know...
How to add a new popup menu in CD drive's popup menu?
|
|
|
|
|
|
Hi all
I am trying to save excel through this code.
Dim sPath As String
Dim stPath As String
Dim strPath As String
Dim ws As Worksheet
Set ws = ActiveSheet
sPath = ThisWorkbook.Path & "\"
stPath = Replace(ws.Range("A1"), "-", "")
strPath = sPath & Replace(stPath, ":", "-") & ".xls"
Call ThisWorkbook.SaveCopyAs(strPath)
But i am getting run time error.
Run-time '1004'
Method 'ThisWorkbook' of object _Global failed
Please help me.
|
|
|
|
|
I can't without knowing what the variables ThisWorkbook and ActiveSheet are.
|
|
|
|
|
Call is a deprecated code word and should never be used. It is only there to support migration of code from non-object orientated VB6 applications. Get rid of it and you code will probably work.
|
|
|
|
|
I didn't realize Excel was so badly endangered, but if you think this code will somehow manage to save it, then by all means do what you can.
EDIT: Sorry, couldn't resist.
|
|
|
|
|
DAMN, I would have answered exactly the same, but you beat me to it...
|
|
|
|
|
Hi,
Does anyone have a link showing how to insert images into a powerpoint presentation using vb.net?
Thanks,
|
|
|
|
|
|
|
Hi everyone,
Does anyone know how to save an image from the clipboard as a picture (jpef, png, etc). using vb.net code?
Thanks!
|
|
|
|
|
b-rad311 wrote: Does anyone know how to save an image from the clipboard as a picture
That is almost perfect VB code, use the Clipboard class and the Image class, the GetImage() method and the Save() method. What could possibly be the problem?
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read formatted code with indentation, so please use PRE tags for code snippets.
I'm not participating in frackin' Q&A, so if you want my opinion, ask away in a real forum (or on my profile page).
|
|
|
|
|
Hi Luc,
Thanks for replying. I'm new to vb so I was looking for specific examples of how to do this. However, I just found a specific example online, so I've got it now.
Thanks
|
|
|
|
|
b-rad311 wrote: I'm new to vb
I hope you mean VB.NET (VB6 and earlier are stinkin' dead and should remain buried).
You should buy and study a book when you're new to a language; it is the fastest way to make real progress, and the only way to learn it properly. And then read up again on the classes you intend to use. We both have named them already.
If all that is not going to happen, the least you should do is search CodeProject for some articles that deal with your topic; there are some 20K articles here, lots of them are pretty good.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read formatted code with indentation, so please use PRE tags for code snippets.
I'm not participating in frackin' Q&A, so if you want my opinion, ask away in a real forum (or on my profile page).
|
|
|
|
|
Yes, vb.net is what I meant.
|
|
|
|
|
Hi, dear all,
I know this is wrong place. but I really don't where I should post the question.
I am working on a VB6 project created years ago which use Wise InstallMaster to create installation file. I totally have no idea about it.
If you know anything about it, please tell me. If you can give me some tutorial link, that's best.
|
|
|
|
|
You haven't asked an answerable question. You want someone to tell you how to use a dead piece of software? Symantec now owns the Wise suite of products. You're best bet is to peruse their site and see if you can find the documentation on it.
|
|
|
|
|
Dave,
Thanks for your instruction.
|
|
|
|
|
Hi All
How can i open excel file with password option?I have a excel file "Test.xls" which is password protected.I know password,i want to open "Test.xls" through code.Please help me
|
|
|
|
|
'fileName = full location of your excel document
Public Sub OpenExcel(byval fileName as String)
Dim ExcelInstance As New Microsoft.Office.Interop.Excel.Application()
Dim File As New System.IO.FileInfo(fileName)
ExcelInstance.Workbooks.Open(File.FullName, , , , "password", , , , , , , , , , )
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
