Progressbar aus asynchronem Prozeß steuern

roth am Wednesday, 8.September 2010 um 21:30

Public Class Form3

Private m_ToolstripProgressClass As ToolstripProgressClassPublic Sub New()‘ Dieser Aufruf ist für den Designer erforderlich.

InitializeComponent()

‘ Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

End Sub

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

m_ToolstripProgressClass = New ToolstripProgressClass(ToolStripProgressBar1)

Dim worker As WorkerClass = New WorkerClass

AddHandler m_ToolstripProgressClass.CallbackIsReady, AddressOf Worker_End

m_ToolstripProgressClass.Start(worker, False)

End Sub

Private Sub Worker_End()

MessageBox.Show(“Asynchron-Callback”)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

m_ToolstripProgressClass = New ToolstripProgressClass(ToolStripProgressBar1)

Dim worker As WorkerClass = New WorkerClassm_ToolstripProgressClass.Start(worker, True)

m_ToolstripProgressClass.Reset()

MessageBox.Show(“Synchron-Ende”)

End Sub

End Class

Public Class ToolstripProgressClass

Public Delegate Sub AsyncValueChanged(ByVal ProgessValue As Integer)

Public Delegate Sub CallbackIsReadyDelegate(ByRef sender As Object, ByRef p_strdate As String)

Public Delegate Sub AsyncLongrunning()Public Event CallbackIsReady(ByRef sender As Object, ByRef p_date As String)

Private m_AsyncMethod As AsyncLongrunning

Private callback As AsyncCallback

Private WithEvents EndeTimer As Windows.Forms.Timer

Private WithEvents m_ToolstripProgress As System.Windows.Forms.ToolStripProgressBar

Public Sub New(ByRef ToolstripProgress As System.Windows.Forms.ToolStripProgressBar)

m_ToolstripProgress = ToolstripProgress

EndeTimer =

New Windows.Forms.TimerEndeTimer.Interval = 3000

End Sub

Public Sub Start(ByRef LongrunningWorker As IWorkerWithProgressEvent, ByVal Synchron As Boolean)

AddHandler LongrunningWorker.ProgressValueChanged, AddressOf ProgressValueChanged

If Synchron Then

LongrunningWorker.Longrunning()

Else

callback = AddressOf CallbackHandlerm_AsyncMethod = AddressOf LongrunningWorker.Longrunning

Dim asyncResult As IAsyncResult = m_AsyncMethod.BeginInvoke(callback, m_AsyncMethod)

End If

End Sub

Public Sub CallbackHandler(ByVal result As IAsyncResult)

Dim asyncmethod As AsyncLongrunning = CType(result.AsyncState, AsyncLongrunning)m_AsyncMethod.EndInvoke(result)

Dim strText As String = “Fertig”

RaiseEvent CallbackIsReady(Me, strText)

End Sub

Private Sub async_CallbackIsReady(ByRef sender As Object, ByRef p_strTxt As String) Handles Me.CallbackIsReady

If m_ToolstripProgress.Owner.InvokeRequired Then

Dim isReady As CallbackIsReadyDelegate = AddressOf async_CallbackIsReady

Dim param As Object() = New Object() {Me, p_strTxt}m_ToolstripProgress.Owner.Invoke(isReady, param)

Else

Reset()

End If

End Sub

Public Sub Reset()m_ToolstripProgress.Value = 100

EndeTimer.Start()

End Sub

Private Sub ProgressValueChanged(ByVal Value As Integer)

If m_ToolstripProgress.Owner.InvokeRequired Then

Dim ValueChanged As AsyncValueChanged = AddressOf ProgressValueChanged

Dim param As Object() = New Object() {Value}m_ToolstripProgress.Owner.Invoke(ValueChanged, param)

Else

m_ToolstripProgress.Value = Value

End If

End Sub

Private Sub EndeTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles EndeTimer.Tick

EndeTimer.Stop()

m_ToolstripProgress.Value = 0

End Sub

End Class

Public Class WorkerClass : Implements IWorkerWithProgressEvent

Public Event ProgressValueChanged(ByVal Value As Integer) Implements IWorkerWithProgressEvent.ProgressValueChanged

Public Sub LongRunning() Implements IWorkerWithProgressEvent.Longrunning

For i As Integer = 0 To 100System.Threading.Thread.Sleep(20)

RaiseEvent ProgressValueChanged(i)

Next

End Sub

End Class

Public Interface IWorkerWithProgressEvent

Event ProgressValueChanged(ByVal Value As Integer)Sub Longrunning()

End Interface

Application Events

roth am Wednesday, 8.September 2010 um 21:26

‘ Für MyApplication sind folgende Ereignisse verfügbar:

‘ Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.‘ Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung nicht normal beendet wird.

‘ UnhandledException: Wird ausgelöst, wenn in der Anwendung eine unbehandelte Ausnahme auftritt.‘ StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn diese bereits aktiv ist.

‘ NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.Partial Friend Class MyApplication

‘'’ ‘'’ Zentrale Fehlerbehandlungsroutine für Fehler, welche nicht per Programmcode

‘'’ behandelt werden‘'’

‘'’

 

‘'’

 

‘'’ Private Sub GeneralErrorHandler(ByVal sender As Object, _ByVal e As System.Threading.ThreadExceptionEventArgs) _Handles MyClass.UnhandledExceptionDim err = New Tools.clsUnhandledErrorUserControls.clsErrorHandler.ToDB(err,

“Unhandled in MyApplication.”)UserControls.clsErrorHandler.ToDialog(err, “Die Anwendung “ + _

“wird geschlossen und muss neu gestartet werden. Das “ + _ “Entwicklerteam wird von diesem Vorgang automatisch benachrichtigt.”)End Sub

PIVOT

roth am Friday, 26.February 2010 um 15:23

select * from (select u.Betrag as Umsatz,v.bezeichnung as Verkäufer,p.bezeichnung as Produkt

from Umsatz u join Produkt p on p.ID=u.IDProdukt

join Verkäufer v on v.ID=u.IDVerkäufer) AS S pivot(sum(Umsatz) for S.Verkäufer in ([Maier],[Schulze],[Müller])) as U

Asynchron und Controls

roth am Wednesday, 27.January 2010 um 14:36

Hier ein Standardbeispiel für das Starten einer asynchronen Aufgabe aus einem Windows-Form und der Verwendung des Ergebisses in einem Control des Forms. Vorausgesetzt wird eine Klasse StringZahl in einem Namespace Zahl.

1. Die Form-Klasse

using System;
using System.Text;
using System.Windows.Forms;

namespace Umrechnung
{
    public partial class Form1 : Form
    {
        ASyncRechnen cThreadClass;
        private delegate void ASyncResultIsReady(Object sender,
                                    Umrechnung.ASyncRechnen.CallbackEventArgs e);
        // Initialisieren der asynchronen Funktionalität
        public Form1()
        {
            InitializeComponent();
            cboBasis.SelectedItem = “10″;
            cThreadClass = new ASyncRechnen();
            cThreadClass.ASyncResultIsReady
                += new ASyncRechnen.ASyncResultIsReadyDelegate(
                            cThreadClass_ASyncResultIsReady);

        }
        // Asynchrones Rechnen starten
        private void button1_Click(object sender, EventArgs e)
        {
            txtString.Text = “Programm rechnet !!!”;
            StringBuilder strVor    =   new StringBuilder(txtVorkomma.Text);
            StringBuilder strNach   =   new StringBuilder(txtNachkomma.Text);
            Int32 nBasis    =   Convert.ToInt32(cboBasis.SelectedItem);
            cThreadClass.AsynchLoad(strVor, strNach, nBasis);
        }
        // Ergebnis des Asynchronen Rechnens in einem Control nutzen
        void cThreadClass_ASyncResultIsReady(Object sender,
                                Umrechnung.ASyncRechnen.CallbackEventArgs e)
        {
            if (txtString.InvokeRequired)
            {
                ASyncResultIsReady cResultIsReady
                    = new ASyncResultIsReady(cThreadClass_ASyncResultIsReady);
                object[] param = new object[] { this, e };
                txtString.Invoke(cResultIsReady, param);
            }
            else
                txtString.Text = e.Result;
        }
        // Anzeige wird ungültig
        private void cboBasis_SelectedValueChanged(object sender, EventArgs e)
        {
            txtString.Text = “Basis hat sich geändert. Wert muss neu errechnet werden.”;
        }
    }
}
2. Asynchrone Funktionalität

using System;
using System.Text;
using Zahl;
using System.Windows.Forms;

namespace Umrechnung
{
    public class ASyncRechnen
    {
        public delegate String WorkerDelegat(StringBuilder p_strVor,
                                            StringBuilder p_strNach,
                                            Int32 p_nBasis);
        public delegate void ASyncResultIsReadyDelegate(Object sender,
                                            CallbackEventArgs e);
        public event ASyncResultIsReadyDelegate ASyncResultIsReady;

        public String WorkerMethod(StringBuilder p_strVor,
                                   StringBuilder p_strNach,
                                   Int32 p_nBasis)
        {
            String strRet   =   “”;
            try
            {
                StringZahl cZahl = new StringZahl(p_strVor, p_strNach, p_nBasis);
                strRet = cZahl.ZahlString.ToString();
            }
            catch (ArgumentException exc)
            {
                MessageBox.Show(exc.Message, “Fehler”);
            }
            return strRet;
        }
        public void AsynchLoad(StringBuilder p_strVor,
                               StringBuilder p_strNach,
                               Int32 p_nBasis)
        {
            WorkerDelegat workerDelegat = new WorkerDelegat(WorkerMethod);
            IAsyncResult asyncResult
                = workerDelegat.BeginInvoke(p_strVor,p_strNach,p_nBasis,
                            new AsyncCallback(CallbackHandler), workerDelegat);
        }
        public void CallbackHandler(IAsyncResult p_cResult)
        {
            WorkerDelegat workerDelegat = (WorkerDelegat)p_cResult.AsyncState;
            String strResult = workerDelegat.EndInvoke(p_cResult);
            CallbackEventArgs arg = new CallbackEventArgs(strResult);
            if (ASyncResultIsReady != null)
                ASyncResultIsReady(this, arg);
        }
        public class CallbackEventArgs : EventArgs
        {
            String strResult;
            public String Result { get { return strResult; } }
            public CallbackEventArgs(String p_strResult)
            {
                strResult = p_strResult;
            }
        }
    }
}

Dynamisches SQL

roth am Wednesday, 28.October 2009 um 18:20

Um Spalten entsprechend der Berechtigung des verwendeten Login in der Datenbank anzuzeigen bzw. auszublenden ist dynamisches SQL notwendig. Dies könnte in etwa so aussehen:

 

Rekursive CTE’s

roth am Wednesday, 24.June 2009 um 16:34

Beispiel für eine rekursive CTE mit einem Text. Analog kann dazu natürlich auch auf eine Datenbanktabelle rekursiv zugegriffen werden.

SQL-Scripte testen

roth am Saturday, 21.February 2009 um 16:32

Um SQL-Scripte auf ihre Syntax und ihre Auswirkungen auf die Daten in der Datenbank zu überprüfen ohne eine Schaden durch eventuelle Fehler zu verursachen können die folgenden Zeilen in das Script eingebaut werden:

– Im Kopf der Scripdatei

IF OBJECT_ID(’tempdb..#err’)<>0 DROP TABLE #err
GO
CREATE TABLE #err (id int IDENTITY, error int)
GO
BEGIN TRAN
GO
====================================================
–Hier stehen die zu testenden SQL-Aktionen, nach welcher jeweils die folgende
–Zeile stehen muss

GO
DECLARE @e int SET @e=@@ERROR IF @@TRANCOUNT=0 BEGIN INSERT #err (error) VALUES (@e) BEGIN TRAN END
GO

===================================================
– Zum Testen ROLLBACK, zum Ausführen COMMIT auskommentieren

IF EXISTS(SELECT * FROM #err)
BEGIN
ROLLBACK
SELECT * FROM #err
END ELSE

– COMMIT
ROLLBACK

Fremdschlüssel aus anderer Datenbank

roth am Saturday, 21.February 2009 um 16:32

Habe ich eine Fremdschlüsselbeziehung zu einer anderen Datenbank kann mit dem folgenden Trigger die refrenzielle Integrität gewahrt werden:

CREATE TRIGGER [dbo].[Triggername] ON [dbo].[Tabelle_mit_Fremdschlüssel]
FOR INSERT, UPDATE
AS

SET NOCOUNT ON

IF NOT EXISTS(SELECT * FROM inserted ins
LEFT JOIN Tabelle T ON T.ID=ins.IDFremdschlüssel WHERE T.ID IS NULL)
RETURN

RAISERROR (50000, 11, 1, ‘IDFremdschlüssel ‘, ‘Tabelle’)

ROLLBACK

Einfügen eines vorgegebenen Primärschlüssels

roth am Saturday, 21.February 2009 um 16:31

Wenn z.B. aus einer gesicherten Tabelle Daten wieder hergestellt werden sollen aber die Primärschlüsselwerte die gleichen bleiben sollen, folgendes Script verwenden:

set identity_insert Tabelle on
insert into Tabelle (ID, Spalten) select ID, Spalten from sicherung.dbo.Tabelle
set identity_insert Tabelle off

ASP.NET-Webdienst

roth am Thursday, 1.March 2007 um 16:35

Erstellen des Servers:

1. Erstellen eines Projektes vom Typ ASP.NET-Webdienstes

2. In der Code-Ansicht implementieren der Methoden mit dem Attribut [WebMethod]

3. Testen des Servers mit F5(Starten). Es erscheint eine generierte Website mit den implementierten Methoden.

4. Um Zwischenergebnisse zu speichern (den Zustand halten) erhält das WebMethod-Attribut den Parameter EnableSession ( [WebMethod(EnableSession=true)] ). In der dazugehörigen Service-Methode ist eine Sessionvariable anzulegen, welche den entsprechenden Wert speichert ( Session[”Name”] = Wert; ). AWenn für alle Clienten die gleichen daten verwendet werden sollen, ist stattdessen ein Application-Objekt zu benutzen. Zur Verhinderung paraller Zugriffe verwendet man Lock() und UnLock().

5. Zum Caching von daten (z.B. bei DB-Aufrufen) erhält WebMethod den Parameter CacheDuration.

 [WebMethod(CacheDuration=5)]

Der Zahlenwert gibt die Speicherdauer in Sekunden an.

6. Jeder Webdienst sollte einen eigenen Namensraum zugwiesen bekommen. Die jeweilige Klasse erhält dazu das Attribut: [WebService(Namespace=”http:://MeinService”)]. Dadurch wird der standardmäßig gesetzte Namensraum tempuri.org ersetzt. Um das Postfix “Soap” hinter dem Klassennamen zu vermeiden, welches durch WSDL automatisch generiert würde, erhält die Webdienst-Klasse ein weiteres Attribut: [WebServiceBinding(Name=”MeinService”)]. Die Methoden erhalten analog dazu das Attribut [SoapDocumentMethod(Binding=”MeinService”)].

Erstellen des Clients:

1. Erstellen eines neuen Projektes zum Beispiel eine Windows-Forms-Anwendung

2. Hinzufügen des Webverweises auf den Webdienst-Server. damit wird ein Proxy von Wsdl.exe generiert, welcher von Visual mit localhost.h bezeichnet wird. Die Proxy-Klasse ist von SoapHttpClientProtocl abgeleitet. Die Methode Invoke() erledigt den Aufruf der Server-Methode.

3. In einem Ereignis, welches die Methode des Webdienstes aufrufen soll, wird eine Instanz des Proxies erzeugt:

    localhost.Service service = new localhost.Service();

Auf die Webservice-Methoden kann nun über die Variable service zugegriffen werden.

4. Asynchrone Methodenaufrufe werden mit den Methoden BeginXXX() und EndXXX() im Proxy realisiert. Dazu ist eine Rückruf-Methode einzusetzen oder die IsCompleted-Eigenschaft abzufragen. Der Rückgabewert der BeginXXX-Methode ist in einer IAsyncResult-Variable zu speichern, welche beim Aufruf der EndXXX-Methode als Parameter zu übergeben ist.

5. Zum Zustandhalten muss dem Webdienst ein CookieContainer-Objekt hinzugefügt werden:

    service = new localhost.SpeicherService();

    service.CookieContainer = new CookieContainer();

Debuggen von Webdiensten

Der Webdienst läuft in einem anderen Prozeß (AspNet_Wp.exe) als der Client und ignoriert somit Haltepunkte. Um den Webdienst im Debugger zu untersuchen, muss der Prozeß AspNet_Wp.exe über den Menüpunkt “Prozesse” an den Client angefügt werden.

SOAP-Erweiterung

Eine SOAP-Erweiterung ermöglicht den Zugriff auf den Datenstrom in verschieden Zuständen. Damit läßt sich der Datenstrom auswerten und verändern (z.B. Verschlüsseln und Komprimieren). Der Zugriff auf den Datenfluss kann sowohl bei der Server-Anfrage an den Punkten BeforeDeserialize und AfterDeserialize und bei der Server-Antwort an den Punkten BeforeSerialize und AfterSerialize erfolgen.

SOAP-Erweiterungen werden durch Ableiten von der Klasse SoapExtension erzeugt. Dazu sind bei der Implementierung die Methoden ProcessMessage(), Initialize() und GetInitialize() zu überschreiben. Wenn Daten verändert werden sollen ist zusätzlich die Methode ChainStream() zu überschreiben. Greifen mehrere SOAP-Erweiterungen auf eine Webdienst-Methode zu ist die Reihenfolge des Zugriffs durch Gruppen und Prioritäten festzulegen. Soll die SOAP-Erweiterung auf alle Methoden angewendet werden, kann dies durch Eintrag in der Web.config erfolgen:

<webServices>
    <soapExtensionTypes>
        <add type=”Klassenname, Assembly” priority=”1″ group=”0″/>
    </soapExtensionType>
</webServices> 

Die Anwendung einer SOAP-Erweiterung auf einzelne Methoden erfolgt durch das Setzen des entsprechenden Attributes. Dieses ist von der Klasse SoapExtensionAttribute abzuleiten. Es müssen außerdem mindestens die Eigenschaften ExtensionType und Priority implementiert werden.

SOAP-Header

SOAP-Header transportieren Daten, welche nichts mit dem eigentlichen Methodenaufruf zu tun haben. Häufig wird dies für die Authentifizierung mit SessionId bzw. Kundennummer genutzt. SOAP-Header werden von der Klasse SoapHeader abgeleitet. Sinnvollerweise ist der Code außerhalb des eigentlichen Webdienstes zu implentieren (in einer DLL, welche in das Verzeichnis bin des Webdienstes zu kopieren ist). Der Zugriff auf die Daten im Header geschieht über den Parameter vom Typ SoapMessage der Methode ProcessMessage aus der SOAP-Erweiterung.

Die Webdienst-Methode, welche die SOAP-Header-Daten nutzen soll, erhält das Attribut: [SoapHeader(”headername”)]. Außerdem ist in der dazugehörigen Webdienst-Klasse eine public-Variable vom Typ der SOAP-Header-Klasse mit dem Namen “headername” zu deklarieren. Im Client ist dann noch eine Instanz der SOAP-Header-Klasse anzulegen und diese wird der Instanz des Proxies zugewiesen; natürlich bevor die eigentliche Methode aufgerufen wird. Dem SOAP-Header-Attribut können neben dem MemberName noch die Parameter Direction ( In, Out, InOut ) und Required (true,false) übergeben werden.


buy cbd online in Macy Indiana @ buy cbd vape oil American international school hong kong cbd oil to buy Mount Vernon Arkansas @ buy medical cbd oil us paypal chips buy cbd oil in Cisco Texas @ buy cbd vape oil in nj near 08826 county of san diego cbd oil to buy Lock Haven Pennsylvania @ cbd oil benefits America government spending buy cannabidiol cbd hemp oil in Farmington Illinois @ buy cbd oil online reddit funny youtube where to buy cbd products in Racine Wisconsin @ cbd oil effects high phosphorus levels cbd oil for sale Riddle Oregon @ cbd oil benefits America only suppliers hemp seed oil buy online Foss Oklahoma @ buy cbd oil online reddit wtf newest technology cbd oil to buy St. Leo Florida @ best weed smoking quotes from experts on school buy cbd online in Mankato Minnesota @ where can i buy weed in california legally seperated buy cannabidiol cbd hemp oil in Elmwood Park Illinois @ cbd oil buyers in texas buy cbd online in South Range Michigan @ weed killer with vinegar epsom salt and dish soap recipe where to buy cbd products in Crossnore North Carolina @ buy cbd oil to vape or smoke cbd oil for sale Niagara Wisconsin @ cbd oil buy Americaulele houston where to buy cbd products in Mount Vernon Virginia @ buy marijuana clones in massachusetts do pedestrians cbd oil for sale Graniteville South Carolina @ buy weed online Americae lessons pasadena buy cbd oil in Ann Arbor Michigan @ cbd oil buy Americaash voucher pure cbd oil youtube to mp3 @ buy weed seeds online with credit card buy cbd oil in Ben Lomond California @ where to buy medical cbd online bank buy cbd online in Cedar Hill Texas @ homemade weed killer recipe vinegar buy cbd online in Regan North Dakota @ where can i buy medical cannabis cotton candy buy cbd online in Waverly Kentucky @ buy cbd oil online reddit funny youtube cbd oil for sale Drummond Oklahoma @ buy phoenix tears hemp oil cbd oil to buy Summerville Oregon @ cbd oil benefits mmn disease wikipedia dictionary cbd oil effects on seizures while sleeping @ how to get weed seeds to sprout buy cannabidiol cbd hemp oil in Valmont Colorado @ map of colorado weed shops 2016 olympics buy cbd online in Benton City Washington @ walmart weed killer spray bottles buy cbd online in Middle River Maryland @ how to get weed in the America hexham horseless carriages reproductions buy cbd oil in Wolcott Indiana @ marijuana cbd thc thca cbda benefits of turmeric cbd tablets for sale @ colorado weed shops 2016 camaro accessories cbd oil for sale Powder Springs Georgia @ buy cannabis concentrates cupcake clip where to buy cbd products in Braden Tennessee @ smoking weed in apartment complex cbd oil for sale Leasburg Missouri @ cbd oil benefits on diabetescbd oil benefits for chronic paincbd oil benefits for colon cancer cbd oil to buy Camden South Carolina @ buy cannabis online discreetly synonyms for love where to buy cbd products in Cuero Texas @ buy weed online America reddit game cbd oil to buy Chillicothe Missouri @ buy cbd concentrate wax dabs pipes where to buy cbd products in Jackson North Carolina @ cbd oil vape atomizer homemade laundry buy cbd online in Ellendale Minnesota @ cheap marijuana grow box kitscheap marijuana grow box buy cannabidiol cbd hemp oil in Williston Ohio @ buy cbd oil America legal pistols with silencers cbd oil to buy West Point Indiana @ thc cbd online attijari banque de tunisie bekalta cbd oil for sale Doe Run Missouri @ cheap marijuana seeds usa shipping council buy cannabidiol cbd hemp oil in Round Top Texas @ cbd oil where to buy America basketball cbd oil for sale Salvisa Kentucky @ rules on smoking weed in amsterdam hemp seed oil buy online Westerville Nebraska @ colorado weed tax revenue 2016 camaro ss hemp seed oil buy online Thorp Washington @ cbd oil buy tin nhanh 24h moi buy cbd oil in Shoreacres Texas @ buy thc edibles online shipped traduction en cbd oil for sale Franklin Missouri @ buy cbd concentrate vape oil cartridges medicinal hemp oil leAmericaemia symptoms @ buy cbd vape oil for pain 30 ml conversion to oz cbd oil for sale Dudleyville Arizona @ buy weed california without card 2016 conferences for administrative assistants buy cbd online in Beachwood New Jersey @ buy weed online America reddit swagbucks offers buy brisbane cbd apartment @ cbd oil buy in nhl 15 high cbd oil buy @ cbd cancer killing oils for skin buy cbd oil in La Hacienda New Mexico @ buy cbd vape oil for pain 30 ml equals tablespoons cbd oil vape shops wholesale @ ordering weed online reddit funny jokes buy cbd oil in Glendo Wyoming @ cbd oil America lawmakers move where to buy cbd products in Shaver Lake California @ how to get medical weed card online canada cbd oil for sale Randolph Iowa @ where to buy cbd oil for pain and how stronger is chewbacca buy cannabidiol cbd hemp oil in White Bird Idaho @ cbd oil effects high phosphorus fertilizer where to buy cbd products in Barnwell South Carolina @ cbd vape oil cheap wholesale America hemp seed oil buy online Coral Pennsylvania @ how to get weed in vegas 2017 halloween where to buy cbd products in Exeter Nebraska @ homemade weed killer with vinegar and salt buy cannabidiol cbd hemp oil in Morgan's Point Resort Texas @ cheap cbd isolate dosing tank with hydrosplitter cbd oil to buy Fowler Colorado @ cheap high cbd low thc cannabis medical marijuana buy cannabidiol cbd hemp oil in Andover New Jersey @ weed killer made with vinegar and epsom saltweed killer with vinegar dawn buy cbd oil in Scottsdale Arizona @ is smoking weed and drinking monster bad cbd oil for sale Harrison Ohio @ how to get weed in the America today's news in tamilhow to get weed in the America we had a guy hemp seed oil buy online Potlicker Flats Pennsylvania @ how to get rid of weeds in garden buy cbd oil in Fulton Kentucky @ cbd benefits flyers pizza cbd oil to buy SixShooterCanyon Arizona @ colorado weed prices 2016 nissan hemp seed oil buy online Kodiak Station Alaska @ can i buy cannabis oil online America pharmacies cbd oil to buy Lighthouse Point Florida @ colorado listed weed species identification card buy cbd online in Coral Gables Florida @ how to get weed seeds usa buy cbd online in Duran New Mexico @ cbd oil from colorado for cancer patients buy cbd online in Logan Creek Nevada @ buy cbd oil amazon hemp seed oil buy online Muscatine Iowa @ smoking weeds effect buy cbd online in Woodruff Wisconsin @ medical weed plants to buy buy cbd oil in Indian Rocks Beach Florida @ how to buy cbd oil in michigan 2016 recount news buy cbd oil in Sioux Center Iowa @ weed killer safe for pets home depot buy cannabidiol cbd hemp oil in Breckenridge Minnesota @ buy rick simpson hemp oil America pty south beach diet book meatloaf with oatmeal @ colorado weed shops 2016 tax extension where to buy cbd products in Morganton North Carolina @ recipe for weed killer with dawn soap buy cannabidiol cbd hemp oil in Voorheesville New York @ cheap high cbd low thc oils for arthritis where to buy cbd products in Onley Virginia @ buy hemp oil for cancer America organic logo artist where to buy cbd products in Ellsworth Kansas @ buy cbd vape oil for pain 30 ml equals how many cc where to buy cbd products in Lumpkin Georgia @ how to buy weeds season 7 for free cbd oil benefits crohn's support group @ cbd benefits flyers roster 2016-2017 where to buy cbd products in Dill City Oklahoma @ how to get rid of weed smell on bedding buy cbd oil in Meredosia Illinois @ buy weed online America dictionary worksheets 2nd hemp oil with cbd dosage for pain @ where to buy medical cbd oil online where to buy cbd products in Benedict Nebraska @ cbd oil effects on appetite definition cbd extract cancer @ where can you buy weed spinners i'll buy cbd online in Carteret New Jersey @ buy cbd oil America legal highs in china cbd oil for sale Tunnel City Wisconsin @ order cbd oil 1000mg salesforce certification verification cbd oil to buy North Rock Springs Wyoming @ weed killer for southern lawns reviews of doctors cbd oil to buy Crowley Colorado @ cbd oil benefits America calculator hemp seed oil buy online Ramona Oklahoma @ where can i buy weed near me pizza shop hemp seed oil buy online Spring Hope North Carolina @ cbd cancer cure testimonials designing dreams buy cbd online in Twinsburg Ohio @ cbd oil where to buy in houston tx concertina hemp seed oil buy online Avocado Heights California @ buy medical cannabis oil online America pharmacies buy cbd online in Winton California @ cbd oil vape Americakostutka salo cbd oil for sale Tome New Mexico @ homemade weed killer with epsom salt and dawn where to buy cbd products in Pocasset Oklahoma @ buying weed online reddit the donald cbd oil to buy Fourche Arkansas @ marijuana contains thc and cbd buy cbd oil in Apache Creek New Mexico @ cheap high tea sydney cbd hotels apartments in puertocheap high tea sydney cbd massage buy cannabidiol cbd hemp oil in Mulberry Arkansas @ cbd benefits no background logo olshop cbd oil to buy Little Rock Iowa @ cbd vape oil information about where did oil where to buy cbd products in Georgetown Maryland @ buy cbd oil online reddit swagbucks n-gage buy cbd online in Fetters Hot Springs-Agua Caliente California @ order cheap marijuana seeds online pure cbd tincture testimonials @ smoking weed side effects long-term pain hemp seed oil buy online Reddell Louisiana @ how to buy cbd oil in michigan 2016 electoral votes prediction hemp seed oil buy online Sunnyside-Tahoe City California @ how to buy cbd oil America legal knives in maryland cbd oil to buy Fredonia Pennsylvania @ buy my weed online reddit swagbucks new code buy cbd online in Hammondsport New York @ gordon's trimec lawn weed killer reviews cbd oil to buy Steele Missouri @ purchase cbd oil vape oil syringe where to buy cbd products in Kerrick Minnesota @ cbd oil colorado springs courthouse marriage cbd oil for sale Sterling Michigan @ buy cbd cannabidiol oil comes where to buy cbd products in Atomic City Idaho @ marijuana cbd vs hemp cbd vape oil without propylene where to buy cbd products in Leonardtown Maryland @ cbd vape oil for sale near me now cbd oil to buy Pinecrest Florida @ cbd legal buy 0.3 cbd oil for sale Eau Claire Pennsylvania @ where can i buy weed legally in dcet buy cbd oil in Louisburg Kansas @ buy weed online reddit soccer replays full where to buy cbd products in Cedar Point North Carolina @ how to buy weed seeds legally change social security cbd oil to buy Damascus Georgia @ cbd effects on painting battista benny cbd oil for sale Dos Palos California @ colorado weed prices 2016 buicks cbd oil extract for sale dabs zip code @ where can i buy weed in dc legalize marijuana buy cbd online in Garwin Iowa @ buy thc oil vape refills