Accessing Publication Properties From Visual Basic (VB6)
Jul 23, 2005
Hi all,
I have an existing application that checks a few things before it
launches another application. One thing that the application needs to
check is the subscription properties of both the local database and the
remote (LAN) server.
I've stumbled upon some properties but I am trying to fit in the last
ones and I can't seem to find the right code to accomplish this... Can
anyone shine a little light on this please ?
The following code queries the SQL Server (remote) to get (some of) the
properties of the replicated database. What I would like to fit in
after the 'state' are the properties that you can retrieve with the
EnumAllSubscriptions function. However, I can't seem to find the right
object (sample code) to retrieve those (or I'm just overlooking the
obvious)...
Here is (part of) the code I'm using to query the publication on the
remote server :
Dim oMergePublication As SQLDMO.MergePublication2
Dim oSubscription As SQLDMO.MergeSubscription2
Me.lstPublications.Clear
For Each oReplicationDatabase In
objSQLSERVER.Replication.ReplicationDatabases
If oReplicationDatabase.Name = Me.txtSQLServerDatabase.Text
Then
For Each oMergePublication In
oReplicationDatabase.MergePublications
bFoundReplicated = True
Me.lstPublications.AddItem "Database replicated as
'" & oMergePublication.Name & "'"
For Each oSubscription In
oMergePublication.MergeSubscriptions
Me.lstPublications.AddItem " - subscriber
:" & oSubscription.Subscriber
Me.lstPublications.AddItem " - local
DB :" & oSubscription.SubscriptionDB
Me.lstPublications.AddItem " -
state :" & GetReplStatus(oSubscription.Status)
Next
Next
'For Each osubscriber In oReplicationDatabase.
'Next
End If
Next
Set oReplicationDatabase = Nothing
Set oMergePublication = Nothing
After this, I also want to check the local DB (=pulled subscription)
and show some of the properties (from EnumAllSubscriptions). For
example to warn the user about the need to synchronise (last_updated
value)...
Any help appreciated,
Many thanks
GB
--
Your eyes are weary from staring at the CRT. You feel sleepy. Notice
how restful it is to watch the cursor blink. Close your eyes. The
opinions stated above are yours. When I snap my fingers, you cannot
imagine why you ever felt otherwise. <snap>
View 2 Replies
ADVERTISEMENT
Jan 22, 2007
Hi,
We have an issue with our replication configuration when viewed through replication monitor. Parameterised Filters and joined filters don't appear in the gui. However, when we script the publication all the filters are present.
This issue only seems to occur when we have a remote distributor.
I should also point out that we have a merge push topology that uses a custom RMO synchronisation component on a separate server to either the publisher or the distributor. Also all the databases in the topology are called the same name. This has caused us other issues relating to this topology in particular so I raise it here as well although I don't expect it to be the case in this instance.
Any help would be greatly appreciated in clarifying this matter.
View 1 Replies
View Related
Aug 2, 2007
I have a ScriptTask, in the designer I've given it a name. Is there a way at runtime to pick up that name from within the code in the ScriptTask?
View 3 Replies
View Related
May 11, 2007
I am attempting to set my custom properties in the UI I have created for my custom transformation. I can access them in the ProcessInput, but if I try to assign them a new value in my UI the values dont change.
I set the properties up in ProvideComponentProperties
public override void ProvideComponentProperties()
{
// Perform component setup operations
ComponentMetaData.UsesDispositions = false;
// Add Input
IDTSInput90 input = ComponentMetaData.InputCollection.New();
input.Name = "TrimInput";
input.ErrorRowDisposition = DTSRowDisposition.RD_NotUsed;
// Add Output
IDTSOutput90 output = ComponentMetaData.OutputCollection.New();
output.Name = "TrimOutput";
output.SynchronousInputID = input.ID;
IDTSCustomProperty90 Trimproperty = ComponentMetaData.CustomPropertyCollection.New();
Trimproperty.Name = "Trim Values";
Trimproperty.Description = "Selected Trim Values";
IDTSCustomProperty90 Colproperty = ComponentMetaData.CustomPropertyCollection.New();
Colproperty.Name = "Col Names";
Colproperty.Description = "Column Names";
}
btn Click event in UI form
IDTSCustomProperty90 Trimproperty = _dtsComponentMetaData.CustomPropertyCollection["Trim Values"];
Trimproperty.Value = sConcatTrim;
IDTSCustomProperty90 Colproperty = _dtsComponentMetaData.CustomPropertyCollection["Col Names"];
Colproperty.Value = sConcatColNames;
Any suggestions or please point me to any example would be greatly appreciated.
View 3 Replies
View Related
May 15, 2001
I have already created package which loads a text file to database using the dts wizard in Enterprise Manager.How do I execute that package using visual basic?Please provide the Code!!!Thanks
View 2 Replies
View Related
Jan 19, 1999
I need help.
160821A network error was encountered while sending results to the front end. Check the SQL Server errorlog for more information.
I need help.
Our SQL Server is crashing. The Database is still recovering. I can not kill any Process when the Server crashed. I shoot down and restarted the server. Nothing to do. I can not access to the database. It is recovering. How long? I do not know. What can be the reason of the recovering? Nor the event log of Windows NT or the log files of the SQL SERVER can help me.
Here is a part of the log file
23216Arithmetic overflow error for type %s, value = %f.
10915There are more columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.
99/01/19 01:14:25.69 spid25 bufwait: timeout, BUF_IO, bp 0x1bba600, pg 0x11b50, stat 0x801000/0x6, obj 0x23494814, bpss 0x124a2a0
99/01/19 01:14:27.15 ods Error : 17824, Severity: 10, State: 0
99/01/19 01:14:27.15 ods Unable to write to ListenOn connection '.pipesqlquery', loginname 'sa', hostname 'myserver'.
99/01/19 01:14:27.15 ods OS Error : 232, The pipe is being closed.
View 4 Replies
View Related
Oct 22, 2004
Anyone know any good Visual Basic .NET STep By Step books for an almost beginner.
View 2 Replies
View Related
Feb 27, 2008
What code can I write so that the output is in US dollars?
View 3 Replies
View Related
Mar 22, 2007
Greetings,
Firstly, apologies if this topic is out of the scope of this board, but I am stumped.
Basically, we have an old Visual Basic 6.0 application which currently accesses an Access database, but which we would like to upgrade to an SQL compact edition database. I have created the database, but have so far turned up next to no details reagarding how to connect to the damn thing in VB6.
Can anyone help? Or at least point me in the right direction?
Many thanks,
MadSkunk
View 11 Replies
View Related
Oct 25, 1999
I want to use Visual Basic to create DTS connection. In the example below a connection is created using an ODBC string. However, I would like to make the Connection's DataSource be an OLE-DB provider instead of ODBC. However, I cannot find any information on the syntax for using an OLE-DB provider as the DataSource.
Your help is appreciated.
Les
strODBCdsn = "server1" 'Create a DSN called SQL7 or change name
strUserName = "sa" 'User name assume same source and dest
strPassword = "" 'with the same Password
Set oConnection = oPackage.Connections.New
oConnection.ID = 1
oConnection.DataSource = strODBCdsn
oConnection.UserID = strUserName
oConnection.Password = strPassword
oPackage.Connections.Add oConnection
View 2 Replies
View Related
Jan 6, 2005
Anyone have any code i can use to call a DTS package from Visual Basic. I would like to have an outlook macro that will run a dts package when i receive an email. All i need is the code that will call a dts package for a sql server that is not local to the box. I've tried this code but i get an error
run_tmie error '-2147217900 (80040e14)' automation error
Public Sub main()
Dim oPkg As DTS.Package2
Set oPkg = New DTS.Package2
oPkg.LoadFromSQLServer MyServerName, MyUserName, MyPassword, , MyDTSPackageName
oPkg.Execute
oPkg.UnInitialize
Set oPkg = Nothing
End Sub
Thanks in advance.
View 1 Replies
View Related
Jan 3, 2004
Hi experts I am new to SQL Server and have got to do a project using VB & SQL Server. right now i got to prepare case study document wherein i got to mention the pros & cons of using VB+sql server... kindly help me. Thanks in advance.
View 1 Replies
View Related
Jun 19, 2006
hi
i found these books for learnning sql server
which better to read for Visual Basic Developer ??
http://www.sqlserver2005books.com/1-3805-0735622507-%20Microsoft_SQL_ServerTM_2005_Reporting_Services_Step_by_Step_Step_by_Step_Microsoft.html
------------------------
http://www.sqlserver2005books.com/1-3805-0735622078-%20Microsoft_SQL_ServerTM_2005_Database_Essentials_Step_by_Step_Step_By_Step_Microsoft.html
thank you
View 2 Replies
View Related
Dec 14, 2006
I use SQL Server 2005 Compact Edition RC1 with Visual Basic 6.0. connection provider that i use is Microsoft.SQLSERVER.MOBILE.OLEDB.3.0. for database management i use SQL Server Management Studio. some query can't execute in visual basic but in sql management studio, that query can run very well. for example:
1. select KodeSatker, KodeSatker + ' - ' + Nama as Nama from TMSatker where len(kodesatker)=3 order by KodeSatker
2. Select a.kdprog, a.nama, b.kodesatker + ' - ' + b.nama as SKPD, a.nonurusan from TMProgram a left join TMSatker b on substring(a.kdprog, 1, len(a.kdprog) - 2) = b.kodesatker
2 query above can run in sql management studio, but in visual basic 6.0, that query have an error.
error msg:run time error '2147217887 (80040e21)':
multiple-step operation generated errors. check each status value
how to solve that problem?
thanks before.
View 5 Replies
View Related
Aug 23, 2007
When one deploys a CLR DLL that contains [SqlFunction]'s, Visual Studio creates three extended properties on the SQL function that is created: these are,
AutoDeployed, SqlAssemblyFile, SqlAssemblyFileLine.
What I haven't found anywhere on Help or MSDN online is what these extended properties mean.
Could someone enlighten me?
1. What is a description of the above properties?
2. What is the benefit of using them (clearly the function works without using them). Does it help debugging?
3. Does the developer need to manually keep for instance the SqlAssemblyFileLine in sync with changes in the .NET code?
Thanks a lot.
View 1 Replies
View Related
Jun 1, 2008
I'd like to be able to query a database to get the value of a
certain row. However, I'd like to save this value into a variable
and use them as I'd like, NOT nessessarily display them in a data
control such as a gridview etc. I've been able to find a lot of
information on binding datasourses to predefined data controls, but I
can't find anything on simply querying a database for values and using
those values to display a page as I want.My basic end goal is to create what's basically a shopping site like Amazon only for about 100 or so products.Thanks
in advance for any help. I'm just getting into Visual Web
Developer so please excuse my ignorance and lack of posts.
View 2 Replies
View Related
Feb 20, 2003
I am creating a program in VB .NET to insert an image in one of the fields in MS SQL2000.
VB variant type DIM'd as "Image", SQL field type is "Image". I cannot get the SQL insert statement to work. I'm trying to get a single insert statement to fill all fields in the row, one of which is image.
error=Operator '&' is not defined for types 'String' and 'System.Drawing.Image'
The '&' symbol is used to concatenate the SQL statements items
Any easy way to store an image?
View 3 Replies
View Related
Aug 3, 2001
is there any way to use Visual Basic and MSSQL without using ODBC?
please let me know.
View 1 Replies
View Related
Jan 12, 2005
I have created a rule in outlook to run this Visual Basic Script when I receive a specific email. The codes runs a SQL Server DTS Package that imports data and runs a couple of stored procs. If the DTS package takes a while to execute my outlook will lock up until the entire package is complete. I want to run the DTS package to run but I don’t want the application to remain locked till its complete. Anyone have any ideas of how to get around this....
Public Sub RunTVDTSPackage(Item As Outlook.MailItem)
Dim oPackage As New DTS.Package
On Error GoTo eh
oPackage.LoadFromSQLServer "DummyServerName", "DummyUser", "DummyPSWd", _
DTSSQLStgFlag_Default, _
"", "", "", "Top_Customer - TV", 0
'Execute the Package
oPackage.Execute
'MsgBox oPackage.Description, vbInformation, _
"Re-import Excel sheet."
'Clean up.
MsgBox ("Ran DTS Package")
Set oPackage = Nothing
Exit Sub
eh:
MsgBox Err.Description, vbCritical, _
"Error Running Package"
End Sub
View 3 Replies
View Related
Feb 21, 2005
Hello, I am workink with a Database that has the Collate SQL_Latin1_General_CP437_CI_AS (Instance and Database-SQL2000), this convert the Database in a OEM Server.
I Can save Characters From 0 to 256 ASCII code CP 437 very well on the database (I import this Data with an DTS) but when i retrive the information with Visual Basic 6.0 with ADO some character > 127 are changed.
Did you know how I can fix It ?
I know that the problem is that Windows is ANSI and my SQL Server OEM, but .. a dont´t know how yo fix it.
Thanks I sorry because my poor english. :(
Walter
Argentina
View 8 Replies
View Related
Jan 11, 2007
First i am newbie in vb and Sql server...
Is possible to create and attaching, via vb classic or VBA, a sql
database in this instance:\DVD377-14D9E48CSQLEXPRESS...
I have Sql Express.
Database name: mydatabase
Database Table: mytable
fileds:
fiedl1 text format
fiedl2 text format
fiedl3 text format
fiedl4 date format
fiedl5 number format
fiedl6 text format
View 2 Replies
View Related
Apr 17, 2004
Hi Everyone,
I would like to know any good reference books or online material about using DTS Object Model in Visual Basic.
Thanks in advance.
With Regards,
kalyan
View 4 Replies
View Related
Jan 11, 2007
First i am newbie in vb and Sql server...
Is possible to create and attaching, via vb classic or VBA, a sql
database in this instance:\DVD377-14D9E48CSQLEXPRESS...
I have Sql Express(msde).
Database name: mydatabase
Database Table: mytable
fileds:
fiedl1 text format
fiedl2 text format
fiedl3 text format
fiedl4 date format
fiedl5 number format
fiedl6 text format
View 3 Replies
View Related
Feb 22, 2007
Hi i am trying to trying to delete a reocrd from a Microsoft Access Database in Visual Basic 2005 Express Edition, but come up with this error with the following code. I'm new to vb 2005 and I'm no expert. Appreciate any help given.
-----------------
InvalidCastException was unhandled
Unable to cast COM object of type 'System.__ComObject' to class type 'System.Windows.Forms.TextBox'. Instances of types that represent COM components cannot be cast to types that do not represent COM components; however they can be cast to interfaces as long as the underlying COM component supports QueryInterface calls for the IID of the interface
Dim db1 As Connection
Dim rs As Recordset
db1 = New ADODB.Connection
db1.Provider = "Mircosoft.jet.OLEDB.4.0;"
db1.ConnectionString = "Provider = 'Microsoft.Jet.OLEDB.4.0';Data Source = 'M:Year2 New262CSvb cwrk1vb cwrk1orders.mdb';"
db1.Open()
rs = New ADODB.Recordset
rs.Open("select * from orders", db1, ADODB.CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)
txtOrderID = rs("OrderID")
txtProduct = rs("Product")
txtPrice = rs("UnitPrice")
txtQuantity = rs("Quantity")
txtDate = rs("OrderDate")
txtRecieved = rs("Received")
txtSupplierID = rs("SupplierID")
Also when i try to add a record to a database i get the following error i have made sure all the data i have typed in the text boxes are the correct data types.
COME Exception was unhandled
No value given for one or more required parameters.
Dim objcommand As Command = New Command()
Dim conn As Connection = New Connection()
Dim cmdreader As Recordset = New Recordset
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=M:Year2 New262CSvb cwrk1vb cwrk1orders.mdb")
objcommand.ActiveConnection = conn
Dim stqSQLInsert As String
stqSQLInsert = "INSERT INTO Orders(OrderID, Product, Unitprice, Quantity, Orderdate, Received, SupplierID) VALUES (txtOrderID.Text, txtProduct.Text, txtPrice.Text, txtQuantity.Text, txtDate.Text, txtReceived.Text, txtSupplierID.Text)"
objcommand.CommandText = stqSQLInsert
cmdreader.Open(stqSQLInsert, conn, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)
objcommand.Execute()
cmdreader.Update()
Thnx to any who helps...
View 3 Replies
View Related
Jun 15, 2007
Please help me, i am having trouble in Adding data in MySQL Database, and even in Getting or retrieving Data as well.
I use the connection string of Visual Basic 6.0 (ODBC 3.51). Nothing goes wrong with the connection but in updating and adding new data in the MySQL Database then...that's it, nothings go Right!
Please help me in this matter, or can somebody to please give me some simple codes like Address Book using the Visual Basic 2005...
pls pls pls pls pls.... thanx a lot!!!
polarmont@yahoo.com
View 1 Replies
View Related
May 8, 2008
Has anyone experienced problems calling stored procedures that references syscomments.text from Visual Basic 6?
I have a stored procedure that finds all tables referenced by a specific stored procedure. It works well when I call it from SQL Server Management Studio, but there are cases where it does not find the tables when I call it from VB 6.
I've isolated the failure it to a specific condition in the WHERE clause:
SELECT @howfar = so.id
FROM SYSOBJECTS so
LEFT OUTER JOIN syscomments sc on so.ID = sc.ID
Where lower(so.name) = lower('storedProcName')
AND lower(sc.TEXT) LIKE '%' + lower('update') + ' ' + lower('tableName') + '%'
The call from VB works (finds the record) if
" AND lower(sc.TEXT) LIKE '%' + lower('update') + ' ' + lower('tableName') + '%' "
is omitted, and fails (does not find any records, no error is raised) if that condition is included.
I should also add that the VB Call does work for some combinations of stored procedures and tables.
The old SET NOCOUNT ON trick does not make any difference.
View 4 Replies
View Related
Apr 21, 2008
Let me get VERY specific.
This site has 40+ pages Using VWD 2008 (Studio 2008)
I have created in local IIS7 (129.0.0.2) http://cumc.lcl
Navigation.master, Web.config and Web.sitemap alll are structured
And all 40+ pages have been built.
NOW I added (using VWD) a sql server database named pagedata.mdf
With a table named: pages
and fields:
PageID - Primary Key (auto numbered)
pagename - nchar(30) exmp Default
hitcount - numeric(18,0)
createdate - nchar(15) exmp 04/18/2008
updated - nchar(15) similar to createdate
hitdate - nchar(15) similar to createdate
bottom of each page is to show 99999 visitors
and under that is to be Updated on mm/dd/yyyy
On pageload should accomplish the following increment the hitcount
field and save it and display it in HitLabel.text
Set UpdateLabel.text to updated field
Save the date the page was hit in hitdate field. (will only show when last hit)
The "tester.aspx" page now has:
<%@ Page Language="VB" MasterPageFile="~/Navigation.master" Title="tester" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
</script>
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server"></asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<p align="center">This page is for various tests<br />and will NOT be site mapped.</p>
<p align="center"></p>
<p align="center">
Can this SqlDataSource be moved into Sub Page_load above?
How do I extract, process and save the Hit and Date data
for each individual page referenced by pagename field?
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStringsageConnect %>"
SelectCommand="SELECT * FROM [main] WHERE ([pagename] = @pagename)">
<SelectParameters>
<asp:QueryStringParameter Name="pagename" QueryStringField="thispage"
Type="String" />
</SelectParameters>
</asp:SqlDataSource>
</p>
<p align="center">
<asp:Label ID="HitLabel" runat="server"></asp:Label>
Visitors<br />
Updated on <asp:Label ID="UpdateLabel" runat="server"></asp:Label>
</p>
</asp:Content>
View 2 Replies
View Related
Jul 10, 2007
Hello,
Iam new to Visual basic 2005, I have installed SQL Express and prefers to use ADODB to connect to the database.
This is the code i tried
con.Open(cstring1 = "Provider=SQLNCLI.1;" _
& "Server=(local);" _
& "Database=D:VS 2005 ProjectsMyDB.mdf;" _
& "Integrated Security=SSPI;" _
& "DataTypeCompatibility=80;" _
& "Data Source=server1sqlexpress")
The error is comexception was unhandled,
SQL Network Interfaces: Error Locating Server/Instance Specified [xFFFFFFFF].
Can anyone help me out.
I have SQLExpress installed and Visual studio 2005 installed.
Connection string for ADODB ??
Regards,
Sathyan
View 4 Replies
View Related
Aug 30, 2007
Hello,
I am looking for a way to start an SSIS-Package from Visual Basic. Does anyone know how to do this?
Thank you
M-l-G
View 3 Replies
View Related
Feb 20, 2008
Hi,
I have installed Sql-server 2005 ,and i Create New reports with Reporting Services
I have an aplication in Visual Basic 6.0 .Actually Used Microsoft Access for Report Design.
I like to use Rreporting Services,But is possible to call from visual basic 6.0 the designeds reports ?
And is posible to pass parameters to the report ? (like view in access )
Thanks
View 6 Replies
View Related
Nov 5, 2007
I am learing VWD as I build a site and while I can use the various controls (GridView, FormView) to set up operations and retrieve/display database information, I need to be able to codebehind to do SQL operations for retrieving data to fill paper forms and to modify the database. After I retrieve data from the database, I need to do a lot of computation befor I build a paper quote that is emailed to a customer. I have written a subroutine to which I pass my sql query statement and I can add a new entry and edit an existing entry. The problem is a simple query to read an existing database entry.
If I write a simple command : Cmd = SELECT PartNumber, PartName, PartsAvailable FROM Inventory WHERE PartNumber = "P7226" , the command is executed but the return data falls on the floor somewhere as I dont know how to code to put the results in an array or in fact, have any idea on how to find the returned data. Can anyone help with this simple(?) problem? My sub that handles the sql command is shown below.
I have also been looking for the way to code in VB to cause existing controls like GridViews to access, edit, and insert but I havent been able to find a paper or tutorial. If anyone has seen this information, it would be helpful also.Protected Sub CallSQL(ByVal Cmd As String)
Dim conn As New SqlConnection("Data Source=.SQLExpress;AttachDbFileName=C:Documents and SettingsaMy DocumentsVisual Studio 2005WebSitesWebSite5App_DataPINEMgt.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True") 'Data Source=.SQLEXPRESS;AttachDbFilename="C:Documents and SettingsaMy DocumentsVisual Studio 2005WebSitesWebSite5App_DataPINEMgt.mdf";Integrated Security=True;Connect Timeout=30;User Instance=True)Dim sql As String = String.Empty
sql = Cmd
'Open the connection to the database and execute he SQL
conn.Open()Dim command As New SqlCommand(sql, conn)
command.ExecuteNonQuery()
conn.Close()
End Sub
View 6 Replies
View Related
Nov 21, 2007
Hi all, I have a var called sEP which contains a number. The problem I have is calling that var during an SQL query within Visual Basic. To test the update string I wrote the following query and simply told it to enter the text "Five Stars" on the row which contains the entry '1' in Episode Number column. It works fine. UPDATE JackBennySET Rating= 'Five Stars'
WHERE ([Episode Number]= '1') But how do I replace the '1' in the query with the var sEP (which will contain the actual number I want the query to run against)?I have tried various suggestions from sources including:UPDATE JackBenny SET Rating = 'Five Stars' WHERE [Episode Number] = '" + sEp + "'However, they all fail to update the database at all which makes me think the syntax is incorrect.Any help is very appreciated (I have been seeking help in various places for 2 days now) - I always send small paypal tips to people who help me on forums.
View 4 Replies
View Related
Apr 28, 2002
can anyone tell me? thank in advance
View 1 Replies
View Related