g_nikolai

Versuch mal anstatt dem MSFlexgrid ein MSHFlexGrid zunehmen. Ich glaube da gab es immer Probleme mit dem normalen FlexGrid ein RS anzubinden. also ein Hierarchical FlexGrid Gruß Guido

das objConn ist eine offene Connection auf die DB. Du kannst ein solches Object einfach erstellen indem Du: dim objConn as adodb.connection ' Öffnen der Verbindung mit DSN und ODBC-Tags. Set objConn = New ADODB.Connection objConn.ConnectionString = "DSN=LOGBUCH;UID=testuser;PWD=testpw;" objConn.Open so sollte die Connection dann geöffnbet sein. den Zustand kannst du dann über .State erfahren guido

is klar. und was macht die Function GetText?? weil da passiert ja wohl der eigentliche Teil der Funktion. ?? Hast du davon auch den Code? Guido

du kannst die variable am besten erstmal initialisieren, indem Du intZahl=0 setzt und dann kannst du einfangen der Variable den neuen Wert zuzuweisen. Kommt den immer das gleiche zurück wenn du nicht online bist und es ausprobierst? oder steht iommer etwas anderes in der Variable? wie macht du den die abfrage auf den Server? Guido

1. öffnest du eine DB Connection 2. erstellen einer SQL-Abfrage mit dem was du aus der DB haben möchtest zum anzeigen 3. erstellen eines RS mit dim rs as adodb.recordset set rs = new adodb.recordset set rs.activeconnection = objConn rs.source = "Deine Abfrage" rs.open set flexgrid.datasource = rs ' somit sollte alles im Flexgrid zur anzeige sein. 'das rs solltest du nach dem anbinden meine ich nicht schließen Gruß Guido

das muss nicht unbedingt so sein. man kann den inhalt auch über den Index bekommen. Aber du solltest die doppelte Initialisierung rausnehmen. denn Du hast einmal: DIM rs as New Adodb.Recordset und dann noch Set rs = New Adodb.recordset geschrieben. nimm das Dim rs as new ADODB.Recordset raus. also nur Dim rs as ADODB.Recordset dann sollte es eigentlich funktionieren. Gruß Guido

also ich mach es normalerweise so: Dim lstItem As ListItem '* Records auslesen aus DB in mein Object Set objDocList = New clsBISdocumentlist Call objDocList.Read(lngEnterpriseID) For lngCount = 1 To objDocList.Count Set lstItem = UserControl.lvwDocuments.ListItems.Add(, "K" & objDocList.DocumentID(lngCount) & "_" & objDocList.DataPropID(lngCount), objDocList.DocumentType(lngCount)) lstItem.SubItems(1) = objDocList.InterchangeType(lngCount) & " - " & objDocList.DataInterchangeName(lngCount) lstItem.SubItems(2) = objDocList.Status(lngCount) lstItem.SubItems(3) = objDocList.StatusSince(lngCount) lstItem.SubItems(4) = objDocList.ReadyAt(lngCount) lstItem.SubItems(5) = objDocList.Comment(lngCount) lstItem.SubItems(6) = objDocList.StatusID(lngCount) lstItem.SubItems(7) = objDocList.DataPropID(lngCount) 'lstItem.SmallIcon = SetIcon(objDocList.StatusID(lngCount)) Set lstItem = Nothing Next lngCount die ist das füllen meines Listviews. Vorher auf der Form noch das ListView anlegen und Spalten erzeugen. die Spalten kannst du aber auch im Code erstellen und dann füllen. muss also nicht statisch sein. Gruß Guido

ach jetzt is mir alles wieder eingefallen. schau mal hier http://vb-tec.de/subclass.htm gruß Guido

aha und wo hat sie das???

ja das ist war aber ich bin jetzt einfach mal davon ausgegangen das er das normale Textbox Control meint undkein besonderes. Den das Textbox Control hat die funktion nicht soweit ich das weis. Guido

was meinst du den damit?? Du kannst für jedes Control ein Mouse_Up Ereignis abfangen. und dabei prüfen ob es sich um die Rechte Teste handelt oder nicht. Das Kontextmenü kommt ja auch nur durchs programmieren zum vorschein. Zumindest ist es bei mir so. Guido

das würd ich auch mal versuchen und ansonsten sind es wirklich "," die in deiner Abfrage benutzt werden?? oder sieht es eigentlich so aus?? Sum(IIf([Ausbildungsjahr]=1 And [dauer]>740;(([Methodenkompetenz]*0.15)/[eins]); IIf([Ausbildungsjahr]=1 And [dauer]<740,(([Methodenkompetenz]*0.4)/[eins]),0))) AS M1 also mit ";" Guido

es gibt halt schon unterschiede in diesen beiden Controls. ich nutze das ListView meist weil ich mehrere Spalten benutze um mehr anzeigen zu können und von der Handhabung sonst ist es nicht viel schwerer als eine ListBox. Guido

welches Control meinst du??? auch eine Listbox ist ein Control! Guido

ich würde dir ein ListView Control empfehlen damit kann man mehr machen. Aber so wie |roTekuGeL| es beschrieben hat sollte es funktionieren. Gruß Guido

natürlich sollte die Variable intIndex auch einen sinnvollen wert haben. Also wen er beim Zuweisen in das Array größer ist als Das Array dimensioniert wurde ist es ganz normal das man eine Fehlermeldung bekommt mit Index ausserhalb .... Also am besten ist du weist wie groß das Array sein soll und machst Dim arrTest (5) as string oder wenn du es nicht wissen solltest dann mit dim arrTest() as string dann im Quellcode irgendwo vor dem füllen des Arrays: intIndex = 12 redim arrTest(intIndex) und dann kannst du mit der 0 - intIndex-1 in das Array Werte eintragen. Gruß Guido

also bei mir funktioert es ohne Problem das ich Excel als Object benutzte. Ich hab zum schliessen diesen Code objExcel.ActiveWorkbook.SaveAs strFilePath, 11 ' xlDBF4 = 11 '** Keine Meldung beim Schließen anzeigen objExcel.ActiveWindow.Close '** objExcel schließen objExcel.Quit Set objExcel = Nothing gruß guido

hast du mehrer Formulare in deinem Projekt?? dann solltest du auch alle Formulare entladen. mit for each frm in Forms frm.unload next frm

versuch es mal damit Private Sub cmdFormat_Click() ' First, change the chart type to a 3D chart to ' see all the parts of the plot. MSChart1.chartType = VtChChartType3dArea ' Color the backdrop light blue using ' the Plot object. With MSChart1.Plot.Backdrop ' No color will appear unless you set the style ' property to VtFillStyleBrush. .Fill.Style = VtFillStyleBrush .Fill.Brush.FillColor.Set 100, 255, 200 ' Add a border. .Frame.Style = VtFrameStyleThickInner ' Set style to show a shadow. .Shadow.Style = VtShadowStyleDrop End With ' Color the wall of the plot yellow. With MSChart1.Plot ' Set the style to solid. .Wall.Brush.Style = VtBrushStyleSolid ' Set the color to yellow. .Wall.Brush.FillColor.Set 255, 255, 0 End With With MSChart1.Plot ' Color the plot base blue. .PlotBase.BaseHeight = 200 .PlotBase.Brush.Style = VtBrushStyleSolid .PlotBase.Brush.FillColor.Set 0, 0, 255 End With End Sub Guido

den IN () Ausdruck gibt es auch beim SQL Server, der sollte für diesen Zweck hilfreich sein. brauchst dann nur eine liste mit den KundenIDs zu erstellen und die Abfrage zusammenstellen.

dann wird beim beenden des Formulars oder so die Connection nicht richtig geschlossen und deshalb stehen diese Daten noch in der Datei

Du könntest dir eine Funktion bauen mit der Du das Object und den Filename übergibst. Dann soll die Funktion durch alle eigenschaften laufen und speichern! ?? Vielleicht geht es.

Ich habe da zwei Probleme mit einer ListView. Ich hoffe ihr könnt mir da weiterhelfen. Erstes Problem: Die ListView Spaltenbreite kannst Du immer nur in einer länge haben, also nur Spaltenweise anpassen. Zweites Problem: Du kannst eine weitere Spalte zum Listview hinzufügen. In der E-Umgebung auf das Listview klicken (Eigenschaften) und dort unter Spaltenköpfe eine neue Spalte hinzufügen. Dann kannst Du per Code mit Dim lstItem as Listitem Set lstItem = me.ListView.Listitems.add(,,"TEst") lstItem.Subitems(5) = "Ja/Nein" Subitem(5) spricht die fünfte unterSpalte an nach dem ersten eintrag. Gruß Guido

Wo möchtest du das den machen?? VB oder VBA Excel???

Du kannst einen Report in VB6 erstellen und diesen mit den Daten eines RS füllen lassen oder auch über die DE (DataEnvironment) mit einer Procedure verknüpfen. Nachdem Du dies getan hast erstellst du dein Report und kannst dann per Code diesen Aufrufen und dann auchdrucken. entweder direkt ohne Voransicht oder mit Voransicht. Guido