Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Rpg game in visual basic!

ohdude
12 antwoorden
  • Hallo Allemaal ik ben (ook) bezig met het maken van een rpg game, maar dan
  • Iemand?

    ik wil alleen gegevens uit een database kunnen halen en een registratie pagina :?
  • Misschien zou je wat minder opdringerig kunnen zijn.
    En laten zien wat je zelf al geprobeerd hebt en waar je tegen problemen aanloopt. Mensen willen best helpen met het leren van iets maar voorkauwen doen we niet.

    Van VB heb geen verstand maar heb sterk de indruk dat de code die je nu hebt ergens op het net hebt gevonden.
  • [quote:8f49fb58ac="vuurtoren"]Misschien zou je wat minder opdringerig kunnen zijn.
    En laten zien wat je zelf al geprobeerd hebt en waar je tegen problemen aanloopt. [/quote:8f49fb58ac]

    Zorrie dat ik dan zo over kwam,
    ik ben een beetje te enthousiast over het idee :?

    Zoals ik hierboven al zij ben ik bezig met een rpg (maar geen crimesoure). maar deze is niet gebaseerd op een site.
    Het probleem is dat ik een aardig eind met vb maar ik ben nu aan het proberen met een online database verbinding te maken.
    Het klopt dat deze code gedeeltelijk van internet is.
    Maar Helaas kan ik geen informatie vinden hoe ik een registratie form moet maken :(
    of hoe ik gegevens uit een database moet halen dus ik hoopte dat iemand me kan helpen.
    Omdat IK geen info kon vinden heb ik helaas ook geen codes.

    Ik weet niet of ik iets aan deze code heb
    [code:1:8f49fb58ac]#
    Dim conn As ADODB.Connection
    #
    Dim dbRecset As ADODB.Recordset
    #
    Dim sSQL As String
    #
    Dim l As Long, l2 As Long
    #
    #
    'Connect to MysSQL server using MysSQL ODBC 3.51 Driver
    #
    'Change the settings as needed
    #
    Set conn = New ADODB.Connection
    #
    #
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
    #
    "SERVER=YourServer_address;" & _
    #
    "PORT=3306" & _
    #
    "DATABASE=Your_databasename;" & _
    #
    "UID=YourName;PASSWORD=YourPassword;OPTION=3"
    #
    #
    'Create sSQL string - change this as needed
    #
    sSQL = "SELECT * FROM MyDB.MyTable;"
    #
    #
    'Open the connection
    #
    conn.Open
    #
    #
    'Create a recordset and set the CursorLocation property for record navigation
    #
    Set dbRecset = New ADODB.Recordset
    #
    dbRecset.CursorLocation = adUseClient
    #
    #
    'Fetch data
    #
    dbRecset.Open Source:=sSQL, ActiveConnection:=conn, CursorType:=adOpenForwardOnly, _
    #
    LockType:=adLockReadOnly, Options:=adCmdText
    #
    #
    'Move to the first record
    #
    dbRecset.MoveFirst
    #
    #
    'Cycle through all the fields and write name to worksheet
    #
    'You could omit this step if you just want data
    #
    For l = 1 To dbRecset.Fields.Count
    #
    Worksheets(1).Cells(1, l).Value = dbRecset.Fields(l - l).Name
    #
    Next l
    #
    #
    'Write all data to your worksheet
    #
    For l2 = 1 To dbRecset.RecordCount
    #
    For l = 1 To dbRecset.Fields.Count
    #
    Worksheets(1).Cells(l2 + 1, l).Value = dbRecset.Fields(l - 1).Value
    #
    Next l
    #
    dbRecset.MoveNext
    #
    Next l2
    #
    #
    'Close connection again
    #
    dbRecset.Close
    #
    conn.Close
    #
    #
    'Tidy up
    #
    Set dbRecset = Nothing
    #
    Set conn = Nothing
    #
    End Sub [/code:1:8f49fb58ac]
  • [quote:e2d2dcf14e="vuurtoren"]Misschien zou je wat minder opdringerig kunnen zijn.
    En laten zien wat je zelf al geprobeerd hebt en waar je tegen problemen aanloopt. Mensen willen best helpen met het leren van iets maar voorkauwen doen we niet.

    Van VB heb geen verstand maar heb sterk de indruk dat de code die je nu hebt ergens op het net hebt gevonden.[/quote:e2d2dcf14e]

    Het grote probleem is dat ik geen source code kan vinden voor m'n project :cry: :?
  • Nou ik ben al uit het register systeem maar nu de rest nog :P
  • Hi allemaal ik heb nu deze code maar ik krijg alsnog een foutmelding wie kan me helpen?
    Ik krijg de melding :
  • Geen idee, je moet opnieuw napluizen op welke regel het fout gaat. Een bepaalde variable zal niet geinitialiseerd zijn wat wel zou moeten, omdat je die ergens gebruikt.

    even een algemeen advies: Haal anders even een boek uit de bibliotheek en ga daar eens mee aan de slag. Maak de oefeningen en probeer te begrijpen hoe het programmeren werkt.

    Het kopieren en plakken van code en dan vervolgens gaan vragen waarom het niet werkt, dat schiet niet erg op ;) Je leert namelijk niet veel van code plakken, want je snapt nog steeds de betekenis niet.

    Ik ben ook ooit op 15 jarige leeftijd begonnen met visual basic. Het duurt een tjjdje maar als je eenmaal door hebt, dan wordt het pas echt leuk ;)
  • Haha ik heb nu de register gehele code herschreven
    Deze werkt nu
    Maar nu wil ik nog de data van de database willen halen en ik heb nu nog geen idee hoe dat dan moet
    Ik wil het net zo maken bijvoorbeeld als je inlogt dat je je inlog naam ziet en bijvoorbeeld je rank
    Weet iemand iets
  • Alsjeblieft, lees mijn bericht nog een keer, want ik krijg het idee dat je er niet naar wilt luisteren.

    Als je informatie kan opslaan, is het ook makkelijk om informatie op te halen. Als je zelfs al kan inloggen, wat gewoon inhoudt: informatie ophalen. Dan kan je toch ook andere informatie ophalen.

    Je stelt vragen, die als echt zelf de code geschreven had, niet had hoeven stellen. Ik kan je bijna niet helpen, je bent namelijk alleen geholpen als ik letterlijk de code ga uitschrijven en jij deze zo in je programma kan plakken.
  • Zorrie maar deze code heb ik wel zelf geschreven
    [quote:af3e35bf8d="ohdude"]

    [code:1:af3e35bf8d] Dim connection As MySqlConnection
    'connect to database'
    connection = New MySqlConnection
    mysqlconnection.ConnectionString = "server=XXXX;Port=3306; User ID=XXXX; password=XXXX; database=XXXX"
    'see if connection fail'
    Try
    connection.Open()
    Catch myerror As MySqlException
    MsgBox("error")
    End Try
    'sql query'
    Dim myadapter As New MySqlDataAdapter
    Dim sqlquery = "SELECT * FROM login Where username = '" + UsernameTextBox.Text + "'"
    Dim myCommand As New MySqlCommand
    myCommand.Connection = connection
    myCommand.CommandText = sqlquery
    'start query'
    myadapter.SelectCommand = myCommand
    Dim myData As MySqlDataReader

    myData = myCommand.ExecuteReader()
    'see if user already exist'

    If myData.HasRows = 0 Then
    connection.Close()
    connection.Open()
    Dim registerfina As New MySqlDataAdapter
    Dim SqlQuary = "INSERT INTO Users Set Username='" & UsernameTextBox.Text & "' AND password = '" & PasswordTextBox.Text & "';"
    myCommand.Connection = connection
    myCommand.CommandText = sqlquery
    'start query'
    registerfina.SelectCommand = myCommand
    myData = myCommand.ExecuteReader()
    MsgBox("Gelukt")
    Me.Hide()
    Else
    MsgBox("Gebruikersnaam is al in gebruikt")
    End If[/code:1:af3e35bf8d][/quote:af3e35bf8d]
  • Dus je hebt dit geschreven, je begrijpt precies wat het doet. Waarom kan je dit dan niet omtoveren tot iets wat je wel wilt? Ik bedoel met zelf schrijven: Het uitdenken, coden en testen. Dus niet overschrijven van andere code…
    [quote:9672210713="ohdude"]

    [code:1:9672210713]
    Dim sqlquery = "SELECT * FROM login Where username = '" + UsernameTextBox.Text + "'"[/code:1:9672210713][/quote:9672210713]

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.