Elvish Software™

Видео хичээлийг Microsoft -ийнх сайтаас авч болох бөгөөд http://msdn2.microsoft.com/en-us/vbasic/bb466226.aspx
ороод download хийж болно.

sain baina uu visual basic 2005 -g sql database tai connection hiih gesen boldogguee bi engej holbson yum l da tegsen boldogguee

Dim con As SqlConnection = New SqlConnection(“Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\KTV.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True”)

hi
vb2005 deer application hiisen chin setup bolgohoor sql server ni data -n tanihguu baina yaadagiin boloo

ok thanks hvleej l baya gehdee dbf chin dbase IV shvv de excel arai bish b.na lee uchir ni sheet b.gui

Бөхөө чи Дарханы ТС -д сурч байгаад шилжсэн Бөхөө мөн үү

ok

Миний оруулсан өгөгдөл бааз рүүгээ бичигдэхдээ ANSI-аар бичигдээд байгаа юм болов уу? Эргээд grid-үүд дээр харахаар тэмдэгтүүд зүгээр танигдаж байгаа юм

sain uu Visual Basic.2005 deer hiij b.ga programiin ajilgaa ni udaan b.hiin yaaj hurdan bolgoh we SQL servertei 100% hartsdag bolhoor ter yum boluu yaasnan deer we??

20 usercontrol-n barag 70-80% ni SQL serverees datatai hartsaj b.ga yumaa harin ajilgaa ni huudas shiljih bvrd unshaad b.na
yaawal hurdan boloh we??

Spire.DataExport 1.6.5 ennii crack b.wal amarhan shiideg geed b.hiimaa

Надад нэг жижигхэн асуудал байна. VB дээр.
DateTime.now -аар оруулсан өгөгдлөө Format(DateTime.now,”yyyy.mm.dd”) хэлбэртэй болгож өөрчлөх гэсэн юм. Гэтэл энэ програмд маань Format функц танигдахгүй юм. Энэ нь зөвхөн миний програмд учир байна уу. өөр програмд зүгээр ашиглагддаг юм л даа. Аргаа бараад шинэ файл үүсгээд туршаад үзэхээр Format -г таньж байгаа юм.
Ингэж оруулах бол оруулсан өгөгдөл маань ‘2008.08.09 11:16 AM’ гэх мэтээр орж байгаа учраас ‘2008.08.09′ хүртэл гэж өдрөөр шүүлтүүр хийхээр гарч ирэхгүй ‘2008.08.10′ гэж заахаар 2008.08.09 -ны өдрүүдийн бичлэг гарч байгаа юм. Шүүлтүүр хийхдээ
Select * from …. where WDate >=’2008.08.09′ and WDate <= ‘2008.08.10′ гэх мэтээр оруулж байгаа

Hi zaluusaa 10.000 hereglegchiin medeeleltei hartsdag neg program bichij b.ga yumaa access deer bichwel boloh bolwuu bi vb2003 deer bichij b.ga yumaa sql serveriig sain medehgui yumaa ??

Миний ашиглаж байгаа компонентууд гэвэл onecomponent, activebar2 -н компонентуудыг ашиглаж байгаа. гэхдээ VB6 дээр ш дээ.

Нөгөө асуудлаа шийдсэн. ингэхдээ Left функцийг ашиглаад аргалчихлаа. Left(DateTime.Now,10) гээд зөвхөн огнооны хэсгийг ялгаад авсан.
String болгох гэхээр дараа нь Date хэлбэр дээр хийгдэх үйлдлүүд, шүүлтүүд дээр асуудал гарах учраас Date формат хэвээр нь ашиглах шаардлагатай байсан юм.

hey bokoo nadad neg saihan sanaa baina
gehdee bi sanalaa helj b.ga yum shvv yaahiigaa chi l medne shvv de
herew chi en forumiig ajiluuldag yum bol neg musun programmeruudiin negdsen site bologwol yamar we uuruur programmeruud neg negendee zoriulaj sample jishee bolon jijig programmuudaasaa tavdag ch yumuu te herew ingwel minii zvgeer 60 garan jishee programmuud b.ga asp bolon vb.net deer sample jisheenvvd pdf hicheelvvd geh met

sain uu nzaa
nadad medeeleliin sistem deer material hereg bolood b.na olood ugch tuslaach mongol bol sain b.na

VB6 дээр тайлангийн аятайхан загвар бэлдэх гэсэн юм. Юу гэхээр:
Дээд хэсэгт нь нэг шүүлтүүрийн үр дүнг. түүний доод хэсэгт өөр нэг шүүлтүүрийн үр дүнг харуулах гэсэн юм. ингэхдээ өмнөх шүүлтүүрээр олдсон бичлэгүүдийн доор дараагийн шүүлтүүрийн бичлэгүүд жагсаагдахаар. Өөрөө хэлбэл нэг тайлан дээр хэд хэдэн шүүлтүүрийн бичлэгүүдийг нэгэн зэрэг харуулж болох уу л гэж.
Crystal report 8.5 дээр ингэх боломж байдаг болов уу.
Active Report дээр ийм боломж байдаггүй

HI bi VB deer tool surah gesen yumaa nadad yag heregtei baiga tool mani grid l baihad bolno tegeed ter grid ni talangaa gargaj chaddag exel rvv horbvvleed harchihdag baimaar baina. uul ni Igrid, tegeed bas yamar ch bilee tiim grid baiga yum danch crack ch yumuu baihgvi olohgvi yum. tiim bolhoor yum hiih uramgvi bolchih yum er ni eh ashiglagddag toolvvd baival cracktai ni ogooch. Url-iig ni esvel gogoshare deer ch yumuu zaluusaa tuslaarai6 bi odoo l surch ehlej baiga bolhoor asuuh yum eh garah baih ter bolgond ta nart l handhaas oor arggvi.

Харин надад нэг асуудал гарлаа. Их хэмжээний өгөгдөл оруулах шаардлагатай тулгарсан чинь шийдэж чаддаггүй шүү. textbox,richtextbox, component one -н APEX True TDText6.0 компонентуудыг ашиглаж үзлээ. 200-аас их тэмдэгт оруулахаар л алдаа заагаад байх юм. баазад бол асуудал байхгүй

Сайн уу залуус аа. Надад нэг зүйл дээр мэдлэгээ хуваалцаж туслаач. Би VB6 дээр com port, serial портуудаас өгөгдөл авч ашиглах гэсэн юм. Өмнө нь портуудтай ажиллаж үзээгүй болохоор сайн мэдэхгүй юм. Ямар компонентуудыг яаж ашиглах уу?

SQL configuration гэж байгаа. Тэнд TCP IP – г нь enabled хий. Бас портоо тохируулаад болно. Ер нь порт нь default – аараа байхад болох байх аа. Бусдаар бол асуудалгүй ш дээ. 2000- аас хойшхи version нь анхнаасаа л client, server горимоор ажиллаж байгаа.

ene neg text hevleh yum baiga yuma tegsen eniige fomoso button darad hevlej bolj baiga yum. odoo vvniige class deer bicheed class a duudaad l hevledeg bolgomoor baina yahuu.

button click deere PrintDocument.Print() geed l shuud hevlechij baigaan

tegsen classru oruulahlaar
Private Sub PrintDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument.PrintPage iig ni yaaj vvsgehee meddeggvi ee

Уг нь чи блогийн бичлэгийн нэг удаа сайн харцан бол асуухгүй байх байсан байх. Чи бичлэгийг үзээрэй. Ер нь класс дээр хийх нь амархан. Тэгээд ч .NET чинь өөрөө объект хандалдат хэл ш дээ. Тэгхээр чи өөрөө ч мэдэхгүй класс зарлаж ашигладаг гэсэн үг. заза Чи энэ функц ээ класс дотор зарлачаад өөр класс дээр яаж дуудах вэ гэж асууж байна гэж би ойлголоо.
Class гээд класс байна гэвэл
Dim cls as new Class
cls.PrintPage()
гээд болоо.
new – гэдэг үгийг бичижгүй бол тухайн классын чинь тухайн объект үүсэхгүй шүү

ok

Dim fnt As New Font(”Times New Roman”, 12, FontStyle.Bold, GraphicsUnit.Point)
Dim y As New Integer

e.Graphics.DrawString(”HELLO WORLD″, fnt, Brushes.Black, 250, 250)
e.HasMorePages = False

eniig l class bolgochih

hi Nogooho class bolgoj chadsan shvv
http://rapidshare.com/files/196701102/class.txt.html

tegsen bas neg problem vvseed ee vvniigee Dll bolgomoor baigaan tegeed ClassLibrary deer oruulanguu dotor ni baiga zamin

Printing.PrintDocument() – iimerhvv yumnuud deer ni aldaa ogood baina yamar neg zvil importlodog yum shig ee eniig yaaj Dll bolgoh be yu importloh ve zaagaad ogooch

aa bas Dll ees msgbox ajilluulj boloh uu

iim aldaanuud ogood baigaan

Type ‘Printing.PrintDocument’ is not defined
Type ‘Printing.PrintPageEventArgs’ is not defined
Type ‘Fonts’ is not defined
Type ‘Brushes’ is not declared

bolsoon bayarlasan. shvv

hi sql server iig svljeend ashiglah gesiin bardaggvi ee..
2 com l holboh geed baiga yum.
SQL Server Management Studio Express – eer ni holboj bolno biz de. Server Name:IP\SQLEXPRESS
baigad l holboh gesiin

uul ni portiig ni 2 uuland ni 1313 bolgood enable boloh bvgdiig ni l enable bolgoson
IP1 – iin IPAddress deer ni ooriih ni IP address
IP2 – iin IPAddress deer ni 127.0.0.1 heveer ni
ene tohirgo 2 com deer 2 uulan deer ni adilhan baigaa
za tegeed yaah yostoig mine heleed ogoorei

Залуусаа хаана ч бүртгэлгүй хэлээр бичихээс татгалзая

хэ хэ байх юм шүү

application – g user bolgo. tegeed zasaj bolno. naad aldaa chini holbogdohgui l bna gesen bna l daa. shuud server deere clientee suulgaad orj bolj bna u. bolj baiva tohirgoo l bgaa da. bolohgui bol user name baij boloh yum. chi user name – ee uusgesen yum uu

bid mailddagguieee

hi connection ii huvid type aa connectionstring bolgohoor zaaval application boldog yum baina le.

sql ee holboj bolson banch firewall aa haaj baij. port oo neeh gesen yag yaaj neehe meddeggvi ee neleen l vzlee entalaar zurgaar zaaj ogch boloh uu..

- tegeed neg asuudal bas garlaa. 2 server deer baiga base iin hoorond negees ni nogoo serveriin table rvv basiig ni shvvlt hiigeed huulah gesiin yaaj huulah ve.

huulah tabliin COL=60-70 Row=500-600 baigaan programm derees bolno l do johon udah baih geed tegeed ch ter olon cool name vvdiig yaaj bichhev de. aimar yum..

bas neg server deerh 2 basa aa 2 oor tabled bas huulah yum negees ni negrvv ni deerhtei adilaar. envvnd procedure yaaj bicheh ve ene taldeer tuslaarai

ganzaa enig uzeerei :

Public adoconn as ADODB.Connection

Sub main()
Set adoconn = New ADODB.Connection
adoconn.ConnectionString = “Driver={SQL
Server};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=m
yPassword;”
adoconn.Open
End Sub

VB deer bichsen code-iig C# ruu hurvuulj boloh bolov u? yaaj horvuuleh u?

VB дээр бичсэн кодыг C# руу хөрвүүлэх бэлэн юм бол байхгүй ш дээ энэ 2ыг 2ууланг нь мэддэг хүнд бол амархан хараад л биччинэ. ер нь ерөнхий syntax – нь төстэй ш дээ

tnx

vb deerh programm ni application progamm yum.

”

void Page_Load()
{
if(!IsPostBack)
{
theForm.Visible = true;
theStatus.Visible = false;
}
else
{
theForm.Visible = false;
theStatus.Visible = true;
Button1.Visible = false;
}
}

void btn1click(object sender, System.EventArgs e)
{
txtMsg.InnerHtml = saveFiles();
}

string saveFiles()
{
string strMessage = “”;
string strFileName;
HttpPostedFile objFile;

for (int i=0; i<Request.Files.Count; i++)
{
objFile = Request.Files[i];
if (objFile.FileName != “”)
{
strFileName = objFile.FileName;
strFileName = strFileName.Substring(strFileName.LastIndexOf(“\\”) + 1);
try
{
objFile.SaveAs(“\\\\brink-premfs1\\sites\\premium4\\palrepro\\webroot\\ftp\\incoming\\” + strFileName);
strMessage+= “Uploaded c:\\upload\\” + strFileName + “”;
}
catch (Exception err)
{
strMessage += “Failed uploading ” + strFileName + “: ” +err.ToString() + “”;
}
}
}
return strMessage;
}

Multiple file upload test

function initPage()
{
document.getElementById(“uploadForm”).style.display = “block”;
document.getElementById(“uploading”).style.display = “none”;
document.forms.frmUp.Button1.style.visibility = “hidden”;
}

function prepUpload()
{
document.getElementById(“uploadForm”).style.visibility = “hidden”;
document.getElementById(“uploading”).style.display = “block”;
document.forms.frmUp.Button1.click();
}

Multiple file upload test

Please wait while we upload your files…

”
————————————-
C# deeerh jishee oruulchlaa barag adilhan shuu basic-tei. doorh 2 link uzeerei. ene VB shu

http://www.codeproject.com/KB/books/ASPNET20FileUpload.aspx

http://www.codeproject.com/KB/custom-controls/FileUploaderDialog.aspx

za bayarlalaa

hi. VB-iig sql tei xolbood client/server uusgej dundaa baazaa xereglex gesiin ene taliin source code jisheeg yaj googlees xaix ve tanid iim taliin source code ba uu. Server ni baazruugaa ugugdul oruulna client ni zugeerl baazad bgaa ugugdliig xarax l uuregtei. Neg iimerxuul yum xiix geed bgaamaa sql-ee login uuzgej suulgax xeregtei yu. Pls Boxoo axaa tuslaarai.

Imports System
Imports System.IO

Public Class Test
Public Shared Sub Main()
‘ Specify the directories you want to manipulate.
Dim path As String = “c:\temp\MyTest.txt”
Dim path2 As String = path + “temp”

Try
Dim fs As FileStream = File.Create(path)
fs.Close()

‘ Ensure that the target does not exist.
File.Delete(path2)

‘ Copy the file.
File.Copy(path, path2)
Console.WriteLine(“{0} copied to {1}”, path, path2)

‘ Try to copy the same file again, which should succeed.
File.Copy(path, path2, True)
Console.WriteLine(“The second Copy operation succeeded, which was expected.”)

Catch
Console.WriteLine(“Double copying is not allowed, which was not expected.”)
End Try
End Sub
End Class

ner project uusgeed class library -g ni songooroi. dll bol zuger code oo nuutslasan class gej oilgoj boloh bh aa engiineer. class file bicheed teriigee build hiihed dll file uusne

e-mail явуулах боломж байгаач явуулахгүй ээ хэхэ уучлаарай. Install бэлдэх маш энгийн. Шинэ project үүсгэхдээ Other Project Types->Setup and Deployment->Setup Project гэж үүсгээд файлаа add хийгээд build хийгээд болоо хэхэ

Чамд System.Net.Mail – ийг ашиглахыг зөвлөе.

Public Shared Sub SendMessage(ByVal subject As String, ByVal messageBody As String, _
ByVal fromAddress As String, ByVal toAddress As String, ByVal ccAddress As String)

Dim message As New MailMessage()
Dim client As New SmtpClient()

‘Илгээгчийн хаяг
message.From = New MailAddress(fromAddress)

‘Явуулах хүний хаяг. Олон байж болно – To
If (toAddress.Trim.Length > 0) Then
For Each addr As String In toAddress.Split(“;”c)
message.To.Add(New MailAddress(addr))
Next
End If

‘Явуулах хүний хаяг. Олон байж болно – Cc
If (ccAddress.Trim.Length > 0) Then
For Each addr As String In ccAddress.Split(“;”c)
message.CC.Add(New MailAddress(addr))
Next
End If

‘Гарчигаа бичиж өгнө
message.Subject = subject
message.Body = messageBody

‘SMTP сервер ашиглана
client.Host = “YourMailServer”

‘Чиний захиа
client.Send(message)
End Sub

Чи эхлээд нэг From үүсгээд тэр дээрээ TabControl тавиад дахиад нэг From үүсгээд 2 дахь үүсгэсэн Form – оо show() хийгээд нөгөө эхний Form дээрх Tabcontrol дээрээ New Page үүсгээд үүсгэсэг Page дээрээ show хийсэн Form – oo ADD хийчих. Энэ мэт… Би жаахан завгүй жишээ оруулж амжсангүй ойлгомжгүй байвал хэлээрэй би оройхон оруулая…

bar code yaj uusgeh ve. useg too holildson yumnaas bar code uuseh uu

MSSql server дээр view бичиж дуудсан нь програмын кодноос query бичиж дуудсанаас хурдан байж чадах уу

hi. QSL server deeree Visual Basic programiin shine huvilbariig tanij, huchinaas bichikh zuvshuurulgyi bolgoh gesen yum. Yaaj???

View чинь яг table шиг дууна ш дээ. Параметртэй дуудна гэж чи ямар нэг StoredProcedure дуудах гэж байна уу??

Овоо 2уулаа ойлгоцоод байна уу гэсэн төөрөөд явчивуу даа?? Болно.

Sub ConnectingDB(ByVal name As String, ByVal password As String, ByVal conn As String)
Dim connect As SqlConnection
Dim command As SqlCommand
Try
connect = New SqlConnection(conn)
connect.Open()
command = New SqlCommand(“StoredProcedureName”, connect)
command.CommandType = CommandType.StoredProcedure

command.Parameters.Add(“@a”, SqlDbType.NVarChar)
command.Parameters.Add(“@b”, SqlDbType.NVarChar)
command.Parameters(0).Value =”Утга”
command.Parameters(1).Value = “Утга”
command.ExecuteNonQuery()

Catch ex As Exception
Throw ex
End Try
End Sub

@a,@b – Параметрийн нэр
Stored procedure – ийнхээ параметрүүдийг бичнэ

ftp foldert tuhain file bgaa esehiig yaj shalgah ve.
Jishee ni ftp://myserver/folder/myfile.doc bgaa esehiig shalgaad utga butsaamaar bn.

yaj conect hih uu

MSSql DEER baaziinhaa neriig yaj uurchluh ve

Уг нь асуудалынхаа сэдэвийг зөв сэдэв дээр нь бичвэл зүгээр юмсан. 2000 дээрээс 2005 руу зүгээр аттач хийж болдог санагдаад байх юм 2005 – аас 2000 руу алдаа заадаг юм. Нэрийг зүгээр л rename хийж болно ш дээ. F2 дараад үз

Чи ямар тайлангийн контрол ашиглаж байна даа. CrystalReport мөн үү, Тэгвэл асуудалгүй дээ Crystal Report анх нэмхэд яаж холбох уу Group by хийх үү гээд нэг Wizard байгаа. Баазтай холбохдоо OLE гэсэн хэсэгийг нь ашиглавал зүгээр. Параметр дамжуулах тухайд бол Crystal report руу ороод ToolBox дээрээ Парамерт нэмэх гэж байгаа. Эсвэл шууд query – д нь filter хийж болно.

формынхоо заагчийг дамжуулаад илгээж болно.

file-iig yaj duudaj neeh ve? jishee ni pdf file-iig ?

anhoko – д: сайн мэдэхгүй байна аа. ер нь бааз – ийг нь сервер лүү аттач хийдэг инсталл байхгүй л байх. програмаа суулгаад, серверээ заавал тусад нь суулгах байх аа. Харин чиний бичсэн програм чинь чиний бичсэн кодоор баазаа үүсгэх, аттач /attach/ хийх боломжтой. харин заавал серверуу тусад нь суулгах байх. клиент бол суулгахгүйгээр хийж болно. Ер нь инсталлер хийхгүй чи л програмчилна байх даа. Залхуурж болохгүй шүү амжилт

Dim pr As New Process
pr.StartInfo.FileName = “”
pr.Start()

Чи UFT -8 unicode ашиглаагүй юм болов уу? !

Hi. Naiz naraa yasan be? Yagaad hariu bichihgui bna. Bi huleegeed l baigaa shuu.

зөвхөн миний бодол шүү.

// message class
public class Pop3Message
{
public long Number;
public long Bytes;
public bool Retrieved;
public string From;
public string To;
public string Subject;
public string Message;

public string TextPlainFormat()
{
string retval = “”;
string par = “This is a multi-part message in MIME format.”;
int index, index1;
if(this.Message.IndexOf(“Content-Type:”) != -1)
{
index = this.Message.IndexOf(“text/plain”);
if(index == -1) return this.Message;
index1 = this.Message.IndexOf(“\r\n\r\n”, index);
if(index1 == -1) return this.Message;
index = this.Message.IndexOf(“——”, index1);
if(index == -1) return this.Message;
return this.Message.Substring(index1 + 4, index – index1 – 4);
}
else
{
return this.Message;
}
return retval;
}
}

// POP3 class
public class Pop3 : System.Net.Sockets.TcpClient
{
//#################### Write to stream
private void Write(string message)
{
System.Text.ASCIIEncoding en = new System.Text.ASCIIEncoding() ;
byte[] WriteBuffer = new byte[1024] ;
WriteBuffer = en.GetBytes(message) ;

NetworkStream stream = GetStream() ;
stream.Write(WriteBuffer, 0, WriteBuffer.Length);
}

//#################### Read from stream
private string Response()
{
System.Text.ASCIIEncoding enc = new System.Text.ASCIIEncoding();
byte[] serverbuff = new Byte[1024];
int count = 0;

NetworkStream stream = GetStream();
while(true)
{
byte[] buff = new Byte[2];
int bytes = stream.Read(buff, 0, 1 );
if (bytes != 1) break;
else
{
serverbuff[count] = buff[0];
count++;
if (buff[0] == ‘\n’) break;
}
}

string retval = enc.GetString(serverbuff, 0, count );
return retval;
}

//#################### Connect to server
public void Connect(string server, string username, string password)
{
string message;
string response;

Connect(server, 110);
response = Response();
if(response.Substring(0, 3) != “+OK”)
throw new Pop3Exception(response);

message = “USER ” + username + “\r\n”;
Write(message);
response = Response();
if(response.Substring(0, 3) != “+OK”)
throw new Pop3Exception(response);

message = “PASS ” + password + “\r\n”;
Write(message);
response = Response();
if(response.Substring(0, 3) != “+OK”)
throw new Pop3Exception(response);
}

//#################### Disconnect from server
public void Disconnect()
{
string message;
string response;

message = “QUIT\r\n”;
Write(message);
response = Response();
if(response.Substring(0, 3) != “+OK”)
throw new Pop3Exception(response);
}

//#################### Retrieve an array of messages
// (unique number of the message and the message size in bytes)
public ArrayList List()
{
string message;
string response;
ArrayList retval = new ArrayList();

message = “LIST\r\n”;
Write(message);
response = Response();
if(response.Substring(0, 3) != “+OK”)
throw new Pop3Exception(response);

while(true)
{
response = Response();
if(response != “.\r\n”)
{
Pop3Message msg = new Pop3Message();
string[] values = response.Split(” “.ToCharArray());
msg.Number = Int32.Parse(values[0]);
msg.Bytes = Int32.Parse(values[1]);
msg.Retrieved = false;
retval.Add(msg);
}
else return retval;
}
}

//#################### Retrieve a message from server
public Pop3Message Retrieve(Pop3Message rhs)
{
string message;
string response;
bool header = false;
bool body = false;
Pop3Message msg = new Pop3Message();

msg.Bytes = rhs.Bytes;
msg.Number = rhs.Number;

message = “RETR ” + rhs.Number + “\r\n”;
Write(message);
response = Response();
if(response.Substring(0, 3) != “+OK”)
throw new Pop3Exception(response);
msg.Retrieved = true;
msg.Message = “”;

response = Response();
while(response != “.\r\n”)
{
if(body) msg.Message += response;
else if(response == “\r\n” && header)
{
body = true;
}
else
if(response.Length > 5 && response.Substring(0,5) == “From:”)
{
msg.From = response.Substring(6).Replace(“\r\n”, “”);
}
else if(response.Length > 3 && response.Substring(0,3) == “To:”)
{
msg.To = response.Substring(4).Replace(“\r\n”, “”);
header = true;
}
else if(response.Length > 8 && response.Substring(0,8) == “Subject:”)
{
msg.Subject = response.Substring(9).Replace(“\r\n”, “”);
}

//msg.Message += response;
response = Response();
}

return msg;
}

//#################### Delete the message from server
public void Delete(Pop3Message rhs)
{
string message;
string response;

message = “DELE ” + rhs.Number + “\r\n”;
Write(message);
response = Response();
if (response.Substring(0, 3) != “+OK”)
throw new Pop3Exception(response);
}

public static string MailServer
{
get
{
return ConfigurationSettings.AppSettings["MailServer"];
}
}

public static string MailUserName
{
get
{
return ConfigurationSettings.AppSettings["MailUserName"];
}
}

public static string MailPassword
{
get
{
return ConfigurationSettings.AppSettings["MailPassword"];
}
}
}

Dim mail As New Pop3Mail

mail.Connect(“mail.xxxx.net”, “user”, “password”)

For Each msg As Pop3Mail.Pop3Message In mail.List

Trace.WriteLine(DirectCast(mail.Retrieve(msg),
Pop3Mail.Pop3Message).message)

Next

The class

Imports System.Net.Sockets

Public Class Pop3Mail

Inherits System.Net.Sockets.TcpClient

Public Class Pop3Exception

Inherits System.ApplicationException

Public Sub New(ByVal str As String)

MyBase.New(str)

End Sub ‘New

End Class ‘Pop3Exception

Public Class Pop3Message

Public number As Long

Public bytes As Long

Public retrieved As Boolean

Public message As String

End Class ‘Pop3Message

Public Overloads Sub Connect(ByVal server As String, ByVal username As
String, ByVal password As String)

Dim message As String

Dim strResponse As String

Connect(server, 110)

strResponse = Response()

If strResponse.Substring(0, 3) “+OK” Then

Throw New Pop3Exception(Response)

End If

message = “USER ” + username + vbCr + vbLf

Write(message)

strResponse = Response()

If strResponse.Substring(0, 3) “+OK” Then

Throw New Pop3Exception(strResponse)

End If

message = “PASS ” + password + vbCr + vbLf

Write(message)

strResponse = Response()

If strResponse.Substring(0, 3) “+OK” Then

Throw New Pop3Exception(strResponse)

End If

End Sub ‘Connect

Public Sub Disconnect()

Dim message As String

Dim strResponse As String

message = “QUIT” + vbCr + vbLf

Write(message)

strResponse = Response()

If strResponse.Substring(0, 3) “+OK” Then

Throw New Pop3Exception(strResponse)

End If

End Sub ‘Disconnect

Public Function List() As ArrayList

Dim message As String

Dim strResponse As String

Dim retval As New ArrayList

message = “LIST” + vbCr + vbLf

Write(message)

strResponse = Response()

If strResponse.Substring(0, 3) “+OK” Then

Throw New Pop3Exception(strResponse)

End If

While True

strResponse = Response()

If strResponse = “.” & vbCr & vbLf Then

Return retval

Else

Dim msg As New Pop3Message

Dim seps As Char() = ” “.ToCharArray

Dim values As String() = strResponse.Split(seps)

msg.number = Int32.Parse(values(0))

msg.bytes = Int32.Parse(values(1))

msg.retrieved = False

retval.Add(msg)

End If

End While

End Function ‘List

Public Function Retrieve(ByVal rhs As Pop3Message) As Pop3Message

Dim message As String

Dim strResponse As String

Dim msg As New Pop3Message

msg.bytes = rhs.bytes

msg.number = rhs.number

message = “RETR ” & rhs.number & vbCr & vbLf

Write(message)

strResponse = Response()

If strResponse.Substring(0, 3) “+OK” Then

Throw New Pop3Exception(strResponse)

End If

msg.retrieved = True

While True

strResponse = Response()

If strResponse = “.” & vbCr & vbLf Then

Exit While

Else

msg.message += strResponse

End If

End While

Return msg

End Function ‘Retrieve

Private Sub Write(ByVal message As String)

Dim en As New System.Text.ASCIIEncoding

Dim WriteBuffer(1023) As Byte

WriteBuffer = en.GetBytes(message)

Dim stream As NetworkStream = GetStream()

stream.Write(WriteBuffer, 0, WriteBuffer.Length)

Debug.WriteLine(“WRITE:” + message)

End Sub ‘Write

Public Sub Delete(ByVal rhs As Pop3Message)

Dim message As String

Dim strResponse As String

message = “DELE ” & rhs.number & vbCr & vbLf

Write(message)

strResponse = Response()

If strResponse.Substring(0, 3) “+OK” Then

Throw New Pop3Exception(strResponse)

End If

End Sub ‘Delete

Private Function Response() As String

Dim enc As New System.Text.ASCIIEncoding

Dim serverbuff() As Byte = New [Byte](1023) {}

Dim stream As NetworkStream = GetStream()

Dim count As Integer = 0

While True

Dim buff() As Byte = New [Byte](1) {}

Dim bytes As Integer = stream.Read(buff, 0, 1)

If bytes = 1 Then

serverbuff(count) = buff(0)

count += 1

If buff(0) = Asc(vbLf) Then

Exit While

End If

Else

Exit While

End If

End While

Dim retval As String = enc.GetString(serverbuff, 0, count)

Debug.WriteLine(“READ:” + retval)

Return retval

End Function ‘Response

End Class

Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
If TextBox1.Text “” And TextBox2.Text “” Then
‘ shineer ellipsoidiin parametr nemj bn
cmdInsert.CommandType = “INSERT INTO Ellipsoid(ID, Name, a, b, 1/f, e’) VALUES(” & TextBox1.Text & “,’” & TextBox2.Text & “‘,” & TextBox3.Text & “, ” & TextBox4.Text & “,” & TextBox5.Text & “,” & TextBox6.Text & “)”
cmdInsert.Connection = cnnOLEDB
cmdInsert.ExecuteNonQuery()
Else
MsgBox(“Утгуудыг гүйцэд оруулаагү байна.Дахин шалгана уу.”)
End If
cmdInsert.Dispose()
End Sub

Надаа энэ хэсгийн алдааг олоод өгөөч хүмүүсээ

би чамд yahoo-гоор хариулцан ш дээ. ер нь fieldname – ийг өгөхдөө тусгай тэмдэгт, түлхүүр үг ашиглахгүй байсан нь дээр…

бүх л өгөгдлийн сангийн серверүүд бааз аа Backup хийж авах үйлдэлтэй байдаг.

Yag baazaas ni bish code-r Insert query-nuudiig ni gargaj avaad text file-d bichmeer bgaa yum.
Gol ni hereglegchded zoriulsan yum hiih geed bgaa yum. Olon hereglegchidees tegj ugugdluudiig ni command helbereer huuluulj avaad neg baz deer negtgeh shaardlagatai bgaa

Dim dt as new DataTable ()

dt.columns(0).DataType

гээд үз дээ

Uuniig yaj shiideh ve Bokhoo

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;
using System.Collections.Specialized;
using Microsoft.SqlServer.Management.Smo;

namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
StreamWriter writer = new StreamWriter(@”c:\script_output.txt”, false);
Server s = new Server(“servername”);
Database db = s.Databases["AdventureWorks"];

// Set up the scripting options to be used below.
ScriptingOptions so = new ScriptingOptions();
so.Permissions = true;
so.Indexes = true;
so.IncludeIfNotExists = true;

// First script the database itself
StringCollection coll = db.Script(so);
foreach (string str in coll)
{
writer.WriteLine(str);
}

// Now script each of the tables
foreach (Table t in db.Tables)
{
StringCollection col2 = t.Script(so);
foreach (string str2 in col2)
writer.WriteLine(str2);
}

// Now script each of the Users

foreach (User u in db.Users)
{
StringCollection col3 = u.Script(so);
foreach (string str3 in col3)
writer.WriteLine(str3);
}

// Now Script each of the Userdefinedfunc
foreach (UserDefinedFunction d in db.UserDefinedFunctions)
{
StringCollection col4 = d.Script(so);
foreach (string str4 in col4)
writer.WriteLine(str4);
}

Backup bkp = new Backup();
bkp.Devices.AddDevice(@”C:\AdventureWorks.bak”, DeviceType.File);
//bkp.Database(db);
bkp.Database = “AdventureWorks”;
bkp.Action = BackupActionType.Database;
bkp.Initialize = true;
bkp.PercentCompleteNotification = 10;
bkp.PercentComplete += new PercentCompleteEventHandler(bkp_PercentComplete);
bkp.SqlBackup(s);

writer.Flush();
writer.Close();

}

static void bkp_PercentComplete(object sender, PercentCompleteEventArgs e)
{
Console.WriteLine(e.Percent.ToString() + “% backed up”);
}
}
}

C# шүү

tiim. neg havtasand bgaa text file-uudiig zip esvel rarlah gej bgaa yum

Tegsen neg asuudal garaad bn a.Text file-aasaa unshaad bazruugaa orohdoo Ө,Ү ni asuultiin temdeg bolj orood bn. Uuniig yaj shiideh ve nadad tuslaach

za Bokhoo mash ih bayarlalaa. Asuudlaa shiidchihlee

nadad ascii c deer mail cleint iin hylbar kod bwal uguuch guij bna
gaigvi ajilgag vneheer heregtei amind tulchaad bna

sqlcmd.CommandText = “INSERT INTO aimag (ID, aimagname, aimagzipcode) VALUES(” &
aimag.Items.Count & “, N’” & TextBox1.Text & “‘, ” & TextBox4.Text & “)”
sqlcmd.Connection = myconn

Энэ дээр дээрхи утгууд нь Sql таблед маань урьд нь оруулсан байгаад aimagname, aimagzipcode 2 нь яг ижилхэн мөр олдвол мэдэгдэх буюу яаж дээрээс нь дарж бичих вэ.

VB.net-s SQL-луу бичиж байгаан

Энэ тэгээд яана гэсэн үг вэ.миний жишээн дээр бол update set aimag fieldname = ‘utga’ where aimagzipcode = ‘516′ гэдэг нь
aimag гэсэн таблын aimagzipcode баганд 516 гэсэн утга орсон мөрийг utga гэсэн текстийг aimagname баганд харгалзах мөрөнд оруулж байгаамуу тэ.

CrystalReport -oor parametertei tailan hiisen yum. Programaa uur pc deer ajilluulahaar umnuh pc-niihee baziig avchihaad bh yum.
Uuniig yaj shiideh ve Bokhoo

http://bokhoo.wordpress.com/2009/06/04/application-settings-%D0%B0%D1%88%D0%B8%D0%B3%D0%BB%D0%B0%D1%85-%D1%82%D1%83%D1%85%D0%B0%D0%B9/

eniig yaj shiideh u Bokhoo

tiimee reportiin holboltiig ni garaaraa hiisen yum. Anh hiisen ingeed boloodl bgaa yum. harin uur baazruu holbogdoh bolohoor ingeed bolohgui bgaa.

ADO ашиглахгүй гээд байхад даа
import System.Data.OleDb

reportruu holbogdohod .net deeree zaaval connection hiih albagui report file-aa duudaad bolno biz dee

holboltoo ingej l uusgene biz dee hu
http://vb.net-informations.com/crystal-report/vb.net_crystal_report_step_by_step.htm

serveree solihoor aldaa garaad bsan yum

болж дээ

Ascii text-iig unicode-ruu yaj hurvuuleh ve

jishee ni mongoliig yaj hurvuuleh ve

MessageBox.Show(“UniCode converted string: ” + unicodeString);

bayarlalaa.
asuultiin temdegnuud bolgoj hurvuuleed bh yum,
mongol krilees gedgiig ni yaj tohiruulj uguh ve

Энд SQl ruu интерфэйсээрээ дамжуулж асcess file хуулах жишээ оруулаад өгөөч.Import export хийх талаар соурсе хэрэгтэй байна аа.