Forums Neueste Beiträge
 

VB 2008 Ado Zugriffsprobleme

31/10/2008 - 19:15 von Dieter A Franken | Report spam
Hallo,

es wird für mich zeit das ich den Schwenk von VB6 nach .Net schaffe.

Da ich viel mit Datenbanken zu tun habe, habe ich mir mal ein ganz einfaches
Ado Programm zusammengestellt.
Das Problem: wenn ich den Code in der IDE starte funktioniert es. In der Exe
jedoch kommt der Fehler:

Informationen über das Aufrufen von JIT-Debuggen
anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.

************** Ausnahmetext **************
System.Security.SecurityException: Fehler bei der Anforderung des
Berechtigungstyps System.Data.SqlClient.SqlClientPermission, System.Data,
Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089.
bei System.Security.CodeAccessSecurityEngine.Check(Object demand,
StackCrawlMark& stackMark, Boolean isPermSet)
bei System.Security.PermissionSet.Demand()
bei System.Data.Common.DbConnectionOptions.DemandPermission()
bei System.Data.SqlClient.SqlConnection.PermissionDemand()
bei
System.Data.SqlClient.SqlConnectionFactory.PermissionDemand(DbConnection
outerConnection)
bei
System.Data.ProviderBase.DbConnectionClosed.OpenConnection(DbConnection
outerConnection, DbConnectionFactory connectionFactory)
bei System.Data.SqlClient.SqlConnection.Open()
bei WindowsApplication1.Form1.retrieveData(String myQuery)
bei WindowsApplication1.Form1.Button1_Click(Object sender, EventArgs e)
bei System.Windows.Forms.Control.OnClick(EventArgs e)
bei System.Windows.Forms.Button.OnClick(EventArgs e)
bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
bei System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons
button, Int32 clicks)
bei System.Windows.Forms.Control.WndProc(Message& m)
bei System.Windows.Forms.ButtonBase.WndProc(Message& m)
bei System.Windows.Forms.Button.WndProc(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message&
m)
bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg,
IntPtr wparam, IntPtr lparam)
Die Aktion, bei der ein Fehler aufgetreten ist:
Demand
Der Typ der ersten Berechtigung, bei der ein Fehler aufgetreten ist:
System.Data.SqlClient.SqlClientPermission
Die Zone der Assembly, bei der ein Fehler aufgetreten ist:
Intranet

+++++++++++++++++++++++++++++++++++++
Hier noch der Quellcode:

Imports System

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Data

Imports System.Drawing

Imports System.Text

Imports System.Windows.Forms

Imports System.Diagnostics

Imports System.Data.SqlClient

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim myReader As SqlDataReader

Dim myTable As DataTable = New DataTable()

myReader = retrieveData("SELECT * FROM Kunden")

myTable.Load(myReader)

'' set the datasource

DataGridView1.DataSource = myTable

'' close the datareader

myReader.Close()

myReader.Dispose()

End Sub

Public Function retrieveData(ByVal myQuery As String) As SqlDataReader

'' create the SqlDataReader

Dim myReader As SqlDataReader

'' create the SqlCommand

Dim command As SqlCommand = New SqlCommand()

'' set the command text

command.CommandText = myQuery

'' set the connection

command.Connection = New System.Data.SqlClient.SqlConnection

'' open the connection

command.Connection.ConnectionString = "Data Source=SSSSSS;" & _

"Initial Catalog=AdressoSQL;" & _

"Persist Security Info=True;" & _

"Password=xxxxxx;" & _

"User ID=sa"

command.Connection.Open()

'' set the data reader

myReader =
command.ExecuteReader(System.Data.CommandBehavior.CloseConnection)



Return myReader

End Function

End Class



++++++++++++++++++++++++++++++++++

Hat jemand eine Idee was das sein kann?


Gruss Dieter
 

Lesen sie die antworten

#1 Thorsten Albers
31/10/2008 - 22:22 | Warnen spam
Dieter A Franken schrieb im Beitrag
<gefi02$3gk$00$...
es wird für mich zeit das ich den Schwenk von VB6 nach .Net schaffe.



Dann solltest Du aich gleich noch den Schwenk in die richtige Newsgroup
schaffen, sprich eine, die sich, anders als diese Newsgroup hier, mit
VB.NET beschàftigt.

Versuche es beispielsweise in der Newsgroup
microsoft.public.de.german.entwickler.dotnet.vb
bzw. in der entsprechenden Datenbank-Newsgroup.


Thorsten Albers albers(a)uni-freiburg.de

Ähnliche fragen