MyCity :: Visual Basic

Data Picker greska

nobody@mycity.rs (tomislav91) — Mon, 03 Jun 2013 16:10:33 +0100

Imam problem sa ubacivanjem datuma u moju bazu. Kada kliknem na dugme, treba da mi izbaci report koji pokazuje ustvari ime,prezime, cenu i datum. Ali gresku koju pokazuje:
"Multiple steps operation generated errors. Check each status value"

Evo kod za to dugme. Tu gde je zuto, tu pokazuje build gresku. Prvo sam pomislio da mozda nema mesta da ubaci sve to iz liste, ali sam stavio 200 karaktera i opet nece.




Private Sub Command4_Click()


Dim g, q, op, r As Integer


Dim str12 As String





For op = 0 To List1.ListCount - 1 Step 1


List1.Selected(op) = True


Adodc3.Recordset.AddNew


[color=yellow]Adodc3.Recordset.Fields("Proizvodi").Value = List1.Text[/color]


Adodc3.Recordset.Update





Next op





g = Val(Text4.Text)


q = Val(Adodc1.Recordset.Fields("Potroseno").Value)





Adodc1.Recordset.Fields("Potroseno").Value = g + q


Adodc3.Recordset.Fields("Datum").Value = DTPicker1.Value





Adodc1.Recordset.Update





Set DataEnvironment1.rsCommand6.DataSource = Adodc3


DataReport6.Show


End Sub

Run Time Error:'94' Invalid Use Of Null

nobody@mycity.rs (tomislav91) — Thu, 30 May 2013 12:16:54 +0100

Dobio sam ovu gresku kada treba da iz baze ubaci u listu
Evo koda koji vrsi to prebacivanje.




Dim str As String


If Text1.Text = Empty Or IsNumeric(Text1.Text) <> True Then


MsgBox "Unesite broj!", vbOKOnly, "Warning"


Else





str = Adodc2.Recordset.Fields("Naziv").Value + "          " + Adodc2.Recordset.Fields("Cena").Value + "         " + Text1.Text





List1.AddItem str


List2.AddItem Adodc2.Recordset.Fields("Cena").Value * Text1.Text


cenax = Label4.Caption


cenax = cenax + (Adodc2.Recordset.Fields("Cena").Value * Text1.Text)





Label4.Caption = cenax


Text4.Text = Label4.Caption


Adodc2.Recordset.Fields("Prodano").Value = Val(Adodc2.Recordset.Fields("Prodano").Value) + Val(Text1.Text)


List3.AddItem Text1.Text


End If





End Sub

SQL upit adodc1

nobody@mycity.rs (tomislav91) — Sat, 11 May 2013 21:48:28 +0100

Treba da odradim top 5 prodanih artikala po opadajucem redosledu. Odradio sam ovako upit, ali ne znam kako taj top 5 da stavim.

SELECT Prodano,Naziv,Cena FROM PROIZVOD ORDER BY Prodano DESC

Kako napraviti novu ratnu igru ?

nobody@mycity.rs (Marko Velickovic 3) — Sun, 24 Mar 2013 22:24:59 +0100

Da li zelite da saznate kako mozete za kojih 10 minuta da napravite ratnu igricu ?

cudno ponasanje posle debug

nobody@mycity.rs (tomislav91) — Sun, 17 Feb 2013 01:13:19 +0100

----------- Napisano: 17 Feb 2013 1:13 ---------

Odjednom na moju formu se pojavilo posle debug-a prvo prozor kao iz command prompta, pa tek onda forma? Zasto to? Kada napravim novu formu sve bude ok, ali necu sad ponovo da pisem kod. Evo sliku stavljam pa pogledajte.

----------- Dopuna: 17 Feb 2013 1:26 ---------

Evo to sam resio tako sto u Application type je bilo Console application, ne znam kako se to namestilo, a radilo je kako treba, Ali sada primecujem da na drugom os, odnosno Windows XP sp3(licenced) javlja gresku "not a valid 32 application". Ali ne razumem zbog cega nece da pokrene exe file na drugom racunaru. Na mom je sve ok.

Rastavi opseg datuma

nobody@mycity.rs (blue82) — Sun, 30 Dec 2012 22:33:01 +0100

Postovani forumasi imam mali problem, naizgled veoma jednostavan ali nikako da uradim za njega pristojan za oko code.
Imam 3 datuma:
Code:

Dim Datumi(2) as Date
Datumi(0)="01.03.2012"
Datumi(1)="15.06.2012"
Datumi(2)="07.12.2012"

Glavni opseg je npr od 01.01.2012-31.12.2012.
Kako napisati lep code koji ce da izbaci resenje na nacin da glavni opseg datuma razbije na podopsege iz niza Datumi?

Resenje:
01.01.2012-01.03.2012
01.03.2012-15.06.2012
15.06.2012-07.12.2012

U nizu Datumi moze biti neograniceno puno datuma a uzimaju se u obzir samo oni koji "seku" glavni opseg datuma. Npr ako postoji Datumi(0)="01.01.2011" ovaj poddatum nece uticati nikako na rezultat jer se nalazi izvan glavnog opsega 01.01.2012-31.12.2012.

Hvala!

�itanje podataka i generisanje

nobody@mycity.rs (E.L.I.T.E.) — Fri, 28 Dec 2012 22:21:49 +0100

Evo ovako, radim na jednom programu u VB koji bi trebao da u�itava podatke, a ja se tu slabije snalazim...

�elim da mi ta forma automatski u�ita sve izbore korisnika i da ih prebaci u slede�u formu, a ovo po�etna sintaksa i zadnja sintaksa da automatski kopira, pa da korisnik kada napravi taj jezik (sintakse), zavr�i sa tom formom ide na Meni, pa na Jezik, i tamo pronadje to �to je napravio, pa kada klikne da sve to �to je kopirano udje u TextBox (Ta�nije RTB Rich Text Box).

Da li je mogu�e napraviti ovakvo ne�to?

Elite OS

nobody@mycity.rs (E.L.I.T.E.) — Sat, 22 Dec 2012 19:14:25 +0100

----------- Napisano: 22 Dec 2012 19:14 ---------

Evo mog drugog projekta (ovo nije moj drugi projekat ve� hiljaditi, ali �elim da ovo objavim), radjen je u VB i ovo je kao neki Preview mini operativnog sistema koji �elim da stvorim. To je Elite OS 1.0 i pokre�e ove aplikacije: Notepad, Calculator, Media Player, Paint.

Evo uputstva kako da ga pokrenete:

Idete klikom na fajl Elite Operativni Sistem unutar RAR arhive Elite OS i pokaza�e vam se ovakav prozor:

Idete na Help za pomo�, a na Start birate aplikaciju koju �elite da koristite:

Link za Download: http://www.mediafire.com/?qhehdnukysxq5e7

Pa�nja! Ovo je preview verzija programa!

�ta �e sve sadr�ati slede�a verzija?

Pobolj�an Notepad
Pobolj�an Kalkulator
Pobolj�an Paint
Elite AntiVirus Absolution
OS Scanner
Wector Web Browser

Do avgusta 2013. o�ekujte i Pro verziju! Pozdrav

----------- Dopuna: 22 Dec 2012 19:39 ---------

Evo Preview-a Elite OS Pro:

To je to, ne�u vi�e da vam otkrivam Mo�da bude malih izmena u dizajnu.

Program koji ispituje OS korisnika

nobody@mycity.rs (E.L.I.T.E.) — Sat, 22 Dec 2012 14:56:26 +0100

�elim da napravim program koji �e pri pokretanju ispitati operativni sistem korisnika , i ako je mogu�e, ispisati ovu poruku:

cafetimer projekat

nobody@mycity.rs (bolepks) — Fri, 21 Dec 2012 16:44:10 +0100

Da li neko ima detaljnije obja�njen tutorijal za cafetimer ra�en u VB, primer kao �to je na ovom tutorijalu

Visual Basic-prikazuje mi nejasnu gresku

nobody@mycity.rs (Milos CG) — Sun, 25 Nov 2012 18:03:28 +0100

Program mi je izbacio gresku i to u znaku "=" .Stvarno ne znam o cemu se radi o.O

Visual Basic 2008-Dodavanje ikonice i osnovne funkcije programa-problem

nobody@mycity.rs (Milos CG) — Fri, 16 Nov 2012 18:03:16 +0100

Prvo me zbunjuje ovaj pocetni meni pri kreiranju novog proekta:

Jel neko moze da mi objasni "Class Library" , "WPF Application" i ostale vrste proekta (za sta sluze) ?

Drugo jeste dodavanje ikonice zavrsenom .exe fajlu i program koji omoguci da se moj program pokrece,tj. ona instalacija programa (na youtube-u sam ga bio pronasao,program se zvao nesto "inna" ili "ino" tako nesto.

Trece jeste prelazak iz jednog prozora u drugi.Npr. ako na prozoru imam dugme "Next" koji je kod za prelazak u drugi prozor,i da li taj drugi prozor mogu da kreiram kao isti proekat? Ako sam npr. napravio Form1 u dugme "Next" pise "open.Form2" da bih pokrenuo taj drugi prozor?

Plzz pomoc

SQL + Visual Basic 2010

nobody@mycity.rs (Nikola Jankovi� 2) — Fri, 09 Nov 2012 00:53:59 +0100

Jebavam se celo popodne s ovim.
Poku�avam da se pove�em s bazom.
Dva polja na formi, dva polja u bazi.

 Private Sub btnPrijava_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrijava.Click


        Dim connection As New SqlClient.SqlConnection


        Dim command As New SqlClient.SqlCommand


        Dim adaptor As New SqlClient.SqlDataAdapter


        Dim dataset As New DataSet


        connection.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Baza.mdf;Integrated Security=True;User Instance=True")


        command.CommandText = "SELECT * FROM [Korisnici] WHERE KorisnickoIme='" & txtKorisnicko.Text & "' AND Lozinka='" & txtLozinka.Text & "';"


        connection.Open()


        command.Connection = connection


        adaptor.SelectCommand = command


        adaptor.Fill(dataset, "0")


        Dim count = dataset.Tables(0).Rows.Count


        If count > 0 Then


            MsgBox("Login Successfull", MsgBoxStyle.Information, "Login Passed")


        Else


            MsgBox("Invalid Account", MsgBoxStyle.Critical, "Login Failed")


            txtKorisnicko.Clear()


            txtLozinka.Clear()


        End If


    End Sub

Prvo sam mislio da je problem u kodu, ali onda sam video da onaj znak pored baze da je konektovana, nestane kada Build-ujem program�e.

Zna li neko u �emu je problem? Kako da osiguram sigurnu konekciju sa bazom?
Da pojasnim, mo�da sam pogre�io i u toku kreiranju same baze.
Zna�i, dodao sam novi Item, Service-based Database, kreirao tabelu, a dodao New Data Source.

VB 6 bez virusa

nobody@mycity.rs (Vuk_D) — Fri, 02 Nov 2012 07:26:19 +0100

Moze li neko molim vas da mi da adresu za skidanje VB 6 bez virusa? Unapred hvala

Kako da napravim formu za uno�enje i pretragu - excel

nobody@mycity.rs (bolepks) — Wed, 31 Oct 2012 19:49:01 +0100

Kako da napravim formu za uno�enje i pretragu u tabeli koja je ura�ena u excel-u?