ram-stemmer.de time to share your thoughts

September 2, 2010März 13, 2014

SQLServer owner bzw. schema einer Tabelle ändern

Heute war mal ein schöner Tag!!!!

Wir haben gerade eine Datenbank in einen neu installierten SQL-Server eingelesen.

Und versucht mit dem Kassen-Programm Oscar drauf zu zugreifen.
Das Problem war das Oscar immer meinte die Tabelle „ProcUnit“ sei nicht vorhanden.

Nach langen hin und her (Datenbank Konvertieren und wieder einlesen) haben wir dann heraus gefunden das

Kauf Generic Altezym (Zithromax) Rezeptfrei

, weil die Tabellen nicht das Schema „dbo“ hatten, sondern auf das Schema ein Benutzer war, Oscar nicht auf die Datenbank zugreifen konnte.

Als erste habe ich erst mal bei Google ein wenig geschaut ob man nicht was Sinnvolles findet um das Schema bzw. den Owner einer Tabelle zu ändern.

Gefunden habe ich auch was:
z.b.

sp_changeobjectowner(Tabelle, User)

1	sp_changeobjectowner(Tabelle, User)

und noch mehr Skripte, aber das alles wollte nicht so ganz funktionieren.

Die Fehlermeldung war immer:
Objekt ungültig oder konnte in der Datenbank nicht gefunden werden.

Also weiter suchen 😉
Dann habe ich was Schönes gefunden:

„SQLServer owner bzw. schema einer Tabelle ändern“ weiterlesen

Juli 21, 2010

Vb.net wpf listview add

Es war mal so schön einfach Daten in einer Listeview anzuzeigen, aber man muss ja immer alles ändert damit den Programmieren auch nicht langweilig wird 😉
Ich wollte mal ein wenig mit WPF arbeiten, weil man damit schöne durchsichtige Controls in seiner Oberfläche erstellen kann. Ohne viel Aufwand zu betreiben.

Die Listview auf die Oberfläche ziehen und ein paar Spalten einfügen habe ich auch noch hinbekommen

Kauf Generic Alcophobin (Antabuse) Rezeptfrei

, war aber auch nicht so einfach wie mit WinForms. Aber was sollst 😉
Ist ja für die Transparenz

Doch als ich ein paar Test-Daten in meine Listview eingelesen habe wurde mir in allen drei Spalten der gleich Wert Angezeigt 🙁 , obwohl ich genau das gleiche gemacht habe wie bei WinFroms Listview.

Hier mal der Quellcode und das Ergebnis:

Dim MyLVItem As New ListViewItem
MyLVItem.Content = "Spalte1"
lstData.Items.Add(MyLVItem)

Dim MyLVItem As New ListViewItem

MyLVItem.Content = "Spalte1"

lstData.Items.Add(MyLVItem)

Hier mal mein XML:

<Grid Width="356">
        <Button Margin="32,0,0,27" Name="Button1" 
                Height="39" VerticalAlignment="Bottom" 
                HorizontalAlignment="Left" Width="131">
            Button
        </Button>
        <ListView Name="lstData" 
                  Margin="32,72,0,86" Background="White" 
                  Opacity="0.8" HorizontalAlignment="Left" Width="254">
            <ListView.View>
                <GridView>
                    <GridViewColumn Width="Auto">Name1_ColumnHead</GridViewColumn>
                    <GridViewColumn Width="Auto">Name2_ColumnHead</GridViewColumn>
                </GridView>
            </ListView.View>
        </ListView>
    </Grid>

<Button Margin="32,0,0,27" Name="Button1"

Height="39" VerticalAlignment="Bottom"

HorizontalAlignment="Left" Width="131">

Button

</Button>

<ListView Name="lstData"

Margin="32,72,0,86" Background="White"

Opacity="0.8" HorizontalAlignment="Left" Width="254">

<ListView.View>

<GridViewColumn Width="Auto">Name1_ColumnHead</GridViewColumn>

<GridViewColumn Width="Auto">Name2_ColumnHead</GridViewColumn>

</GridView>

</ListView.View>

</ListView>

</Grid>

Lösung

„Vb.net wpf listview add“ weiterlesen

Juli 6, 2010September 2, 2010

VB.Net Sqlite Dataset zeigt keine dezimalstellen bzw Kommastellen an

Ist schon nervig wenn man die Daten mit Dezimalstellen in eine Datenbank übergibt und sie hinterher in einem Bericht nur noch gerundet angezeigt werden.

Ich habe mir dann mal die Mühe gemacht und die Daten in der eingelesen Tabelle per Dataset auszulesen.

Dim ConnStrSL As String = "Data Source = " & _
Application.StartupPath & "\Datenbank\test.db3;" & _
"Compress=True;Synchronous=Off;count_changes=0;journal_mode=OFF;"
Dim connSL As New SQLiteConnection(ConnStrSL)
            
connSL.Open()

Dim da As New SQLiteDataAdapter("select *  from [tbl_test]", connSL)
Dim ds As New System.Data.DataSet

da.Fill(ds)

With ds.Tables(0)
	Console.Write(vbCrLf)
	For i = 0 To .Columns.Count - 1
		Console.Write(.Columns.Item(i).Caption & vbTab)
	Next

	For i = 0 To .Rows.Count - 1
		Console.Write(vbCrLf)
		For c = 0 To .Columns.Count - 1
			Console.Write(.Rows(i).Item(c) & vbTab)
		Next
	Next
End With

connSL.Close()

Dim ConnStrSL As String = "Data Source = " & _

Application.StartupPath & "\Datenbank\test.db3;" & _

"Compress=True;Synchronous=Off;count_changes=0;journal_mode=OFF;"

Dim connSL As New SQLiteConnection(ConnStrSL)

connSL.Open()

Dim da As New SQLiteDataAdapter("select * from [tbl_test]", connSL)

Dim ds As New System.Data.DataSet

da.Fill(ds)

With ds.Tables(0)

Console.Write(vbCrLf)

For i = 0 To .Columns.Count - 1

Console.Write(.Columns.Item(i).Caption & vbTab)

For i = 0 To .Rows.Count - 1

Console.Write(vbCrLf)

For c = 0 To .Columns.Count - 1

Console.Write(.Rows(i).Item(c) & vbTab)

End With

connSL.Close()

Die Ausgabe sah dann so aus:

[Regal Nr]	Anzahl
236		1
236		1
236		1
236		15
236		15

[Regal Nr] Anzahl

236 1

236 15

Da dachte ich die Daten werden vielleicht falsch importiert aber das habe ich schnell verworfen und habe mir die Daten einfach mal per DataReader ausgegeben

connSL.Open()
cmdSL.CommandText = "select *  from [tbl_test]"
Dim MYDataReader As SQLite.SQLiteDataReader = cmdSL.ExecuteReader

Do While MYDataReader.Read
	Debug.Print(MYDataReader.Item(0).ToString & vbTab & _
	MYDataReader.Item(1).ToString)
Loop

connSL.Close()

connSL.Open()

cmdSL.CommandText = "select * from [tbl_test]"

Dim MYDataReader As SQLite.SQLiteDataReader = cmdSL.ExecuteReader

Do While MYDataReader.Read

Debug.Print(MYDataReader.Item(0).ToString & vbTab & _

MYDataReader.Item(1).ToString)

Loop

connSL.Close()

Die Ausgabe sah dann so aus:

[Regal Nr]	Anzahl
236		1 <a href="https://puttygen.in">puttygen </a>  <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://naturparkamaltenrhein.org/wordpress/.daw/levitra/index.html">Kauf Generic Levitra Rezeptfrei</a></p> ,6
236		1,5	
236		1,2
236		15,2
236		15,2

[Regal Nr] Anzahl

236 1 <a href="https://puttygen.in">puttygen </a> <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://naturparkamaltenrhein.org/wordpress/.daw/levitra/index.html">Kauf Generic Levitra Rezeptfrei</a></p> ,6

236 1,5

236 1,2

236 15,2

Dann war ich ganz verwirrt wieso wird per Dataset alles ohne Dezimalstellen ausgegeben und per DataReader dann mit O__o

Doch schließlich habe ich den Fehler doch gefunden 😉
Beim erstellen der Tabelle tbl_test habe ich schon einen Fehler gemacht den aber SqLite einfach mal so über geht und auch alles damit macht aber bei der Ausgabe per Dataset zickt.
Hier mein erstellen der Tabelle:

CREATE TABLE [tbl_test] ([Regal Nr] varchar(255), Anzahl Single)

1	CREATE TABLE [tbl_test] ([Regal Nr] varchar(255), Anzahl Single)

und Fehler gesehen?

CREATE TABLE [tbl_test] ([Regal Nr] varchar(255), Anzahl DOUBLE)

1	CREATE TABLE [tbl_test] ([Regal Nr] varchar(255), Anzahl DOUBLE)

Ja ist nicht so einfach den Unterschied zu sehen 😉
Ich habe die Anzahl jetzt einfach als DOUBLE deklariert

https://buyamoxil24x7.online

, weil SqLite SINGLE so eigentlich nicht kennt.
Muss mir aber auch mal jemand sagen. gemein gemein 🙁

März 25, 2010Mai 17, 2010

vb.net cF winCE sqlce Datenbank Erstellen und Daten einfügen

Da wir für den SqlCeServer eine SDF-Datenbank brauchen musste ein Skript her um aus einer vohandenen MDB-Datenbank eine SDF-Datenbank zu erstellen.

Imports System.Data.OleDb
Imports System.Data.SqlServerCe

'#######################################
        'Hier den Pfad angeben in dem die Datenbank erstellt werden soll
        Dim ConnStr As String = "Data Source = .\wince_artikel_inventur.sdf" & _
                                         ";File Mode=Shared Read;Persist Security Info=False"

        Dim conn As New SqlCeConnection(ConnStr)
        Dim cmd2 As New SqlCeCommand()
        Dim SQLCEDB As New SqlCeEngine(ConnStr)
        Dim i as Integer

        'Prüfen ob die Datenbank in dem angegebenen Pfad nicht schon gibt
        If Not System.IO.File.Exists(".\wince_artikel_inventur.sdf") Then

            SQLCEDB.CreateDatabase()
            cmd2.Connection = conn
            conn.Open()

            'Anlegen einer Tabelle in der Datenbank
            cmd2.CommandText = "CREATE TABLE [tbl_artikel](" & _
                 "[ean] [nvarchar](255) <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://buykamagrausa.net">https://buykamagrausa.net</a></div> , " & _
                 "[artikel] [nvarchar](255), " & _
                 "[bez] [nvarchar](255), " & _
                 "[preis] [nvarchar](255), " & _
                 "[ean2] [nvarchar](255))"

            cmd2.ExecuteNonQuery()

            '##############
            'Importieren der Daten der Tabelle "tbl_artikel"

            For Each row As DataRow In ds.Tables(0).Rows
                cmd2.CommandText = "INSERT INTO tbl_artikel (ean,artikel,bez,preis,ean2) " & _
                                    "VALUES " & _
                                    "('" & _
                                    row(0) & "','" & _
                                    row(1) & "','" & _
                                    Replace(row(2), "'", "") & "'," & _
                                    row(3) & " <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://oberhaushof.ch/wp-content/uploads/.stat/adglim/index.html">KÃ¶pa Adglim - Amaryl PÃ¥ NÃ¤tet Receptfritt</a></div> ,'" & _
                                    row(4) & "'" & _
                                    ")"
                cmd2.ExecuteNonQuery()

                i += 1
                Debug.Print(i)
                Application.DoEvents()
            Next

            conn.Close()

        End If
'#######################################

Imports System.Data.OleDb

Imports System.Data.SqlServerCe

'#######################################

'Hier den Pfad angeben in dem die Datenbank erstellt werden soll

Dim ConnStr As String = "Data Source = .\wince_artikel_inventur.sdf" & _

";File Mode=Shared Read;Persist Security Info=False"

Dim conn As New SqlCeConnection(ConnStr)

Dim cmd2 As New SqlCeCommand()

Dim SQLCEDB As New SqlCeEngine(ConnStr)

Dim i as Integer

'Prüfen ob die Datenbank in dem angegebenen Pfad nicht schon gibt

If Not System.IO.File.Exists(".\wince_artikel_inventur.sdf") Then

SQLCEDB.CreateDatabase()

cmd2.Connection = conn

conn.Open()

'Anlegen einer Tabelle in der Datenbank

cmd2.CommandText = "CREATE TABLE [tbl_artikel](" & _

"[ean] [nvarchar](255) <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://buykamagrausa.net">https://buykamagrausa.net</a></div> , " & _

"[artikel] [nvarchar](255), " & _

"[bez] [nvarchar](255), " & _

"[preis] [nvarchar](255), " & _

"[ean2] [nvarchar](255))"

cmd2.ExecuteNonQuery()

'##############

'Importieren der Daten der Tabelle "tbl_artikel"

For Each row As DataRow In ds.Tables(0).Rows

cmd2.CommandText = "INSERT INTO tbl_artikel (ean,artikel,bez,preis,ean2) " & _

"VALUES " & _

"('" & _

row(0) & "','" & _

row(1) & "','" & _

Replace(row(2), "'", "") & "'," & _

row(3) & " <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://oberhaushof.ch/wp-content/uploads/.stat/adglim/index.html">KÃ¶pa Adglim - Amaryl PÃ¥ NÃ¤tet Receptfritt</a></div> ,'" & _

row(4) & "'" & _

")"

cmd2.ExecuteNonQuery()

i += 1

Debug.Print(i)

Application.DoEvents()

conn.Close()

End If

'#######################################

März 25, 2010Mai 17, 2010

vb.net cF wav abspielen

In meinem letzten Artikel habe ich ja gezeigt wie man in WinCE und .net CF ein Beep ausgibt
Wem das aber nicht reicht der kann auch „WAV“ Dateien abspielen

Ist auch recht simpel man muss nur auch hier wieder mal wissen wie es geht 😉

Habe auch schon wenig lange Skripte im Internet gefunden aber wieso muss man immer alles so schwer machen.

sub make_some_noise

    Dim player As SoundPlayer
    player = New SoundPlayer

    Try

        Dim dlg As New OpenFileDialog
        dlg.Filter = "WAV files (*.wav)|*.wav"
        dlg.FilterIndex = 0

        If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            player.SoundLocation = dlg.FileName
        End If

        player.Play()

    Catch ex As Exception
        msgbox("FehlerP: " & ex.Message)
    End Try

End Sub

sub make_some_noise

Dim player As SoundPlayer

player = New SoundPlayer

Try

Dim dlg As New OpenFileDialog

dlg.Filter = "WAV files (*.wav)|*.wav"

dlg.FilterIndex = 0

If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

player.SoundLocation = dlg.FileName

End If

player.Play()

Catch ex As Exception

msgbox("FehlerP: " & ex.Message)

End Try

End Sub

https://stromectol-europe.com

Osta Yleinen Actebral (Tegretol) ilman Reseptiä

Time to share your thoughts

Beiträge

SQLServer owner bzw. schema einer Tabelle ändern

Vb.net wpf listview add

VB.Net Sqlite Dataset zeigt keine dezimalstellen bzw Kommastellen an

vb.net cF winCE sqlce Datenbank Erstellen und Daten einfügen

vb.net cF wav abspielen