Public Function skapawiew(ByVal namn As String)
Dim ska As String
Dim cn As New SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Valuta;Data Source=SMO;Packet Size=4096;Workstation ID=SMO")
cn.Open()

Dim createStr As String = "CREATE VIEW dbo." & namn & " AS " & _
" SELECT DISTINCT TOP 100 PERCENT ATF1mo_1.Ind, ATF1mo_1.Sigsort, dbo.B1TF1.FCKE, dbo.B1TF1.prcsine" & _
" FROM dbo.ATF1mo INNER JOIN " & _
" dbo.B1TF1 ON dbo.ATF1mo.Ind = dbo.B1TF1.Ind INNER JOIN " & _
" dbo.ATF1mo ATF1mo_1 ON dbo.ATF1mo.Datum1 = ATF1mo_1.Datum AND dbo.ATF1mo.Tid1 = ATF1mo_1.Tid " & _
" WHERE(dbo.B1TF1.FCKE > 1.0007)"



Dim createCMD As SqlCommand = New SqlCommand(createStr, cn)
createCMD.ExecuteNonQuery()
'MessageBox.Show(cn.State.ToString)

cn.Close()
End Function

felmeddelande

An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll

Additional information: System error.

Trycker jag på att fortsätta så skapas VIEW

Har du testat att köra det kommando som din kod genererar i QA och sett att alla inparametrar etc är rätt?

Har du inte fått ett felnummer, och har du testat söka på det?

/Emma