Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

prog voor invoer/bewerking/bekijken van gegevens

meerweten - 11/01/2010 20:40 (laatste wijziging 11/01/2010 20:57)
Lid		hey allen ik zou graag een programma maken waar ik simpel gegevens kan invoeren en opvragen (voor meerdere personen/bedrijven) wrm zelf maken en niet acces? ik zou graag ook nog een prog daarin maken waarme ik een soort van data bank heb van gegevens die ik simpel kan bewerken (via een formulier zoals in acces) simpele opslag en simpele invoer (mss met een zoekfuncite?) ook zou ik via een apart optie venster willen de achtergrondkleur door de gebruiker laten aanpassen (via scrolbars) ben vergeten hoe dit moet hoe kan ik dit zo simpel mogenlijk realiseren?

13 antwoorden

Gesponsorde links

cloudstrife - 11/01/2010 21:23
PHP beginner		Hoe ver gaat je kennis van programmatie? Je kan dit makkelijk bereiken via bv een sql server compact edition en wat .net form's.... Als je niet echt veel van programmeren af weet vrees ik dat je toch terug naar access of excel zal moeten.
Bedankt door: meerweten

meerweten - 11/01/2010 21:35

Lid

ik durf niet te zeggen dat ik pro ben in het programeren (aangezien ik nog de cursus aan het volgen ben:p) maar ben ook geen beginner meer

tot nu toe heb ik al het volgende gemaakt:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Public Class Welcome

    Private Sub btnquit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnquit.Click
        Me.Close()
    End Sub

    Private Sub btnBewerk_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBewerk.Enter
        frmBewerk.Show()
    End Sub

    Private Sub msiOption_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles msiOption.Click
        frmOptions.Show()
    End Sub

    Private Sub btnOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        frmOpen.Show()
    End Sub

    Private Sub btnInvoer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInvoer.Click
        frmInvoer.Show()
    End Sub
End Class

            
Public Class Welcome
 
    Private Sub btnquit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnquit.Click
        Me.Close()
    End Sub
 
    Private Sub btnBewerk_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBewerk.Enter
        frmBewerk.Show()
    End Sub
 
    Private Sub msiOption_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles msiOption.Click
        frmOptions.Show()
    End Sub
 
    Private Sub btnOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        frmOpen.Show()
    End Sub
 
    Private Sub btnInvoer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInvoer.Click
        frmInvoer.Show()
    End Sub
End Class
 

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Public Class frmInvoer

    Private Sub frmInvoer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cbxComponent.Items.Add("Weerstand")
        cbxComponent.Items.Add("condensator")
        cbxComponent.Items.Add("Potmeter")
        cbxComponent.Items.Add("Schakelaar")
        cbxComponent.Items.Add("Diode")
        cbxComponent.Items.Add("IC")
        cbxComponent.Items.Add("Transistor")

        cbxAantal.BeginUpdate()
        Dim I As Integer
        For I = 0 To 20
            cbxAantal.Items.Add(I.ToString())
        Next
        cbxAantal.EndUpdate()


    End Sub

    Private Sub btnNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNext.Click
        Dim strNaam, strWaarde, strComponent, strAantal As String
        strComponent = cbxComponent.SelectedItem
    End Sub

    Private Sub btnNext_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNext.Enter

    End Sub
End Class
            
Public Class frmInvoer
 
    Private Sub frmInvoer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cbxComponent.Items.Add("Weerstand")
        cbxComponent.Items.Add("condensator")
        cbxComponent.Items.Add("Potmeter")
        cbxComponent.Items.Add("Schakelaar")
        cbxComponent.Items.Add("Diode")
        cbxComponent.Items.Add("IC")
        cbxComponent.Items.Add("Transistor")
 
        cbxAantal.BeginUpdate()
        Dim I As Integer
        For I = 0 To 20
            cbxAantal.Items.Add(I.ToString())
        Next
        cbxAantal.EndUpdate()
 
 
    End Sub
 
    Private Sub btnNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNext.Click
        Dim strNaam, strWaarde, strComponent, strAantal As String
        strComponent = cbxComponent.SelectedItem
    End Sub
 
    Private Sub btnNext_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNext.Enter
 
    End Sub
End Class
 

nu moet ik enkel nog een manier vinden om de ingevoerde waarde (via textvak of combobox) in een degelijk tabelletje te krijgen en dit te kunnen opslaan en terug te openen zonder enige problemen
dat is nu mijn grootste probleem

Abbas - 11/01/2010 23:35 (laatste wijziging 11/01/2010 23:35)
Crew .NET		1. Verbinding met MS Access DB, deze is voor ASP.NET maar de code die erachter zit geldt ook voor WinForms. 2. MySQL en Forms, hier gaat de connectie via MySQL, maar als je de verbinding vanuit de eerste tutorial hier toepast werkt dat ook perfect. Het is dan enkel een kwestie van de opgehaalde resultaten in de Controls te stoppen.
Bedankt door: meerweten

meerweten - 12/01/2010 20:11
Lid		titjes schreef: 1. Verbinding met MS Access DB, deze is voor ASP.NET maar de code die erachter zit geldt ook voor WinForms. 2. MySQL en Forms, hier gaat de connectie via MySQL, maar als je de verbinding vanuit de eerste tutorial hier toepast werkt dat ook perfect. Het is dan enkel een kwestie van de opgehaalde resultaten in de Controls te stoppen. hier kan ik inderdaat mee verder enkel zie ik dat het hem hier gaat over c# oeps ken ik niet veel van maar toch nieuwe taal leren moet wel gaan

Abbas - 12/01/2010 20:40
Crew .NET		Inde eerste tutorial staat inderdaad alleen code in C# maar in de tweede staat de code ook in VB.NET dus je moet niet per se een andere taal gaan leren!
Bedankt door: meerweten

meerweten - 12/01/2010 21:00
Lid		inderdaat nu heb ik toevallig gelezen dat het zelf nog eenvoudiger kan door gebruikt te maken van een al nestaand excel bestand ipv een database nu heb ik dit geprobeert maar ik wil hem openen in mijn form een darr kunnen bewerken (enkel de gerbuikte cellen + 1 lege rij) nu opent hij enkel dat bestand in excel zelf

Abbas - 12/01/2010 21:35
Crew .NET		Je wil dus eigenlijk de gegevens van je Excel bestand in je Form krijgen en bewerken terug opslaan? Als je nog niet echt gevorderd in programmeren bent kan je best gewoon met een DB werken denk ik!

meerweten - 12/01/2010 21:45 (laatste wijziging 12/01/2010 21:47)

Lid

mss

maar dan moet ik die nog steeds openkrijgen

daarom heb ik het volgende opgezocht:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                  Private Sub OpenToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        Dim openfiledialog1 As New OpenFileDialog

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            WebBrowser1.Navigate(openfiledialog1.FileName)
        End If

    End Sub
            
Private Sub OpenToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        Dim openfiledialog1 As New OpenFileDialog
 
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            WebBrowser1.Navigate(openfiledialog1.FileName)
        End If
 
    End Sub
 

nu wilt hij deze wel openen enkel niet in het form zelf

Abbas - 12/01/2010 21:57
Crew .NET		Wat voor bestand probeer je hier eigenlijk te openen? En waarom zou je een Excel-file openen met een browser?

meerweten - 12/01/2010 21:59 (laatste wijziging 13/01/2010 17:23)

Lid

het maak eigenlijk niet uit wat voor bestand het is
zoalng het maar in (denkbeeldige) tabel staat
en ik zou niet weten wat anders te gebruiken als veld

eerst proberen om een soort file te openen en daarna naar meer complexere bestanden gaan:p

heb nu ook gevonden hoe je een data base kunt maken en beheren via sql server
in vb.net moet ik dan de volgende console aanmaken:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Module SQLconnectiononly

    Sub Main()
        Dim connstr As String = "server=localhost;uid=sa;pwd=;database=simplebank"
        Dim sqlconn As New SqlConnection()

        Dim conn As IDbConnection = sqlconn
        conn.ConnectionString = connstr
        Console.WriteLine("using SQL server to accces simpleBank")
        Console.WriteLine("database state: " & conn.State.ToString)
        conn.Open()
        Console.WriteLine("database state: " & conn.State.ToString)



    End Sub

End Module
            
Module SQLconnectiononly
 
    Sub Main()
        Dim connstr As String = "server=localhost;uid=sa;pwd=;database=simplebank"
        Dim sqlconn As New SqlConnection()
 
        Dim conn As IDbConnection = sqlconn
        conn.ConnectionString = connstr
        Console.WriteLine("using SQL server to accces simpleBank")
        Console.WriteLine("database state: " & conn.State.ToString)
        conn.Open()
        Console.WriteLine("database state: " & conn.State.ToString)
 
 
 
    End Sub
 
End Module
 

maar Dim sqlconn As New SqlConnection() wilt hij niet aannemen (foutcode:Error 1 Type 'SqlConnection' is not defined. )

Abbas - 13/01/2010 17:27

Crew .NET

Die conn moet je helemaal niet gebruiken. Gewoon zo:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Dim connstr As String = "server=localhost;uid=sa;pwd=;database=simplebank"
Dim sqlconn As New SqlConnection(connStr)

Console.WriteLine("using SQL server to accces simpleBank")
Console.WriteLine("database state: " & sqlconn.State.ToString)
sqlconn.Open()
Console.WriteLine("database state: " & sqlconn.State.ToString)

            
Dim connstr As String = "server=localhost;uid=sa;pwd=;database=simplebank"
Dim sqlconn As New SqlConnection(connStr)
 
Console.WriteLine("using SQL server to accces simpleBank")
Console.WriteLine("database state: " & sqlconn.State.ToString)
sqlconn.Open()
Console.WriteLine("database state: " & sqlconn.State.ToString)
 

meerweten - 13/01/2010 17:34
Lid		nog steed zelfde probleem

Abbas - 13/01/2010 17:46
Crew .NET		Heb je volgende regel helemaal bovenaan in je code: vbnet code - Bekijk de code zonder highlighting - Klap code in Imports System.Data.SqlClient Imports System.Data.SqlClient

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten